sub set_inflated_column {
my ($self, $col, $obj) = @_;
- $self->set_column($col, $self->_deflated_column($col, $obj));
- return $self->store_inflated_column($col, $obj);
+ delete $self->{_inflated_column}{$col};
+ return $self->set_column($col, $self->_deflated_column($col, $obj));
}
=head2 store_inflated_column
sub store_inflated_column {
my ($self, $col, $obj) = @_;
- unless (blessed($obj)) {
- delete $self->{_inflated_column}{$col};
- return undef;
- }
+ delete $self->{_column_data}{$col};
return $self->{_inflated_column}{$col} = $obj;
}