- or download this
package foo;
use warnings;
...
}
1;
__END__
- or download this
use strict;
use warnings;
...
# ------ go ------
cmp_ok(foo::go(), q{==}, 42, q{Expect go to return 42});
__END__
- or download this
$ prove foo.t
foo....ok 1/3Undefined subroutine &foo::mink called at foo.pm line 8.
...
Failed 1/1 test scripts. 1/3 subtests failed.
Files=1, Tests=3, 1 wallclock secs ( 0.04 cusr + 0.00 csys = 0.04 C
+PU)
Failed 1/1 test programs. 1/3 subtests failed.