Mercurial > boosterpack
annotate filter.pm @ 5:e91d6f908222 boosterpack
[svn r7] finished!
author | robert |
---|---|
date | Tue, 08 Sep 2009 06:55:23 -0400 |
parents | d7dd496a4fa6 |
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; |