member_of.pl

#!perl
# $Id$
use strict;
use warnings;

use File::Spec;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, "..", "lib");

use Getopt::Long;
use Pod::Usage;
GetOptions(\my %opt,
           "help",
       );

use List::MoreUtils qw(any);

sub _member_of {
    my ($atom, $list) = @_;
    return any { $atom eq $_ } @$list;
}

use Test::More;
plan 'no_plan';

ok _member_of(1, [1,2,3]);
ok ! _member_of(10, [1,2,3]);

ok any { 1 eq $_ } (1,2,3);

1;