search-with-object-inflation.pl

#!/usr/bin/env perl
# simple Twitter Search API example with object inlfation
use warnings;
use strict;
use Net::Twitter;

my $nt = Net::Twitter->new(
    traits => ['API::Search', 'InflateObjects' ],
    decode_html_entities => 1,
);

my $r = $nt->search('perl net::twitter');

for my $tweet ( @{$r->results} ) {
    printf "%s: %s\n", $tweet->from_user, $tweet->text;
}