6b98e793e700a8f2337627efef44638ad02278fa
[dbsrgits/DBIx-Class.git] / 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;