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