DBD-AnyData2

 view release on metacpan or  search on metacpan

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

285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
}
 
########################
########################
 
@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");



( run in 0.292 second using v1.01-cache-2.11-cpan-55f5a4728d2 )