File Coverage

File:lib/WWW/Google/Contacts/Data.pm
Coverage:57.1%

linestmtbrancondsubpodtimecode
1package WWW::Google::Contacts::Data;
2
3
11
11
11
74
38
77
use strict;
4
11
11
11
95
37
80
use warnings;
5
6
11
11
11
140
41
44
use XML::Simple ();
7
11
11
11
146
40
122
use Encode;
8
9sub decode_xml {
10
0
0
    my ($class, $content) = @_;
11
12
0
    my $xmls = XML::Simple->new;
13
0
    my $data = $xmls->XMLin( encode_utf8($content), SuppressEmpty => undef, KeyAttr => []);
14
0
    return $data;
15}
16
17sub encode_xml {
18
0
0
    my ($class, $content) = @_;
19
20
0
    my $xmls = XML::Simple->new;
21
0
    my $xml = $xmls->XMLout( $content, KeepRoot => 1 );
22
0
    return $xml;
23}
24
251;