Mercurial > boosterpack
annotate filter.pm @ 2:d7dd496a4fa6 boosterpack
[svn r4] actual functionality!
| author | robert |
|---|---|
| date | Tue, 08 Sep 2009 02:45:26 -0400 |
| parents | |
| children | 8c6d2ce90677 |
| rev | line source |
|---|---|
| robert@2 | 1 package Filter; |
| robert@2 | 2 use base 'Exporter'; |
| robert@2 | 3 our @EXPORT = ('filter'); |
| robert@2 | 4 |
| robert@2 | 5 |
| robert@2 | 6 sub filter |
| robert@2 | 7 { |
| robert@2 | 8 |
| robert@2 | 9 $ref = shift; |
| robert@2 | 10 @list = @_; |
| robert@2 | 11 my @ret = (); |
| robert@2 | 12 |
| robert@2 | 13 for $element(@list) |
| robert@2 | 14 { |
| robert@2 | 15 if ($ref->($element)) |
| robert@2 | 16 { |
| robert@2 | 17 push @ret, $element; |
| robert@2 | 18 } |
| robert@2 | 19 } |
| robert@2 | 20 |
| robert@2 | 21 return @ret |
| robert@2 | 22 |
| robert@2 | 23 } |
| robert@2 | 24 |
| robert@2 | 25 |
| robert@2 | 26 1; |