File Coverage

blib/lib/WebService/Simple/Response.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	2	2	100.0
total	14	23	60.8

# $Id$

package WebService::Simple::Response;
use strict;
use warnings;
use base qw(HTTP::Response);

our $VERSION = "0.23";

sub new_from_response {

    # XXX hack. This probably should be changed...
    my $class = shift;
    my %args  = @_;
    my $self  = bless $args{response}, $class;
    $self->{__parser} = $args{parser};
    return $self;
}

sub parse_response {
    my $self = shift;
    return $self->{__parser}->parse_response( $self );
}

*parse_xml = \&parse_response;

1;

__END__