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
}