sub yada {
    my $self = shfit;
    my ($param) = @_;
   # yada yada yada
}