Help for this page

Select Code to Download


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

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