$b->doSomething;

##</code><code>##

$b->doSomething($f);

##</code><code>##

package Blah;

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