File: | lib/WWW/Google/Contacts/Data.pm |
Coverage: | 57.1% |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package 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 | |||||||
9 | sub 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 | |||||||
17 | sub 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 | |||||||
25 | 1; |