DBD-AnyData2
view release on metacpan or search on metacpan
lib/DBD/AnyData2.pm view on Meta::CPAN
285286287288289290291292293294295296297298299300301302303304305}
########################
package
DBD::AnyData2::AdvancedChangingTable;
########################
@DBD::AnyData2::AdvancedChangingTable::ISA
=
qw(DBD::AnyData2::Table)
;
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 )