Mercurial > boosterpack

comparison filter.pm @ 2:d7dd496a4fa6 boosterpack

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r4] actual functionality!
author robert
date Tue, 08 Sep 2009 02:45:26 -0400
parents
children 8c6d2ce90677
comparison
equal deleted inserted replaced
1:c702488ef795 2:d7dd496a4fa6
1 package Filter;
2 use base 'Exporter';
3 our @EXPORT = ('filter');
4
5
6 sub filter
7 {
8
9 $ref = shift;
10 @list = @_;
11 my @ret = ();
12
13 for $element(@list)
14 {
15 if ($ref->($element))
16 {
17 push @ret, $element;
18 }
19 }
20
21 return @ret
22
23 }
24
25
26 1;