/[webpac2]/trunk/lib/WebPAC/Normalize/Set.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Normalize/Set.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 464 by dpavlin, Fri May 12 19:59:25 2006 UTC revision 465 by dpavlin, Fri May 12 21:46:28 2006 UTC
# Line 203  Apply regex to some or all values Line 203  Apply regex to some or all values
203  sub regex {  sub regex {
204          my $r = shift;          my $r = shift;
205          my @out;          my @out;
206          warn "r: $r\n",Dumper(\@_);          #warn "r: $r\n",Dumper(\@_);
207          foreach my $t (@_) {          foreach my $t (@_) {
208                  eval "\$t =~ $r";                  eval "\$t =~ $r";
209                  push @out, $t;                  push @out, $t;
# Line 247  Consult lookup hashes for some value Line 247  Consult lookup hashes for some value
247  =cut  =cut
248    
249  sub lookup {  sub lookup {
250          my $k = shift;          my $k = shift or return;
251          return unless ($lookup && defined($lookup->{$k}));          return unless (defined($lookup->{$k}));
252          if (ref($lookup->{$k}) eq 'ARRAY') {          if (ref($lookup->{$k}) eq 'ARRAY') {
253                  return @{ $lookup->{$k} };                  return @{ $lookup->{$k} };
254          } else {          } else {
Legend:
Removed from v.464  
changed lines
  Added in v.465
  ViewVC Help
Powered by ViewVC 1.1.26