my $mouse_tiny = '';
for my $file (uniq
+ 'lib/Mouse/PurePerl.pm',
'lib/Mouse/Exporter.pm',
'lib/Mouse/Util.pm',
'lib/Mouse/Meta/TypeConstraint.pm',
$contents =~ s/__END__\b.*//s; # remove documentation
$contents =~ s/1;\n*$//; # remove success indicator
- $mouse_tiny .= "BEGIN{ # #file\n";
+ $mouse_tiny .= "BEGIN{ # $file\n";
$mouse_tiny .= $contents;
$mouse_tiny .= "}\n";
}
print { $handle } << 'EOF';
# if regular Mouse is loaded, bail out
unless ($INC{'Mouse.pm'}) {
+ # tell Perl we already have all of the Mouse files loaded:
EOF
for my $file (@files) {
print { $handle } << 'EOF';
eval sprintf("#line %d %s\n", __LINE__, __FILE__) . <<'END_OF_TINY';
-
-# tell Perl we already have all of the Mouse files loaded:
EOF
print { $handle } "\n# and now their contents\n\n";