The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test::More tests => 4;
BEGIN { use_ok('Acme::POE::Acronym::Generator'); };
my $poegen = Acme::POE::Acronym::Generator->new();
isa_ok( $poegen, 'Acme::POE::Acronym::Generator' );
my $string = $poegen->generate();
diag($string);
ok( $string, $string );
my @list = $poegen->generate();
ok( scalar @list == 3, join ' ', @list );