/[webpac2]/trunk/lib/WebPAC/Normalize.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.pm

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

revision 1011 by dpavlin, Tue Nov 6 20:26:31 2007 UTC revision 1012 by dpavlin, Wed Nov 7 09:19:29 2007 UTC
# Line 1000  return scalar, not array. Line 1000  return scalar, not array.
1000    
1001  =cut  =cut
1002    
 sub frec {  
         my @out = rec(@_);  
         warn "rec(",dump(@_),") has more than one return value, ignoring\n" if $#out > 0;  
         return shift @out;  
 }  
   
1003  sub rec {  sub rec {
1004          my @out;          my @out;
1005          if ($#_ == 0) {          if ($#_ == 0) {
# Line 1022  sub rec { Line 1016  sub rec {
1016          }          }
1017  }  }
1018    
1019    =head2 frec
1020    
1021    Returns first value from field
1022    
1023      $v = frec('200');
1024      $v = frec('200','a');
1025    
1026    =cut
1027    
1028    sub frec {
1029            my @out = rec(@_);
1030            warn "rec(",dump(@_),") has more than one return value, ignoring\n" if $#out > 0;
1031            return shift @out;
1032    }
1033    
1034  =head2 regex  =head2 regex
1035    
1036  Apply regex to some or all values  Apply regex to some or all values
Legend:
Removed from v.1011  
changed lines
  Added in v.1012
  ViewVC Help
Powered by ViewVC 1.1.26