Changeset 12988 for lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Response.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/Response.pm (modified) (1 diff)

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