Changeset 10071 for lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Response.pm

Timestamp:

04/21/08 18:54:08 (7 months ago)

Author:

daisuke

Message:

merge lwp-base branch

Files:

• lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Response.pm (modified) (1 diff)

lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Response.pm

@@ +1 @@
+# $Id$
+
 package WebService::Simple::Response;
+use strict;
+use warnings;
+use base qw(HTTP::Response);
 
-use warnings;
-use strict;
-use Carp;
-use XML::Simple;
-our $VERSION = '0.01';
+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 HTTP::Response::parse_xml {
-    my ($self, $opt) = @_;
-    my $xs = XML::Simple->new( %$opt );
-    my $results;
-    eval { $results = $xs->XMLin($self->content) };
-    croak("can't parse xml") if ($@);
-    return $results;
+sub parse_response
+{
+    my $self = shift;
+    return $self->{__parser}->parse_response($self);
 }