Corrected columns_info_for indent level - 2 space indent everyone please, you may...
[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / AttributeAPI.pm
1 package # hide from PAUSE 
2     DBIx::Class::CDBICompat::AttributeAPI;
3
4 sub _attrs {
5   my ($self, @atts) = @_;
6   return @{$self->{_column_data}}{@atts};
7 }
8
9 *_attr = \&_attrs;
10
11 sub _attribute_store {
12   my $self   = shift;
13   my $vals   = @_ == 1 ? shift: {@_};
14   my (@cols) = keys %$vals;
15   @{$self->{_column_data}}{@cols} = @{$vals}{@cols};
16 }
17
18 sub _attribute_set {
19   my $self   = shift;
20   my $vals   = @_ == 1 ? shift: {@_};
21   $self->set_column($_, $vals->{$_}) for keys %{$vals};
22 }
23
24 sub _attribute_delete {
25   my ($self, $attr) = @_;
26   delete $self->{_column_data}{$attr};
27 }
28
29 sub _attribute_exists {
30   my ($self, $attr) = @_;
31   exists $self->{_column_data}{$attr};
32 }
33
34 1;