1 package # hide from PAUSE
2 DBIx::Class::CDBICompat::AttributeAPI;
7 use base 'DBIx::Class';
10 my ($self, @atts) = @_;
11 return @{$self->{_column_data}}{@atts};
14 sub _attr { shift->_attrs(@_) }
16 sub _attribute_store {
18 my $vals = @_ == 1 ? shift: {@_};
19 $self->store_column($_, $vals->{$_}) for keys %{$vals};
24 my $vals = @_ == 1 ? shift: {@_};
25 $self->set_column($_, $vals->{$_}) for keys %{$vals};
28 sub _attribute_delete {
29 my ($self, $attr) = @_;
30 delete $self->{_column_data}{$attr};
33 sub _attribute_exists {
34 my ($self, $attr) = @_;
35 $self->has_column_loaded($attr);