in reply to Test::More test names?

Try 
if ( $err ) {
    ok( 0, $err );
else {
    ok( 1, "Fancy code passed" );
}

# or, for the golfers amongst you ...

ok( $err ? ( 0, $err ) : ( 1, "Fancy code passed" ) );

[download]
My criteria for good software:
  1. Does it work?
  2. Can someone else come in, make a change, and be reasonably certain no bugs were introduced?

In Section Seekers of Perl Wisdom