X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=author%2Fgenerate-mouse-tiny.pl;h=0fd19639aa4d6263bf0c53de7a9a160694384714;hb=43e49d9325893d1293ffbc7ba2f1e5b9312716fa;hp=9e4120d36a0c83026be3fadada81b5666ac47296;hpb=0d2fef85388af5e7762027f149cf6a3c6bd36649;p=gitmo%2FMouse.git

diff --git a/author/generate-mouse-tiny.pl b/author/generate-mouse-tiny.pl
index 9e4120d..0fd1963 100755
--- a/author/generate-mouse-tiny.pl
+++ b/author/generate-mouse-tiny.pl
@@ -2,9 +2,22 @@
 use strict;
 use warnings;
 use File::Find;
-use File::Slurp 'slurp';
-use List::MoreUtils 'uniq';
-use autodie;
+use Fatal qw(open close);
+#use File::Slurp 'slurp';
+#use List::MoreUtils 'uniq';
+#use autodie;
+
+print "Generate Mouse::Tiny ...\n";
+
+sub slurp {
+    open my $in, '<', $_[0];
+    local $/;
+    return scalar <$in>;
+}
+sub uniq{
+    my %seen;
+    return grep{ !$seen{$_}++ } @_;
+}
 
 require 'lib/Mouse/Spec.pm';
 
@@ -29,6 +42,7 @@ find({
 my $mouse_tiny = '';
 
 for my $file (uniq
+        'lib/Mouse/PurePerl.pm',
         'lib/Mouse/Exporter.pm',
         'lib/Mouse/Util.pm',
         'lib/Mouse/Meta/TypeConstraint.pm',
@@ -57,6 +71,7 @@ EOF
 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) {
@@ -66,8 +81,6 @@ 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";
@@ -89,3 +102,5 @@ Mouse::Exporter->setup_import_methods(also => 'Mouse');
 EOF
 
 close $handle;
+
+print "done.\n";