5 use Fatal qw(open close);
6 #use File::Slurp 'slurp';
7 #use List::MoreUtils 'uniq';
11 open my $in, '<', $_[0];
17 return grep{ !$seen{$_}++ } @_;
20 require 'lib/Mouse/Spec.pm';
22 my $MouseTinyFile = shift || 'lib/Mouse/Tiny.pm';
33 && !/Spec/ # has no functionality
34 && !/TypeRegistry/ # deprecated
35 && !/\bouse/ # ouse.pm
43 'lib/Mouse/Exporter.pm',
45 'lib/Mouse/Meta/TypeConstraint.pm',
46 'lib/Mouse/Util/TypeConstraints.pm',
49 my $contents = slurp $file;
51 $contents =~ s/__END__\b.*//s; # remove documentation
52 $contents =~ s/1;\n*$//; # remove success indicator
54 $mouse_tiny .= "BEGIN{ # #file\n";
55 $mouse_tiny .= $contents;
59 open my $handle, ">$MouseTinyFile";
61 print { $handle } << "EOF";
62 # This file was generated by $0 from Mouse $Mouse::Spec::VERSION.
64 # ANY CHANGES MADE HERE WILL BE LOST!
68 print { $handle } << 'EOF';
69 # if regular Mouse is loaded, bail out
70 unless ($INC{'Mouse.pm'}) {
73 for my $file (@files) {
74 (my $inc = $file) =~ s{^lib/}{};
75 printf { $handle } "%-45s = __FILE__;\n", "\$INC{'$inc'}";
78 print { $handle } << 'EOF';
79 eval sprintf("#line %d %s\n", __LINE__, __FILE__) . <<'END_OF_TINY';
81 # tell Perl we already have all of the Mouse files loaded:
84 print { $handle } "\n# and now their contents\n\n";
86 print { $handle } $mouse_tiny;
88 print { $handle } << 'EOF';
91 } # unless Mouse.pm is loaded
94 print { $handle } << 'EOF';
97 Mouse::Exporter->setup_import_methods(also => 'Mouse');