Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
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..5
...
#   at t1.pl line 12.
ok 5 - mytest4
# Looks like you failed 2 tests of 5.