sub big_daddy{ my ($self,$type,@args)=@_; ... }
sub foo{ my $self=shift; $self->big_daddy('FOO',@_); }
sub bar{ my $self=shift; $self->big_daddy('BAR',@_); }