guess it's time for a documentation patch!

from the perldoc:

EXAMPLE
       Here's an example of a simple .t file for the fictional Film mo
+dule.

use Test::Simple tests => 5;
use Film;  # What you're testing.

my $btaste = Film->new({ Title    => 'Bad Taste',
                         Director => 'Peter Jackson',
                         Rating   => 'R',
                NumExplodingSheep => 1
              });
ok( defined($btaste) and ref $btaste eq 'Film',     'new() works' );
[download]