| 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; | ||||||