Yet Another CPAN Grep

Net-Generatus ( S/SH/SHINY/Net-Generatus-0.40.tar.gz, SHINY, 2009; MetaCPAN )

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

:Escape;
use LWP::UserAgent;
#use Carp;

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

sub Status {
    my $self = shift;
	#$self->set_user_agent("Net::Generatus-$VERSION (P