if ($attrs) {
$new->throw("attrs must be a hashref" ) unless ref($attrs) eq 'HASH';
while (my ($k, $v) = each %{$attrs}) {
- $new->store_column($k => $v);
+ $new->store_column($k => $v) if exists $class->_columns->{$k};
}
}
return $new;
sub update {
my ($self, $upd) = @_;
$self->throw( "Not in database" ) unless $self->in_storage;
- my %to_update = %{$upd || {}};
+ if (ref $upd eq 'HASH') {
+ $self->$_($upd->{$_}) for keys %$upd;
+ }
+ my %to_update;
$to_update{$_} = $self->get_column($_) for $self->is_changed;
return -1 unless keys %to_update;
my $rows = $self->storage->update($self->_table_name, \%to_update,
sub _row_to_object {
my ($class, $cols, $row) = @_;
my %vals;
- foreach my $pos (0..$#$cols) {
- my $c = $cols->[$pos];
- $c =~ s/^me\.//;
- $vals{$c} = $row->[$pos];
- }
+ $vals{$cols->[$_]} = $row->[$_] for 0 .. $#$cols;
my $new = $class->new(\%vals);
$new->in_storage(1);
return $new;