Corrected columns_info_for indent level - 2 space indent everyone please, you may...
[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / GetSet.pm
CommitLineData
c0e7b4e5 1package # hide from PAUSE
2 DBIx::Class::CDBICompat::GetSet;
fe5d862b 3
4#use base qw/Class::Accessor/;
5
6sub 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
15sub set {
16 return shift->set_column(@_);
17}
18
191;