Select Code to Download

use strict;
use warnings;
...
subtest tmod => sub { TMod::sub1() };
ok( 3 == 4, "mytest3" );
ok( 4 == 4, "mytest4" );

package TMod;
use strict;
...
}

1;

$ perl t1.pl
1..4
...
#   at t1.pl line 12.
ok 4 - mytest4
# Looks like you failed 2 tests of 4.