Yet Another CPAN Grep

Net-Twitter-Search ( S/SH/SHINY/Net-Twitter-Search-0.11.tar.gz, SHINY, 2008; MetaCPAN )

Net-Twitter-Search/lib/Net/Twitter/Search.pm ( view source; MetaCPAN )

base qw/Net::Twitter/;
use URI::Escape;

our $VERSION = '0.11';
#http://search.twitter.com/search.json?q=<query>

sub search {
    my $self = shift;
    my $query = shift;
    my $params = shift || {}

de = $params->{'since'} || undef;

    #build URL
    my $url = 'http://search.twitter.com/search.json?q=' . URI::Escape::uri_escape($query) .'&page='. $page;
    $url .= '&lang=' . URI::Escape::uri_e

nless $req->is_success;
    return [] if $req->content eq 'null';

    #decode the json
    my $res = JSON::Any->jsonToObj($req->content) ;

    return $res->{'results'};

}


1;

=head1 NAME

Net::Tw