5 use Fatal qw(open close);
6 #use File::Slurp 'slurp';
7 #use List::MoreUtils 'uniq';
10 print "Generate Mouse::Tiny ...\n";
13 open my $in, '<', $_[0];
19 return grep{ !$seen{$_}++ } @_;
22 require 'lib/Mouse/Spec.pm';
24 my $MouseTinyFile = shift || 'lib/Mouse/Tiny.pm';
35 && !/Spec/ # has no functionality
36 && !/TypeRegistry/ # deprecated
37 && !/\bouse/ # ouse.pm
45 'lib/Mouse/Exporter.pm',
47 'lib/Mouse/Meta/TypeConstraint.pm',
48 'lib/Mouse/Util/TypeConstraints.pm',
51 my $contents = slurp $file;
53 $contents =~ s/__END__\b.*//s; # remove documentation
54 $contents =~ s/1;\n*$//; # remove success indicator
56 $mouse_tiny .= "BEGIN{ # #file\n";
57 $mouse_tiny .= $contents;
61 open my $handle, ">$MouseTinyFile";
63 print { $handle } << "EOF";
64 # This file was generated by $0 from Mouse $Mouse::Spec::VERSION.
66 # ANY CHANGES MADE HERE WILL BE LOST!
70 print { $handle } << 'EOF';
71 # if regular Mouse is loaded, bail out
72 unless ($INC{'Mouse.pm'}) {
75 for my $file (@files) {
76 (my $inc = $file) =~ s{^lib/}{};
77 printf { $handle } "%-45s = __FILE__;\n", "\$INC{'$inc'}";
80 print { $handle } << 'EOF';
81 eval sprintf("#line %d %s\n", __LINE__, __FILE__) . <<'END_OF_TINY';
83 # tell Perl we already have all of the Mouse files loaded:
86 print { $handle } "\n# and now their contents\n\n";
88 print { $handle } $mouse_tiny;
90 print { $handle } << 'EOF';
93 } # unless Mouse.pm is loaded
96 print { $handle } << 'EOF';
99 Mouse::Exporter->setup_import_methods(also => 'Mouse');