Select Code to Download

# snip code

{
    @_ = ( $obj, @args );
    # rest of 'sub' goes here
}

use strict;
use warnings;
...
$obj->{ print Dumper( \@_ ) }( 'hello' );

__END__

$VAR1 = [];
Use of uninitialized value in subroutine entry at 605841.pl line 7.
Can't use string ("") as a subroutine ref while "strict refs" in use a
+t 605841.p
l line 7.