sub get_column {
my ($self, $col) = @_;
if ((ref $self) && (!exists $self->{'_column_data'}{$col})
- && $self->{'_in_database'}) {
+ && $self->{'_in_storage'}) {
$self->_flesh(grep { exists $self->_column_groups->{$_}{$col}
&& $_ ne 'All' }
keys %{ $self->_column_groups || {} });
}
- $self->NEXT::get_column(@_[1..$#_]);
+ $self->next::method(@_[1..$#_]);
}
sub _flesh {