64 |
|
|
65 |
my $arg = {@_}; |
my $arg = {@_}; |
66 |
|
|
67 |
warn "#### arg = ",dump( $arg ); |
#warn "#### arg = ",dump( $arg ); |
68 |
|
|
69 |
my $log = $self->_get_logger(); |
my $log = $self->_get_logger(); |
70 |
|
|
130 |
if ( my $rules = $self->{mungle_rules} ) { |
if ( my $rules = $self->{mungle_rules} ) { |
131 |
|
|
132 |
sub get_ds { |
sub get_ds { |
133 |
warn "### get_ds xml = ",dump($xml); |
# warn "### get_ds xml = ",dump($xml); |
134 |
return $xml; |
return $xml; |
135 |
} |
} |
136 |
sub set_ds { |
sub set_ds { |
137 |
my $hash = {@_}; |
my $hash = {@_}; |
138 |
warn "### set_ds hash = ",dump($hash); |
# warn "### set_ds hash = ",dump($hash); |
139 |
foreach my $f ( keys %$hash ) { |
foreach my $f ( keys %$hash ) { |
140 |
warn "+++ $f ", dump( $hash->{$f} ),"\n"; |
# warn "+++ $f ", dump( $hash->{$f} ),"\n"; |
141 |
$ds->{$f} = $hash->{$f}; |
$ds->{$f} = $hash->{$f}; |
142 |
} |
} |
143 |
warn "### set_ds mungle_ds = ",dump($ds); |
# warn "### set_ds mungle_ds = ",dump($ds); |
144 |
} |
} |
145 |
eval "$rules"; |
eval "$rules"; |
146 |
$log->logdie("mungle rules $path error: $@") if $@; |
$log->logdie("mungle rules $path error: $@") if $@; |
147 |
|
|
148 |
warn "### set_ds after mungle_rules ds = ",dump($ds); |
# warn "### set_ds after mungle_rules ds = ",dump($ds); |
149 |
} else { |
} else { |
150 |
|
|
151 |
$ds = $xml; |
$ds = $xml; |