Update MANIFEST.SKIP

[gitmo/Mouse.git] / author / generate-mouse-tiny.pl

diff --git a/author/generate-mouse-tiny.pl b/author/generate-mouse-tiny.pl
index 9e4120d..42dd7cb 100755 (executable)
--- 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';
 
@@ -89,3 +102,5 @@ Mouse::Exporter->setup_import_methods(also => 'Mouse');
 EOF
 
 close $handle;
+
+print "done.\n";