Changeset 12988

Timestamp:

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

Author:

yusukebe

Message:

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

Location:

lang/perl/WebService-Simple/trunk

Files:

• example/flickr_search.pl (modified) (1 diff)
• lib/WebService/Simple/Parser/XML/Simple.pm (modified) (1 diff)
• lib/WebService/Simple/Response.pm (modified) (1 diff)

lang/perl/WebService-Simple/trunk/example/flickr_search.pl

@@ -13 +13 @@
 my $response =
   $flickr->get( { method => "flickr.photos.search", text => "cat" } );
-print Dumper $response->parse_response;
+print Dumper $response->parse_response( KeyAttr => [] );

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

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

@@ -8 +8 @@
 our $VERSION = "0.02";
 
-sub new_from_response
-{
+sub new_from_response {
+
     # XXX hack. This probably should be changed...
     my $class = shift;
     my %args  = @_;
-    my $self = bless $args{response}, $class;
+    my $self  = bless $args{response}, $class;
     $self->{__parser} = $args{parser};
     return $self;
 }
 
-sub parse_response
-{
+sub parse_response {
     my $self = shift;
-    return $self->{__parser}->parse_response($self);
+    my %opt  = @_;
+    return $self->{__parser}->parse_response( $self, %opt );
 }