#! /usr/bin/perl

package Sieve;
use strict;
use warnings;

sub new { bless [], shift };

sub add_predicate {
	my $self = shift;
	push @$self, shift;
}

sub ok {
	my ($self, $item) = @_;
	$_->($item) || return(0) foreach @$self;
	return(1);
};

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