Help for this page

Select Code to Download


  1. or download this
      
sub WHERE(&;$);
WHERE { a IN [1,2,3] or b LIKE '%abc%' };
  2. or download this
      DB<198> {package LIKE; sub AUTOLOAD { my ($field) = $AUTOLOAD =~ m/\
+w+::(\w+)/; print "$field @_" }}
  DB<199> field LIKE '%abc%'

field LIKE %abc%