Select Code to Download

# is_one_of($val, \@list);
sub is_one_of {
...
    diag "never saw [$val] in [@$list]";
    fail($test_name);
}

is_one_of($var, [ qw(a b) ]);