When using WrapError, if an error occurs, Net::Twitter returns undef.
See perldoc Net::Twitter::Role::WrapError for details on how to extract
information about the error.
The following code works for me:
#!/usr/bin/env perl
use warnings;
use strict;
use Net::Twitter;
use Data::Dumper;
my $nt = Net::Twitter->new(traits => [qw/API::Search WrapError/]);
my $search_term = 'twitter';
if ( my $r = $nt->search($search_term) ) {
print Dumper $r;
}
else {
# when $r is undefined, an error occurred
# See perldoc Net::Twitter::Role::WrapError
print $nt->http_response->as_string;
}
