[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / AttributeAPI.pm

package DBIx::Class::CDBICompat::AttributeAPI;

sub _attrs {
  my ($self, @atts) = @_;
  return @{$self->{_column_data}}{@atts};
}

*_attr = \&_attrs;

sub _attribute_store {
  my $self   = shift;
  my $vals   = @_ == 1 ? shift: {@_};
  my (@cols) = keys %$vals;
  @{$self->{_column_data}}{@cols} = @{$vals}{@cols};
}

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) = @_;
  exists $self->{_column_data}{$attr};
}

1;
Commit	Line	Data
fe5d862b	1	package DBIx::Class::CDBICompat::AttributeAPI;
	2
	3	sub _attrs {
	4	my ($self, @atts) = @_;
	5	return @{$self->{_column_data}}{@atts};
	6	}
	7
	8	*_attr = \&_attrs;
	9
	10	sub _attribute_store {
	11	my $self = shift;
	12	my $vals = @_ == 1 ? shift: {@_};
	13	my (@cols) = keys %$vals;
	14	@{$self->{_column_data}}{@cols} = @{$vals}{@cols};
	15	}
	16
	17	sub _attribute_set {
	18	my $self = shift;
	19	my $vals = @_ == 1 ? shift: {@_};
	20	$self->set_column($_, $vals->{$_}) for keys %{$vals};
	21	}
	22
	23	sub _attribute_delete {
	24	my ($self, $attr) = @_;
	25	delete $self->{_column_data}{$attr};
	26	}
	27
	28	sub _attribute_exists {
	29	my ($self, $attr) = @_;
	30	exists $self->{_column_data}{$attr};
	31	}
	32
	33	1;