change perl to Perl

diff --git a/lib/Data/Query/ExprBuilder.pm b/lib/Data/Query/ExprBuilder.pm
index 3238a28..ee30702 100644 (file)
--- a/lib/Data/Query/ExprBuilder.pm
+++ b/lib/Data/Query/ExprBuilder.pm
@@ -12,7 +12,7 @@ use overload (
       Data::Query::ExprBuilder->new({
         expr => {
           type => DQ_OPERATOR,
-          operator => { perl => $op },
+          operator => { Perl => $op },
           args => [ $_[0]->{expr} ]
         }
       });
@@ -25,7 +25,7 @@ use overload (
       Data::Query::ExprBuilder->new({
         expr => {
           type => DQ_OPERATOR,
-          operator => { perl => $as },
+          operator => { Perl => $as },
           args => [
            map {
              (Scalar::Util::blessed($_)
@@ -33,7 +33,7 @@ use overload (
                ? $_->{expr}
                : {
                    type => DQ_VALUE,
-                   subtype => { perl => 'Scalar' },
+                   subtype => { Perl => 'Scalar' },
                    value => $_
                  }
               # we're called with ($left, $right, 0) or ($right, $left, 1)

diff --git a/t/expr.t b/t/expr.t
index fed19d7..9173a89 100644 (file)
--- a/t/expr.t
+++ b/t/expr.t
@@ -41,12 +41,12 @@ expr_is { $_->foo->bar }
 expr_is { $_->foo == 3 }
   {
     type => DQ_OPERATOR,
-    operator => { perl => '==' },
+    operator => { Perl => '==' },
     args => [
       expr { $_->foo },
       {
         type => DQ_VALUE,
-        subtype => { perl => 'Scalar' },
+        subtype => { Perl => 'Scalar' },
         value => 3,
       },
     ],
@@ -56,12 +56,12 @@ expr_is { $_->foo == 3 }
 expr_is { $_->foo == 3 }
   {
     type => DQ_OPERATOR,
-    operator => { perl => '==' },
+    operator => { Perl => '==' },
     args => [
       expr { $_->foo },
       {
         type => DQ_VALUE,
-        subtype => { perl => 'Scalar' },
+        subtype => { Perl => 'Scalar' },
         value => 3,
       },
     ],
@@ -71,11 +71,11 @@ expr_is { $_->foo == 3 }
 expr_is { 3 == $_->foo }
   {
     type => DQ_OPERATOR,
-    operator => { perl => '==' },
+    operator => { Perl => '==' },
     args => [
       {
         type => DQ_VALUE,
-        subtype => { perl => 'Scalar' },
+        subtype => { Perl => 'Scalar' },
         value => 3,
       },
       expr { $_->foo },
@@ -90,7 +90,7 @@ throws_ok {
 expr_is { $_->foo & $_->bar }
   {
     type => DQ_OPERATOR,
-    operator => { perl => 'and' },
+    operator => { Perl => 'and' },
     args => [
       expr { $_->foo },
       expr { $_->bar },
@@ -101,7 +101,7 @@ expr_is { $_->foo & $_->bar }
 expr_is { $_->foo | $_->bar }
   {
     type => DQ_OPERATOR,
-    operator => { perl => 'or' },
+    operator => { Perl => 'or' },
     args => [
       expr { $_->foo },
       expr { $_->bar },
@@ -112,7 +112,7 @@ expr_is { $_->foo | $_->bar }
 expr_is { !$_->foo }
   {
     type => DQ_OPERATOR,
-    operator => { perl => '!' },
+    operator => { Perl => '!' },
     args => [ expr { $_->foo } ],
   },
   '! ok';