Changeset 8608 for lang/perl/WebService-Simple/trunk/lib

Timestamp:

04/01/08 21:02:22 (9 months ago)

Author:

yusukebe

Message:

add CACHING

Files:

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

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

@@ -8 +8 @@
 use URI::Escape;
 use WebService::Simple::Response;
+use Data::Dumper;
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 sub new {
-    my ($class, $base_url, $param) = @_;
-    croak "paramater base_url is required" unless $base_url;
+    my ($class, %opt) = @_;
+    croak "paramater base_url is required" unless $opt{base_url};
     my $self = bless {
-                      base_url => $base_url,
-                      param => $param,
+                      ua => LWP::UserAgent->new,
+                      %opt,
                   }, $class;
     $self;
@@ -24 +25 @@
     my ($self, $request_param) = @_;
     my $url = $self->_make_url($request_param);
-    my $ua = LWP::UserAgent->new;
-    my $response = $ua->get($url);
+    my $response = $self->_fetch_url($url);
+    return $response;
+}
+
+sub _fetch_url{
+    my ($self,$url) = @_;
+    my $response;
+    if(exists $self->{cache}){
+        $response = $self->{cache}->thaw($url);
+        if(defined $response){
+            return $response;
+        }
+    }
+    $response = $self->{ua}->get($url);
     croak "can't get the request" unless $response->is_success;
+    if(exists $self->{cache}) {
+        $self->{cache}->freeze($url, $response);
+    }
     return $response;
 }
@@ -60 +76 @@
 
     my $flickr = WebService::Simple->new(
-        "http://api.flickr.com/services/rest/",
-        { api_key => "your_api_key", }
+        base_url => "http://api.flickr.com/services/rest/",
+        param    => { api_key => "your_api_key", }
     );
     my $response =
@@ -79 +95 @@
 
     my $flickr = WebService::Simple->new(
-        "http://api.flickr.com/services/rest/",
-        { api_key => "your_api_key", }
+        base_url => "http://api.flickr.com/services/rest/",
+        param    => { api_key => "your_api_key", }
     );
 
@@ -95 +111 @@
 =back
 
+=head1 CACHING
+
+Cache the response of Web Service APIs by using Cache object.
+Here's an example.
+
+    my $cache = Cache::File->new(
+        cache_root      => '/tmp/mycache',
+        default_expires => '30 min',
+    );
+
+    my $flickr = WebService::Simple->new(
+        base_url => "http://api.flickr.com/services/rest/",
+        cache    => $cache,
+        param    => { api_key => $api_key, }
+    );
+
+
 =head1 AUTHOR