[Dbix-class] Re: Bug in DBIx::Class::ResultSource::remove_columns ?

[Oleg Pronin]

oops sorry, mistake.

sub remove_columns {
  my ($self, @to_remove) =3D @_;


  return unless my $ordered =3D $self->_ordered_columns;

  my $columns =3D $self->_columns;
  delete $columns->{$_} for @to_remove;

  my %to_remove =3D map {$_ =3D> 1} @to_remove;
  $self->_ordered_columns([grep {!$to_remove{$_}} @$ordered]);

}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.scsys.co.uk/pipermail/dbix-class/attachments/20090113/17a=
fc989/attachment-0001.htm