Mercurial > boosterpack

     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;
author	Robert McIntyre <rlm@mit.edu>
date	Mon, 27 Sep 2010 17:24:06 -0400
parents	8c6d2ce90677
children