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;