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

Timestamp:

04/02/08 23:47:33 (8 months ago)

Author:

yusukebe

Message:

new method can receive array or hashref

Files:

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

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

@@ -12 +12 @@
 
 sub new {
-    my ($class, %opt) = @_;
-    croak "paramater base_url is required" unless $opt{base_url};
+    my $class = shift;
+    my $opt = ref $_[0] eq 'HASH' ? shift: {@_};
+    croak "paramater base_url is required" unless $opt->{base_url};
     my $self = bless {
-                      ua => LWP::UserAgent->new,
-                      %opt,
-                  }, $class;
+        ua => LWP::UserAgent->new,
+        %$opt,
+    }, $class;
     $self;
 }
@@ -77 +78 @@
 =head1 VERSION
 
-This document describes WebService::Simple version 0.01
-
+This document describes WebService::Simple version 0.02
 
 =head1 SYNOPSIS