view release on metacpan or  search on metacpan

t/global_event_end/global.asa  view on Meta::CPAN

use vars qw($t);
use lib qw(.);
use T;

sub Script_OnStart {
    $t = T->new;
    $t->ok;
    $Response->End;
    $t->not_ok;
}

sub Script_OnEnd {
    $t->done;
}