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

##</code><code>##

my ($foo,$bar) = shift;