sub object_method { my $self = shift; my ($foo,$bar,$baz) = @_; }