oops sorry, mistake.
sub remove_columns {
my ($self, @to_remove) = @_;
return unless my $ordered = $self->_ordered_columns;
my $columns = $self->_columns;
delete $columns->{$_} for @to_remove;
my %to_remove = map {$_ => 1} @to_remove;
$self->_ordered_columns([grep {!$to_remove{$_}} @$ordered]);
}
_______________________________________________
List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
Searchable Archive: http://www.grokbase.com/group/[email protected]
