WebService::Simple::Parser::XML::Simple - XML::Simple Adaptor For WebService::Simple::Parser

# $Id: Simple.pm 13005 2008-06-01 13:34:52Z yusukebe $

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]->content );
}

1;

__END__