use base qw(Exporter);
our @EXPORT = qw(
- match_and match_or match_method match_path match_path_strip
+ match_and match_or match_not match_method match_path match_path_strip
match_extension
);
}
}
+sub match_not {
+ my ($match) = @_;
+ sub {
+ if (my @discard = $match->($_[0])) {
+ ();
+ } else {
+ ({});
+ }
+ }
+}
+
sub match_method {
my ($method) = @_;
sub {