@@ -13,6 +13,12 @@ sub _equals {
return $a eq $b;
}
+sub _regex {
+ my $a = shift;
+ my $b = $_[0]->[0];
+ return $a =~ m/$b/;
+}
+
sub new {
my $class = shift;
my $self = {};