package Blah;

sub doSomething {
  my $self = shift;
  my $f = shift;
  $f->methodX;
}
...