#!/usr/bin/perl

use strict;
use warnings;
use Test::More;

ok( _pass(), "Pass" );
ok( _fail(), "Fail" );
done_testing();

sub _pass
{
   return 1
}

sub _fail 
{
   die "Die, Die, Die";
}

neil@ettin ~/src/perltest $ ./foo.pl 
ok 1 - Pass
Die, Die, Die at ./foo.pl line 18.
# Tests were run but no plan was declared and done_testing() was not seen.

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use Test::More;

ok( _pass(), "Pass" );
ok( _fail(), "Fail" );
done_testing();

sub _pass
{
   return 1
}

sub _fail 
{
   0 or do {
      warn "Die, Die, Die";
      return 0;
   };
}

neil@ettin ~/src/perltest $ ./foo.pl 
ok 1 - Pass
Die, Die, Die at ./foo.pl line 19.
not ok 2 - Fail
#   Failed test 'Fail'
#   at ./foo.pl line 8.
1..2
# Looks like you failed 1 test of 2.