Mercurial > boosterpack

comparison Filter.pm @ 8:8c6d2ce90677 boosterpack

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r11] saving for transference to cd
author rlm
date Fri, 19 Mar 2010 07:28:10 -0400
parents
children
comparison
equal deleted inserted replaced
7:4c495190076f 8:8c6d2ce90677
1 #!/usr/bin/perl
2
3 package Filter;
4 use base 'Exporter';
5 our @EXPORT = ('filter');
6
7
8 sub filter
9 {
10
11 $ref = shift;
12 @list = @_;
13 my @ret = ();
14
15 for $element(@list)
16 {
17 if ($ref->($element))
18 {
19 push @ret, $element;
20 }
21 }
22
23 return @ret
24
25 }
26
27
28 1;