Select Code to Download

  #!/usr/bin/perl 

  use strict;
...
  ok 1, 'this works';
  $SIG{__DIE__} = sub { die @_ };
  ok no_such_sub(), '... no such sub';

  Test-Harness-2.65_02 $ perl -Ilib bin/prove -v test.pl 
  test....ok 1 - this works
  Undefined subroutine &main::no_such_sub called at test.pl line 9.
...
  ok
  All tests successful.
  Files=1, Tests=1,  1 wallclock secs ( 0.22 cusr +  0.02 csys = 0.24 
+CPU)

  #!/usr/bin/perl 

  use strict;
...
  ok 1, 'this works';
  $SIG{__DIE__} = sub { die @_ };
  cleanup();