view release on metacpan or  search on metacpan

t/base.t  view on Meta::CPAN

BEGIN {
    $^W++;
    if(  -d 'blib'  ) {
        require lib;
        lib->import( qw( blib lib ) );
    }
}

use Test qw( plan ok skip );

sub Ok($;$$) {
    @_= @_ < 3 ? reverse @_ : @_[1,0,2];
    goto &ok;
}

sub Skip($$;$$) {
    my $ok= shift @_;
    @_= reverse @_;
    unshift @_, $ok ? ''
        : 'skip: prior test failed';
    goto &skip;