# in package Foo sub wonk { my $self = shift; _fiddle($self, @_); }