view release on metacpan or  search on metacpan

lib/DBD/AnyData2.pm  view on Meta::CPAN

}

########################
package DBD::AnyData2::AdvancedChangingTable;
########################

@DBD::AnyData2::AdvancedChangingTable::ISA = qw(DBD::AnyData2::Table);

use Carp qw/croak/;

sub capability($)
{
    my ( $self, $capname ) = @_;
    exists $self->{capabilities}->{$capname} and return $self->{capabilities}->{$capname};

    my $meta = $self->{meta};

    $capname eq "insert_new_row"
      and $self->{capabilities}->{insert_new_row} = $meta->{ad2h}->can("insert_new_row");
    $capname eq "delete_one_row"
      and $self->{capabilities}->{delete_one_row} = $meta->{ad2h}->can("delete_one_row");