#!/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.