The corollary to that, which uses autoloading, is:

{
  my %calls = qw(
    company  company
    financial_diary  financialDiary
  );

  AUTOLOAD {
    my ($meth) = $AUTOLOAD =~ /.*::(.*)/;
    if (my $table = $calls{$meth}) {
      *{"add_$meth"} = sub {
        my $self = shift;
        $self->gen_add($table, @_);
      };
      goto &{"add_$meth"};
    }
    require Carp;
    Carp::croak "Unknown table action '$meth'";
  }
}
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;