/[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 588 by dpavlin, Thu Jul 6 10:31:13 2006 UTC revision 589 by dpavlin, Fri Jul 7 21:48:09 2006 UTC
# Line 35  WebPAC::Normalize - describe normalisato Line 35  WebPAC::Normalize - describe normalisato
35    
36  =head1 VERSION  =head1 VERSION
37    
38  Version 0.11  Version 0.12
39    
40  =cut  =cut
41    
42  our $VERSION = '0.11';  our $VERSION = '0.12';
43    
44  =head1 SYNOPSIS  =head1 SYNOPSIS
45    
# Line 649  sub rec2 { Line 649  sub rec2 {
649          my $f = shift;          my $f = shift;
650          return unless (defined($rec && $rec->{$f}));          return unless (defined($rec && $rec->{$f}));
651          my $sf = shift;          my $sf = shift;
652          return map { $_->{$sf} } grep { ref($_) eq 'HASH' && $_->{$sf} } @{ $rec->{$f} };          return map {
653                    if (ref($_->{$sf}) eq 'ARRAY') {
654                            @{ $_->{$sf} };
655                    } else {
656                            $_->{$sf};
657                    }
658            } grep { ref($_) eq 'HASH' && $_->{$sf} } @{ $rec->{$f} };
659  }  }
660    
661  =head2 rec  =head2 rec
Legend:
Removed from v.588  
changed lines
  Added in v.589
  ViewVC Help
Powered by ViewVC 1.1.26