280c280
<   my ($self, @cols) = @_;
---
>   my ($self, @to_remove) = @_;
282d281
<   return unless $self->_ordered_columns;
283a283,284
>   return unless my $ordered = $self->_ordered_columns;
> 
285c286
<   my @remaining;
---
>   delete @$columns{@to_remove};
287,289d287
<   foreach my $col (@{$self->_ordered_columns}) {
<     push @remaining, $col unless grep(/$col/, @cols);
<   }
291,293c289,290
<   foreach (@cols) {
<     delete $columns->{$_};
<   };
---
>   my %to_remove = map {$_ => 1} @to_remove;
>   $self->_ordered_columns([grep {!$to_remove{$_}} @$ordered]);
295d291
<   $self->_ordered_columns(\@remaining);