1 package # hide from PAUSE
2 DBIx::Class::CDBICompat::GetSet;
7 #use base qw/Class::Accessor/;
10 my ($self, @cols) = @_;
12 return map { $self->get_column($_) } @cols;
14 return $self->get_column($_[1]);
19 my($self, %data) = @_;
20 return shift->set_columns(\%data);