my @tests = \( &T::test0, &T::test1,  . . . ); 

##</code><code>##

$test->($t);    # Sending the $t object as the first arg...

##</code><code>##

. . .  unless eval "\$t->$test()"; 

##</code><code>##

sub create_closure {
    my $t = shift; 
    my $m = shift;
    my $r = eval  'sub { $t->' . $m . '() }'; 
}

##</code><code>##

my @execute{@tests} = map { create_closure( $t, $_ ) } @tests; 

##</code><code>##

foreach my $test (@tests){
    if($mask & $byte{$test}){
        $mask = $mask ^ $byte{$test} unless &$execute{$test};
        #if the test returned false we unset the bit
    }
}