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

package DBIx::Class::CDBICompat::GetSet;

#use base qw/Class::Accessor/;

sub get {
  my ($self, @cols) = @_;
  if (@cols > 1) {
    return map { $self->get_column($_) } @cols;
  } else {
    return $self->get_column($_[1]);
  }
}

sub set {
  return shift->set_column(@_);
}

1;
Commit	Line	Data
fe5d862b	1	package DBIx::Class::CDBICompat::GetSet;
	2
	3	#use base qw/Class::Accessor/;
	4
	5	sub get {
	6	my ($self, @cols) = @_;
	7	if (@cols > 1) {
	8	return map { $self->get_column($_) } @cols;
	9	} else {
	10	return $self->get_column($_[1]);
	11	}
	12	}
	13
	14	sub set {
	15	return shift->set_column(@_);
	16	}
	17
	18	1;