lib/DBIx/Class/CDBICompat/GetSet.pm

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