sub fooify {
  my $self;
  $self = shift if UNIVERSAL::isa($_[0], __PACKAGE__);
  my ($x, $y, $z) = @_;
  # ...
}