| ... | ... |
@@ -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 |