Changeset 8680

Timestamp:

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

Author:

yusukebe

Message:

new method can receive array or hashref

Location:

lang/perl/WebService-Simple/trunk

Files:

• example/flickr_echo.pl (modified) (1 diff)
• lib/WebService/Simple.pm (modified) (2 diffs)

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

@@ -4 +4 @@
 use Cache::File;
 
-my $api_key = "your_api_key";
+my $api_key = "a1e16e8713317f660e405bb6e047734f";
 my $cache   = Cache::File->new(
     cache_root      => '/tmp/mycache',

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