File Coverage

blib/lib/Net/Amazon/S3/ACL/XMLHelper.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             package Net::Amazon::S3::ACL::XMLHelper;
2              
3 3     3   772 use warnings;
  3         4  
  3         100  
4 3     3   14 use strict;
  3         5  
  3         83  
5              
6 3     3   1236 use XML::LibXML;
  0            
  0            
7             use XML::LibXML::XPathContext;
8              
9             use Exporter;
10             our @ISA = qw( Exporter );
11             our @EXPORT_OK = qw( xpc );
12              
13             our $Parser;
14              
15             # Copied and adapted from Net::Amazon::S3
16             sub xpc {
17             my ($content) = @_;
18              
19             my $parser = $Parser || XML::LibXML->new();
20             my $doc = $parser->parse_string($content);
21             my $xpc = XML::LibXML::XPathContext->new($doc);
22             $xpc->registerNs('s3', 'http://s3.amazonaws.com/doc/2006-03-01/');
23              
24             return $xpc;
25             } ## end sub xpc
26              
27             1; # Magic true value required at end of module
28             __END__