simple-net-twitter-test.pl

#!/usr/bin/env perl
use warnings;
use strict;
use Net::Twitter;
use Data::Dumper;

my $nt = Net::Twitter->new(traits => [qw/API::REST/]);

# uncomment the following line to simulate a failure
#$nt->ua->add_handler(request_send => sub { HTTP::Response->new(503) });

eval {
    my $r = $nt->show_user({ screen_name => 'perl_api' });
    print Dumper($r), "\n";
};
if ( $@ ) {
    print "Failed:\n", $@->http_response->as_string, "\n";
}