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 |
|
|
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 |