BEGIN {
    $ENV{PERL5DB} = '';
    $^P = 0x01; # Debug subroutine enter/exit.
}

$obj = bless do { \ my $x }, "Deb";
$obj->meth;
Deb::func( $obj );

sub Deb::meth { }
sub Deb::func { }

package DB;
sub sub {
    print "$sub( " . join( ', ', @_ ) . " )\n";
}

##</code><code>##

Deb::meth( Deb=SCALAR(0x97f3c4c) )
Deb::func( Deb=SCALAR(0x97f3c4c) )