... | ... |
@@ -66,7 +66,8 @@ sub _parse { |
66 | 66 |
|
67 | 67 |
# Operation |
68 | 68 |
my $op = $clause->[0] || ''; |
69 |
- croak qq{"$op" is invalid operation (} . _subname . ")" |
|
69 |
+ croak qq{First argument must be "and" or "or" in where clause } . |
|
70 |
+ qq{"$op" is passed} . _subname . ")" |
|
70 | 71 |
unless $VALID_OPERATIONS{$op}; |
71 | 72 |
|
72 | 73 |
# Parse internal clause |