sub foo {
    my $self = shift;
    ...
}

##</code><code>##

    my $self = shift;
    my ($this, $that) = @_;

##</code><code>##

    my ($self, $this, $that) = @_;