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

Timestamp:

06/01/08 19:51:03 (6 months ago)

Author:

yusukebe

Message:

Responseのparse_responseにオプションを渡せるようにした

Files:

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

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

@@ -7 +7 @@
 use XML::Simple;
 
-sub parse_response
-{
-    return XMLin($_[1]->content);
+sub parse_response {
+    my $self     = shift;
+    my $response = shift;
+    my %opt      = @_;
+    return XMLin( $response->content, %opt );
 }