@@ -19,6 +19,12 @@ sub _regex {
return $a =~ m/$b/;
}
+sub _in {
+ my $a = shift;
+ my %b = map { $_ => 1 } @_;
+ return exists $b{$a};
+}
+
sub new {
my $class = shift;
my $self = {};