[Catalyst-commits] r6402 - trunk/Catalyst-Model-Net-Amazon/lib/Catalyst/Model/Net

fireartist at dev.catalyst.perl.org fireartist at dev.catalyst.perl.org
Mon May 14 18:21:26 GMT 2007


Author: fireartist
Date: 2007-05-14 18:21:24 +0100 (Mon, 14 May 2007)
New Revision: 6402

Modified:
   trunk/Catalyst-Model-Net-Amazon/lib/Catalyst/Model/Net/Amazon.pm
Log:
expanded the synopsis docs


Modified: trunk/Catalyst-Model-Net-Amazon/lib/Catalyst/Model/Net/Amazon.pm
===================================================================
--- trunk/Catalyst-Model-Net-Amazon/lib/Catalyst/Model/Net/Amazon.pm	2007-05-14 17:03:12 UTC (rev 6401)
+++ trunk/Catalyst-Model-Net-Amazon/lib/Catalyst/Model/Net/Amazon.pm	2007-05-14 17:21:24 UTC (rev 6402)
@@ -62,7 +62,15 @@
     
     
     # Then in your Catalyst controller, you just need to do...
-    my $amazon = $c->model('Net::Amazon');
+    my $ua = $c->model('Net::Amazon');
+    
+    my $response = $ua->search( asin => '0201360683' );
+    
+    if ( $response->is_success ) {
+        print $response->as_string, "\n";
+    } else {
+        print "Error: ", $response->message, "\n";
+    }
 
 =head1 METHODS
 




More information about the Catalyst-commits mailing list