The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use Test::Simple tests => 2;

use Text::Morse;
ok(1);

my $t = new Text::Morse;
ok(defined $t);