1 package # hide from PAUSE
2 DBIx::Class::CDBICompat::AttributeAPI;
8 my ($self, @atts) = @_;
9 return @{$self->{_column_data}}{@atts};
14 sub _attribute_store {
16 my $vals = @_ == 1 ? shift: {@_};
17 my (@cols) = keys %$vals;
18 @{$self->{_column_data}}{@cols} = @{$vals}{@cols};
23 my $vals = @_ == 1 ? shift: {@_};
24 $self->set_column($_, $vals->{$_}) for keys %{$vals};
27 sub _attribute_delete {
28 my ($self, $attr) = @_;
29 delete $self->{_column_data}{$attr};
32 sub _attribute_exists {
33 my ($self, $attr) = @_;
34 exists $self->{_column_data}{$attr};