Since prototypes are compile time effects and method resolution happens at run time there is no (easy) way to make them happy together. You could do something with a sub based wrapper:

sub do_this (&$$;@)  {
    my $code = shift;
    my $method = shift;
    my $obj = shift;
    $obj->$method( $code, @_ );
}


do_this {$_ += 1}  do_it => $o,  'fred';
[download]

Yep, it's all backwards order-wise. By using multiple prototyped subs you might be able to make a saner syntax. Something like this: run_code { 'foo' } on_object $o  with_method 'bar' and_args 'fred', but less stupid.