improved error message ・ 968b09c ・ Gitprep

+2 -1

lib/DBIx/Custom/Where.pm

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

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