How about a simple add routine, e.g

sub add {
  my $self = shift;
  my %args = @_;

  die "Must supply value for name" unless ($args{name});

  ## why bother with $retval?
  return $self->_execute(
    handle    => 'appfme',
    statement => $args{type},
    bindvar   => [ $args{name} ],
    output    => 1
  );
}
[download]

Where $args{type} would previously have been the method type.
HTH

_________
broquaint