discard_changes is also "refresh from storage"
[dbsrgits/DBIx-Class-Historic.git] / lib / DBIx / Class / CDBICompat / GetSet.pm
CommitLineData
75d07914 1package # hide from PAUSE
c0e7b4e5 2 DBIx::Class::CDBICompat::GetSet;
fe5d862b 3
bf5ecff9 4use strict;
5use warnings;
6
fe5d862b 7#use base qw/Class::Accessor/;
8
9sub 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
18sub set {
19 return shift->set_column(@_);
20}
21
221;