18 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
19 |
use YAML; |
use YAML; |
20 |
use JSON; |
use JSON; |
21 |
|
use Encode qw/encode/; |
22 |
|
|
23 |
|
|
24 |
=head1 NAME |
=head1 NAME |
152 |
return unless (@tags); |
return unless (@tags); |
153 |
|
|
154 |
my $xml = qq{<all>}; |
my $xml = qq{<all>}; |
|
|
|
|
$xml .= "<$_>" . $self->$_ . "</$_>" foreach ( 'database', 'input' ); |
|
|
|
|
155 |
my $data; |
my $data; |
156 |
|
|
157 |
|
foreach ( 'database', 'input' ) { |
158 |
|
$xml .= "<$_>" . $self->$_ . "</$_>"; |
159 |
|
$data->{$_} = $self->$_; |
160 |
|
} |
161 |
|
|
162 |
foreach my $tag (@tags) { |
foreach my $tag (@tags) { |
163 |
|
|
164 |
my $r = ref $ds->{$tag}->{$type}; |
my $r = ref $ds->{$tag}->{$type}; |
184 |
|
|
185 |
$xml .= qq{</all>\n}; |
$xml .= qq{</all>\n}; |
186 |
|
|
187 |
|
$xml = encode('utf-8', $xml); |
188 |
|
|
189 |
my $len = length($xml); |
my $len = length($xml); |
190 |
|
|
191 |
my $fh = $self->{_swish_fh} || die "_swish_fh missing"; |
my $fh = $self->{_swish_fh} || die "_swish_fh missing"; |