From 42bb53ff2a372b61a8ba28216e4148ca960bfb21 Mon Sep 17 00:00:00 2001 From: Duke Leto Date: Wed, 23 Sep 2009 01:36:25 -0700 Subject: [PATCH] Clarify some docs --- lib/Net/Topsy.pm | 2 +- lib/Net/Topsy/Result.pm | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/Net/Topsy.pm b/lib/Net/Topsy.pm index 45fbb07..dec1a39 100644 --- a/lib/Net/Topsy.pm +++ b/lib/Net/Topsy.pm @@ -122,7 +122,7 @@ Version 0.03 use Net::Topsy; - my $topsy = Net::Topsy->new( { key => $beta_key } ); + my $topsy = Net::Topsy->new( key => 'betakey' ); my $search1 = $topsy->search( { q => 'perl' } ); my $search2 = $topsy->search( { q => 'lolcats', page => 3, perpage => 20 } ); diff --git a/lib/Net/Topsy/Result.pm b/lib/Net/Topsy/Result.pm index c2cd524..91c7d64 100644 --- a/lib/Net/Topsy/Result.pm +++ b/lib/Net/Topsy/Result.pm @@ -11,6 +11,7 @@ Net::Topsy::Result - Topsy Result Objects use Net::Topsy; + # This assumes you run a script with a TOPSY_API_KEY shell variable set my $topsy = Net::Topsy->new( key => $ENV{TOPSY_API_KEY} ); my $result = $topsy->search({ q => $search_term,