Select Code to Download

use strict;
use warnings;
...
}

__END__

$ perl -MTAP::Harness -e '$h = TAP::Harness->new(); $h->runtests("./tr
+y.pl");'
./try.pl .. ok
All tests successful.
Files=1, Tests=1,  0 wallclock secs ( 0.04 usr  0.01 sys +  0.06 cusr 
+ 0.01 csys =  0.12 CPU)
Result: PASS

 $ perl -MTAP::Harness -e '$h = TAP::Harness->new(); $h->runtests("./t
+ry.pl");'
./try.pl .. All 1 subtests passed
...
  Parse errors: No plan found in TAP output
Files=1, Tests=1,  1 wallclock secs ( 0.11 usr  0.01 sys +  0.05 cusr 
+ 0.02 csys =  0.19 CPU)
Result: FAIL