Help for this page

Select Code to Download


  1. or download this
    ->set_filter( sub { map $_[$_], grep $filter[$_], 0..$#_ } )
  2. or download this
    ->set_filter( sub { map { $_[$_] ? $filter[$_] : () } 0..$#_ } )
  3. or download this
    ->set_filter( sub { @_[ grep $filter[$_], 0..$#_ ] } )