After 5e0eea35 we can actually test for cleaned namespaces within CDBI
[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / AttributeAPI.pm
1 package # hide from PAUSE
2     DBIx::Class::CDBICompat::AttributeAPI;
3
4 use strict;
5 use warnings;
6
7 use base 'DBIx::Class';
8
9 sub _attrs {
10   my ($self, @atts) = @_;
11   return @{$self->{_column_data}}{@atts};
12 }
13
14 sub _attr { shift->_attrs(@_) }
15
16 sub _attribute_store {
17   my $self   = shift;
18   my $vals   = @_ == 1 ? shift: {@_};
19   $self->store_column($_, $vals->{$_}) for keys %{$vals};
20 }
21
22 sub _attribute_set {
23   my $self   = shift;
24   my $vals   = @_ == 1 ? shift: {@_};
25   $self->set_column($_, $vals->{$_}) for keys %{$vals};
26 }
27
28 sub _attribute_delete {
29   my ($self, $attr) = @_;
30   delete $self->{_column_data}{$attr};
31 }
32
33 sub _attribute_exists {
34   my ($self, $attr) = @_;
35   $self->has_column_loaded($attr);
36 }
37
38 1;