X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=author%2Fgenerate-mouse-tiny.pl;fp=author%2Fgenerate-mouse-tiny.pl;h=8f039b690e9fee39f3acf622f53a39a99544e0d1;hb=dc8e9f34ce28e77bbd1ceb05324af02f026a69c0;hp=9e4120d36a0c83026be3fadada81b5666ac47296;hpb=fc8628e3caca3f21818dc6b9e1541c92767ffb57;p=gitmo%2FMouse.git

diff --git a/author/generate-mouse-tiny.pl b/author/generate-mouse-tiny.pl
index 9e4120d..8f039b6 100755
--- a/author/generate-mouse-tiny.pl
+++ b/author/generate-mouse-tiny.pl
@@ -2,9 +2,20 @@
 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;
+
+sub slurp {
+    open my $in, '<', $_[0];
+    local $/;
+    return scalar <$in>;
+}
+sub uniq{
+    my %seen;
+    return grep{ !$seen{$_}++ } @_;
+}
 
 require 'lib/Mouse/Spec.pm';