102 |
die "need normalisation argument" unless ($arg->{rules}); |
die "need normalisation argument" unless ($arg->{rules}); |
103 |
|
|
104 |
no strict 'subs'; |
no strict 'subs'; |
105 |
_set_lookup( $arg->{lookup} ); |
_set_lookup( $arg->{lookup} ) if defined($arg->{lookup}); |
106 |
_set_rec( $arg->{row} ); |
_set_rec( $arg->{row} ); |
107 |
_set_config( $arg->{config} ); |
_set_config( $arg->{config} ) if defined($arg->{config}); |
108 |
_clean_ds( %{ $arg } ); |
_clean_ds( %{ $arg } ); |
109 |
$load_ds_coderef = $arg->{load_ds_coderef}; |
$load_ds_coderef = $arg->{load_ds_coderef}; |
110 |
|
|