Changeset 13005 for lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Parser/XML/Simple.pm

Timestamp:

06/01/08 22:34:52 (6 months ago)

Author:

yusukebe

Message:

 

Files:

• lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Parser/XML/Simple.pm (modified) (2 diffs)

lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Parser/XML/Simple.pm

@@ -7 +7 @@
 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;
-    my $response = shift;
-    my %opt      = @_;
-    return XMLin( $response->content, %opt );
+    my $self = shift;
+    $self->{xs}->XMLin( $_[0]->content );
 }
 
@@ -24 +31 @@
 =head1 METHODS
 
+=head2 new
+
 =head2 parse_response