sub new
{
    my $class = shift;
    my $self  = bless ({ @_ }, $class); # Hash-style params

    return $self;
}

sub fooge_default
{
     my $self = shift;

     $self->fooge(@_);  # Blind parameter passing
}

##</code><code>##

sub fooge
{
     my ($foo, $bar) = (shift, shift);

     die "fooge() needs two arguments\n" unless (defined($bar));

     # ...
}

##</code><code>##

sub fooge
{
     my ($foo, $bar) = @_;

     die "fooge() needs two arguments\n" unless (@_ == 2);

     # ...
}