1 package DBIx::Class::CDBICompat::AttributeAPI;
4 my ($self, @atts) = @_;
5 return @{$self->{_column_data}}{@atts};
10 sub _attribute_store {
12 my $vals = @_ == 1 ? shift: {@_};
13 my (@cols) = keys %$vals;
14 @{$self->{_column_data}}{@cols} = @{$vals}{@cols};
19 my $vals = @_ == 1 ? shift: {@_};
20 $self->set_column($_, $vals->{$_}) for keys %{$vals};
23 sub _attribute_delete {
24 my ($self, $attr) = @_;
25 delete $self->{_column_data}{$attr};
28 sub _attribute_exists {
29 my ($self, $attr) = @_;
30 exists $self->{_column_data}{$attr};