過程 39.4. Test::More setp by setp

1. use Test::More qw(no_plan);

2. ok($got eq $expected, $test_name);

   ok( $exp{9} == 81,                   'simple exponential' );
   ok( Film->can('db_Main'),            'set_db()' );
   ok( $p->tests == 4,                  'saw tests' );
   ok( !grep !defined $_, @items,       'items populated' );