Merge pull request #5 from wilx/master

XPath 2 lower-case() and upper-case() functions
mirod · Nov 19, 2016 · 73b8c1c · 73b8c1c
2 parents f24e95c + cb7abf6
commit 73b8c1c
Showing 1 changed file with 30 additions and 0 deletions.
diff --git a/lib/XML/XPathEngine/Function.pm b/lib/XML/XPathEngine/Function.pm
@@ -285,6 +285,36 @@ sub normalize_space {
     return XML::XPathEngine::Literal->new($str);
 }
 
+sub lower_case {
+    my $self = shift;
+    my ($node, @params) = @_;
+    die "lower-case: Wrong number of params\n" if @params > 1;
+    my $str;
+    if (@params) {
+        $str = $params[0]->string_value;
+    }
+    else {
+        $str = $node->string_value;
+    }
+    $str = lc $str;
+    return XML::XPathEngine::Literal->new($str);
+}
+
+sub upper_case {
+    my $self = shift;
+    my ($node, @params) = @_;
+    die "lower-case: Wrong number of params\n" if @params > 1;
+    my $str;
+    if (@params) {
+        $str = $params[0]->string_value;
+    }
+    else {
+        $str = $node->string_value;
+    }
+    $str = uc $str;
+    return XML::XPathEngine::Literal->new($str);
+}
+
 sub translate {
     my $self = shift;
     my ($node, @params) = @_;