lib/DBIx/Class/CDBICompat/GetSet.pm

   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;