Re: use Tests; # ?

[A. Pagaltzis]

* Fergal Daly <[EMAIL PROTECTED]> [2006-07-17 15:45]:
> The standard way to do this is to put
> 
> local $Test::Builder::Level = $Test::Builder::Level + 1;
> 
> at the top of every function in your library that does not
> actually call ->ok()

    use Attribute::Handlers;

    sub UNIVERSAL::TestHelper : ATTR(CODE) {
        my ( $package, $symbol, $referent, $attr, $data, $phase ) = @_;
        no warnings 'redefine';
        *$symbol = sub {
            local $Test::Builder::Level = $Test::Builder::Level + 1;
            goto &$referent;
        };
        return;
    }

Regards,
-- 
#Aristotle
*AUTOLOAD=*_;sub _{s/(.*)::(.*)/print$2,(",$\/"," ")[defined wantarray]/e;$1};
&Just->another->Perl->hacker;