Mercurial > boosterpack

view 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 d7dd496a4fa6
children
line wrap: on
line source
     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;