use File::Find;
use File::Slurp 'slurp';
use List::MoreUtils 'uniq';
+use autodie;
-unlink 'lib/Mouse/Tiny.pm';
+unlink 'lib/Mouse/Tiny.pm'
+ if -e 'lib/Mouse/Tiny.pm';
my @files;
wanted => sub {
push @files, $_
if -f $_
- && !/Squirrel|MouseX|\.sw[po]$/
+ && !/Squirrel/
+ && !/TypeRegistory/
&& !/\bouse/
+ && !/\.sw[po]$/
},
no_chdir => 1,
}, 'lib');
# if regular Mouse is loaded, bail out
unless ($INC{'Mouse.pm'}) {
-eval q{
+eval <<'END_OF_TINY';
# tell Perl we already have all of the Mouse files loaded:
EOF
print { $handle } $mouse_tiny;
-print { $handle } "}; #eval\n} #unless\n\n";
+print { $handle } "END_OF_TINY\n} #unless\n\n";
print { $handle } << 'EOF';
package Mouse::Tiny;
use base 'Mouse';
+Mouse::Exporter->setup_import_methods(also => 'Mouse');
+
EOF
print { $handle } "1;\n\n";