view filter.pm @ 6:4246c7ef6487 boosterpack

[svn r8] bug fix -- holos need to be one int three compared to rares
author robert
date Tue, 08 Sep 2009 17:20:52 -0400
parents d7dd496a4fa6
children 8c6d2ce90677
line wrap: on
line source
1 package Filter;
2 use base 'Exporter';
3 our @EXPORT = ('filter');
6 sub filter
7 {
9 $ref = shift;
10 @list = @_;
11 my @ret = ();
13 for $element(@list)
14 {
15 if ($ref->($element))
16 {
17 push @ret, $element;
18 }
19 }
21 return @ret
23 }
26 1;