{ 
for $n (keys %T::) { if (defined &{$T::{$n}}) {
                my $s = $n; my $f = \&{$T::{$n}}; 
                $T::{$n} = sub { 
                        my ($r, @r);
                        warn "entering $s\n"; 
                        if (wantarray) 
                                { @r = &$f; }
                        elsif (defined wantarray)
                                { $r = &$f; }
                        else
                                { &$f; }
                        warn "exitting $s\n";
                        wantarray ? @r : $r;
                        }
        } }
} 
{ 
package T;
$r = "r";
sub f { print $_[0].$r.n(); }
sub n { @l = l(); 2, chr(@l); }
sub l { -5..4; }
}
sub g { T::f($_[0]."a"); }; g("b");