{
  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'";
  }
}