File Coverage

blib/lib/WebService/Simple/Parser/XML/Simple.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

# $Id$

package WebService::Simple::Parser::XML::Simple;
use strict;
use warnings;
use base qw(WebService::Simple::Parser);
use XML::Simple;

sub new {
    my $class = shift;
    my %args  = @_;
    my $xs    = delete $args{xs} || XML::Simple->new;
    my $self  = $class->SUPER::new(%args);
    $self->{xs} = $xs;
    return $self;
}

sub parse_response {
    my $self = shift;
    $self->{xs}->XMLin( $_[0]->decoded_content );
}

1;

__END__