Changeset 431 for wiki-toolkit/trunk/lib/Wiki/Toolkit/Search/Base.pm
- Timestamp:
- 05/11/08 17:04:41 (4 years ago)
- Files:
-
- 1 modified
Legend:
- Unmodified
- Added
- Removed
-
wiki-toolkit/trunk/lib/Wiki/Toolkit/Search/Base.pm
r209 r431 9 9 my $who = (caller(1))[3]; 10 10 croak "$who is an abstract method which the ".(ref shift). 11 " class has not provided";11 " class has not provided"; 12 12 } 13 13 … … 99 99 my ($self, $string) = @_; 100 100 return grep { length > 1 # ignore single characters 101 and ! /^\W*$/ }# and things composed entirely102 # of non-word characters103 split( /\b/,# split at word boundaries101 and ! /^\W*$/ } # and things composed entirely 102 # of non-word characters 103 split( /\b/, # split at word boundaries 104 104 lc($string) # be case-insensitive 105 );105 ); 106 106 } 107 107
