You don't have the problem you think you do.

sub foo {
  my $obj = shift;
  $obj->method(@_);
}
[download]

works just fine. No problems. Or you're just not being specific enough.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;