Select Code to Download

#! /usr/bin/perl

...
    my $self = shift;
    grep {$self->ok($_)} @_;
};

my $o = Sieve->new;
$o->add_predicate( sub { $_[0] > 5 } );
...

original: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
odd numbers > 5 are: 7 9 11 13 15