Select Code to Download

# $obj->fooify(1,2,3) or fooify(10,20,30)
# always expects 3 "real" args
...
  my ($x, $y, $z) = @_;
  # ...
}

sub fooify {
  my $self;
...
  my ($x, $y, $z) = @_;
  # ...
}