package Text::Grap;

require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw( grap );

sub grap (&@) {

	my ($sub,@list) = @_;

	foreach (@list) {
		return 1 if ($sub->($_));
	}

}

1;