File Coverage

blib/lib/DBIx/Class/CDBICompat/AttributeAPI.pm

Criterion	Covered	Total	%
statement	6	21	28.5
branch	0	4	0.0
condition			n/a
subroutine	2	7	28.5
pod			n/a
total	8	32	25.0

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;