--- lib/Test/Copyright.pm.org   2011-06-15 11:36:34.179000011 +0200
+++ lib/Test/Copyright.pm       2011-06-15 11:35:08.949000008 +0200
@@ -10,7 +10,6 @@ use Test::More;
 use CPAN::Meta;
 use Software::LicenseUtils;
 use Readonly;
-use Perl6::Slurp;
 use UNIVERSAL::require;
 use Lingua::EN::NameParse;
 use Email::Address;
@@ -141,6 +140,13 @@ sub _software_licenses_ok {
     return @licenses;
 }

+sub slurp {
+    my $filename = shift;
+    open my $fh, "<", $filename or die "$filename: $!";
+    local $/;
+    return <$fh>;
+}
+
 sub _cpan_meta_ok {
     foreach my $file (@META_FILES) {
         if (-r $file) {