153 |
|
|
154 |
sub _get_rec { $rec }; |
sub _get_rec { $rec }; |
155 |
|
|
|
sub rec_array { |
|
|
my $d = $rec->{ $_[0] }; |
|
|
return @$d if ref($d) eq 'ARRAY'; |
|
|
die "field $_[0] not array: ",dump( $d ); |
|
|
} |
|
|
|
|
156 |
=head2 _set_config |
=head2 _set_config |
157 |
|
|
158 |
Set current config hash |
Set current config hash |
950 |
return @_ . ''; |
return @_ . ''; |
951 |
} |
} |
952 |
|
|
953 |
|
=head2 rec_array |
954 |
|
|
955 |
|
Always return field as array |
956 |
|
|
957 |
|
foreach my $d ( rec_array('field') { |
958 |
|
warn $d; |
959 |
|
} |
960 |
|
|
961 |
|
=cut |
962 |
|
|
963 |
|
sub rec_array { |
964 |
|
my $d = $rec->{ $_[0] }; |
965 |
|
return @$d if ref($d) eq 'ARRAY'; |
966 |
|
return ($d); |
967 |
|
} |
968 |
|
|
969 |
# END |
# END |
970 |
1; |
1; |