view release on metacpan or  search on metacpan

t/Test/Simple.pm  view on Meta::CPAN

        $Test_Results[$Num_Tests-1] = 1;
    }
    $msg   .= "ok $Num_Tests";
    $msg   .= " - $name" if @_ == 2;
    $msg   .= "\n";

    _print *TESTOUT, $msg;

    #'#
    unless( $test ) {
        my($pack, $file, $line) = (caller)[0,1,2];
        if( $pack eq 'Test::More' ) {
            ($file, $line) = (caller(1))[1,2];
        }
        _print *TESTERR, "#     Failed test ($file at line $line)\n";
    }

    return $test;
}

=back