123 |
$load_row_coderef = $arg->{load_row_coderef}; |
$load_row_coderef = $arg->{load_row_coderef}; |
124 |
|
|
125 |
no strict 'subs'; |
no strict 'subs'; |
126 |
no warnings 'redefine'; |
no warnings 'all'; |
127 |
eval "$arg->{rules};"; |
eval "$arg->{rules};"; |
128 |
die "error evaling $arg->{rules}: $@\n" if ($@); |
die "error evaling $arg->{rules}: $@\n" if ($@); |
129 |
|
|
954 |
|
|
955 |
Always return field as array |
Always return field as array |
956 |
|
|
957 |
foreach my $d ( rec_array('field') { |
foreach my $d ( rec_array('field') ) { |
958 |
warn $d; |
warn $d; |
959 |
} |
} |
960 |
|
|