114 |
|
|
115 |
my $log = $self->_get_logger(); |
my $log = $self->_get_logger(); |
116 |
|
|
117 |
our $xml = XMLin( |
our $xml; |
118 |
$path, |
eval { |
119 |
# ForceArray => 1, |
$xml = XMLin( |
120 |
# ForceContent => 1, |
$path, |
121 |
KeepRoot => 1, |
# ForceArray => 1, |
122 |
# SuppressEmpty => 1, # '' undef |
# ForceContent => 1, |
123 |
|
KeepRoot => 1, |
124 |
|
# SuppressEmpty => 1, # '' undef |
125 |
|
) || die "can't open $path: $!"; |
126 |
|
}; |
127 |
|
|
128 |
) || $log->logdie("can't open $path: $!"); |
if ( $@ ) { |
129 |
|
$log->error("$@"); |
130 |
|
return; |
131 |
|
} |
132 |
|
|
133 |
$log->debug("fetch_rec( $mfn ) => $path => xml is ",sub { dump($xml) }); |
$log->debug("fetch_rec( $mfn ) => $path => xml is ",sub { dump($xml) }); |
134 |
|
|