File Coverage

Test/Simply.pm

Criterion	Covered	Total	%
statement	18	24	75.0
branch	2	6	33.3
condition			n/a
subroutine	7	8	87.5
pod	0	1	0.0
total	27	39	69.2

package Test::Simply;

use 5.00503;
use strict;
use vars qw($VERSION $tests $testno $ok);
$VERSION = 0.05;
$tests = 0;
$testno = 1;
$ok = 0;

BEGIN {
    $| = 1;
}

INIT {
    $SIG{__DIE__} = sub { exit(255) };
}

END {
    exit((($tests-$ok)<=254) ? ($tests-$ok) : 254);
}

sub import {
    if ($_[1] eq 'tests') {
        $tests = $_[2];
        print "1..$tests\n";
    }
    else {
        die "Test::Simply requires 'tests', like 'use Test::Simply tests => 3;'\n";
    }
    no strict 'refs';
    *{caller() . '::ok'}  = \&ok;
}

sub ok {
    if ($_[0]) {
        print join(' - ',grep(/./,"ok $testno",$_[1])), "\n";
        $ok++;
    }
    else {
        print join(' - ',grep(/./,"not ok $testno",$_[1])), "\n";
    }
    $testno++;
}

1;

__END__