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

Timestamp:

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

Author:

yusukebe

Message:

add CACHING

Files:

• lang/perl/WebService-Simple/trunk/example/flickr_echo.pl (modified) (1 diff)

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

@@ -2 +2 @@
 use warnings;
 use WebService::Simple;
+use Cache::File;
 
 my $api_key = "your_api_key";
-my $flickr  = WebService::Simple->new( "http://api.flickr.com/services/rest/",
-    { api_key => $api_key, } );
+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, }
+);
+
 my $response =
   $flickr->get( { method => "flickr.test.echo", name => "value" } );