# is_one_of($val, \@list); sub is_one_of { my $val = shift; my $list = shift; my $test_name = "$val is not one of @$list"; for (@$list) { pass($test_name), return if $val eq $_; } diag "never saw [$val] in [@$list]"; fail($test_name); } #### is_one_of($var, [ qw(a b) ]);