BEGIN { 
sub DB::sub { 
        my ($r, @r, $s);
        $s = $DB::sub;
        $s=~/^T::/ or goto &$s;
        warn "entering $s\n"; 
        if (wantarray) 
                { @r = &$s; }
        elsif (defined wantarray)
                { $r = &$s; }
        else
                { &$s; }
        warn "exitting $s\n";
        wantarray ? @r : $r;
        }
$^P |= 1;
} 
{ 
package T;
$r = "r";
sub f { $_[0].$r.n(); }
sub n { @l = l(); 2, chr(@l); }
sub l { -5..4; }
}
sub g { T::f($_[0]."a"); }; 
print g("b");

##</code><code>##

{ 
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");