line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Data::Serializer::XML::Simple; |
2
|
11
|
|
|
11
|
|
505
|
BEGIN { @Data::Serializer::XML::Simple::ISA = qw(Data::Serializer) } |
3
|
|
|
|
|
|
|
|
4
|
11
|
|
|
11
|
|
66
|
use warnings; |
|
11
|
|
|
|
|
25
|
|
|
11
|
|
|
|
|
366
|
|
5
|
11
|
|
|
11
|
|
63
|
use strict; |
|
11
|
|
|
|
|
20
|
|
|
11
|
|
|
|
|
406
|
|
6
|
11
|
|
|
11
|
|
68
|
use XML::Simple qw(); |
|
11
|
|
|
|
|
25
|
|
|
11
|
|
|
|
|
241
|
|
7
|
11
|
|
|
11
|
|
63
|
use vars qw($VERSION @ISA); |
|
11
|
|
|
|
|
24
|
|
|
11
|
|
|
|
|
2915
|
|
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
$VERSION = '0.03'; |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
sub serialize { |
13
|
126
|
|
|
126
|
1
|
271
|
my $self = (shift); |
14
|
126
|
50
|
|
|
|
558
|
my %options = ref $self->{options} eq 'HASH' ? %{$self->{options}}: (); |
|
126
|
|
|
|
|
401
|
|
15
|
126
|
|
|
|
|
1208
|
my $xml = XML::Simple->new(keyattr => [ 'name'], %options); |
16
|
126
|
|
|
|
|
9933
|
return $xml->XMLout( (shift) ); |
17
|
|
|
|
|
|
|
} |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
sub deserialize { |
20
|
126
|
|
|
126
|
1
|
254
|
my $self = (shift); |
21
|
126
|
50
|
|
|
|
500
|
my %options = ref $self->{options} eq 'HASH' ? %{$self->{options}}: (); |
|
126
|
|
|
|
|
406
|
|
22
|
126
|
|
|
|
|
926
|
my $xml = XML::Simple->new(keyattr => [ 'name'], %options); |
23
|
126
|
|
|
|
|
8957
|
return $xml->XMLin( (shift) ); |
24
|
|
|
|
|
|
|
} |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
1; |
27
|
|
|
|
|
|
|
__END__ |