| Subject: | Provided example doesn't work |
njh@packard:~$ perl foo
Not an ARRAY reference at foo line 8.
njh@packard:~$ cat foo
#!/usr/bin/perl
use Net::Twitter::Search;
my $twitter = Net::Twitter::Search->new();
my $results = $twitter->search('Albi the racist dragon');
foreach my $tweet (@{ $results }) {
my $speaker = $tweet->{from_user};
my $text = $tweet->{text};
my $time = $tweet->{created_at};
print "$time <$speaker> $text\n";
}
njh@packard:~$