37 lines
668 B
Perl
37 lines
668 B
Perl
package # hide from PAUSE
|
|
DBIx::Class::CDBICompat::AttributeAPI;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
sub _attrs {
|
|
my ($self, @atts) = @_;
|
|
return @{$self->{_column_data}}{@atts};
|
|
}
|
|
|
|
*_attr = \&_attrs;
|
|
|
|
sub _attribute_store {
|
|
my $self = shift;
|
|
my $vals = @_ == 1 ? shift: {@_};
|
|
$self->store_column($_, $vals->{$_}) for keys %{$vals};
|
|
}
|
|
|
|
sub _attribute_set {
|
|
my $self = shift;
|
|
my $vals = @_ == 1 ? shift: {@_};
|
|
$self->set_column($_, $vals->{$_}) for keys %{$vals};
|
|
}
|
|
|
|
sub _attribute_delete {
|
|
my ($self, $attr) = @_;
|
|
delete $self->{_column_data}{$attr};
|
|
}
|
|
|
|
sub _attribute_exists {
|
|
my ($self, $attr) = @_;
|
|
$self->has_column_loaded($attr);
|
|
}
|
|
|
|
1;
|