Corrected columns_info_for indent level - 2 space indent everyone please, you may...
[dbsrgits/DBIx-Class.git] / 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;