-sub flags { _proxy(\&Catacomb::Key::DataImpl::flags, @_); }
-
-sub getbinary { _proxy(\&Catacomb::Key::DataImpl::getbinary, @_); }
-sub getencrypted { _proxy(\&Catacomb::Key::DataImpl::getencrypted, @_); }
-sub getmp { _proxy(\&Catacomb::Key::DataImpl::getmp, @_); }
-sub getstring { _proxy(\&Catacomb::Key::DataImpl::getstring, @_); }
-sub getec { _proxy(\&Catacomb::Key::DataImpl::getec, @_); }
-
-sub setstruct { _proxy(\&Catacomb::Key::DataImpl::setstruct, @_); }
-sub structfind { Catacomb::Key::Data::StructItem->new($_[0], $_[1]); }
-sub structcreate {
- _proxy(\&Catacomb::Key::DataImpl::structcreate, @_);
- Catacomb::Key::Data::StructItem->new($_[0], $_[1]);
-}
-sub structiter { _proxy(\&Catacomb::Key::DataImpl::structiter, @_); }
-sub structdel { _proxy(\&Catacomb::Key::DataImpl::structdel, @_); }
-sub structopen { my %h; tie %h, Catacomb::Key::StructData, $_[0]; \%h; }
-
-sub copy {
- croak("Usage: Catacomb::Key::Data::Ref::copy(kd, kkd, [filter])")
- unless @_ >= 2 && @_ <= 3;
- my $kd = Catacomb::Key::Data->new();
- $kd->_get()->set($_[0]->_get(), $_[1]);
- return $kd;