use strict;
use warnings;
use POE;
use POE::Component::SmokeBox::Dists;
my $search = '^BINGOS$';
POE::Session->create(
package_states => [
'main' => [qw(_start _results)],
],
);
$poe_kernel->run();
exit 0;
sub _start {
POE::Component::SmokeBox::Dists->author(
event => '_results',
search => $search,
);
return;
}
sub _results {
my $ref = $_[ARG0];
return if $ref->{error}; # Oh dear there was an error
print $_, "\n" for @{ $ref->{dists} };
return;
}