File Coverage

blib/lib/WebService/Simple/Parser/XML/Simple.pm
Criterion Covered Total %
statement 18 20 90.0
branch n/a
condition 1 3 33.3
subroutine 5 6 83.3
pod 2 2 100.0
total 26 31 83.8


line stmt bran cond sub pod time code
1             # $Id$
2              
3             package WebService::Simple::Parser::XML::Simple;
4 5     5   23 use strict;
  5         9  
  5         124  
5 5     5   22 use warnings;
  5         7  
  5         122  
6 5     5   23 use base qw(WebService::Simple::Parser);
  5         8  
  5         2403  
7 5     5   5637 use XML::Simple;
  5         42345  
  5         29  
8              
9             sub new {
10 9     9 1 19 my $class = shift;
11 9         21 my %args = @_;
12 9   33     64 my $xs = delete $args{xs} || XML::Simple->new;
13 9         555 my $self = $class->SUPER::new(%args);
14 9         106 $self->{xs} = $xs;
15 9         33 return $self;
16             }
17              
18             sub parse_response {
19 0     0 1   my $self = shift;
20 0           $self->{xs}->XMLin( $_[0]->decoded_content );
21             }
22              
23             1;
24              
25             __END__