1 package # hide from PAUSE
2 DBIx::Class::CDBICompat::GetSet;
7 #use base qw/Class::Accessor/;
10 my ($self, @cols) = @_;
12 return map { $self->get_column($_) } @cols;
14 return $self->get_column($_[1]);
19 my($self, %data) = @_;
21 # set_columns() is going to do a string comparison before setting.
22 # This breaks on DateTime objects (whose comparison is arguably broken)
23 # so we stringify anything first.
24 $data{$_} = "$data{$_}" for keys %data;
25 return shift->set_columns(\%data);