Implement XPath 2 upper-case() function.

mirod · Feb 3, 2016 · cb7abf6 · cb7abf6
1 parent 93a1c87
commit cb7abf6
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/lib/XML/XPathEngine/Function.pm b/lib/XML/XPathEngine/Function.pm
@@ -300,6 +300,21 @@ sub lower_case {
     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) = @_;