lib/DBIx/Class/CDBICompat/GetSet.pm

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