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;
push @files, $_
if -f $_
&& !/Squirrel/
+ && !/TypeRegistory/
&& !/\bouse/
&& !/\.sw[po]$/
},
# 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;