my @files;
find({
- wanted => sub { push @files, $_ if -f $_ && !/Squirrel/ },
+ wanted => sub {
+ push @files, $_
+ if -f $_
+ && !/Squirrel|MouseX|\.sw[po]$/
+ && !/\bouse/
+ },
no_chdir => 1,
}, 'lib');
open my $handle, '>lib/Mouse/Tiny.pm' or die "Can't write lib/Mouse/Tiny.pm: $!";
print { $handle } << 'EOF';
-#!/usr/bin/env perl
# THIS FILE IS AUTOGENERATED!
# if regular Mouse is loaded, bail out