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 for my $key (keys %data) {
25 next unless ref $data{$key};
26 $data{$key} = "$data{$key}";
29 return shift->set_columns(\%data);