# snip code

##</code><code>##

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

##</code><code>##

use strict;
use warnings;

use Data::Dumper;

my $obj = bless {}, 'Foo';
$obj->{ print Dumper( \@_ ) }( 'hello' );

__END__

##</code><code>##

$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 at 605841.p
l line 7.