sub my_meth {
    my $self = shift;
    my $cmd  = $self->{api_meth};
    unless ( defined $cmd ) {
        # default
    } else {
         eval { $cmd->(@_) }     
            or raise_error();
    }
}