Use File::Slurp, instead of our own home-grown version.

Requires adjustments to several of the tests, to normalize "end-of-line
at end-of-file", but we'll just `chomp()` those away.

Author: bleargh45

Build.PL

@@ -57,6 +57,9 @@ $build_pkg->new(
     'recommends'        => {
         'JavaScript::Minifier::XS' => 0,
         },
+    'test_requires' => {
+        'File::Slurp' => 0,
+    },
     # add configuration requirements both to build_requires and to META.yml,
     # until M::B supports "configure_requires" directly.
     'build_requires'    => { %configure_requires },

MANIFEST

@@ -23,7 +23,6 @@ t/htdocs/test.js
 t/htdocs/test.txt
 t/htdocs/minified.txt
 t/htdocs/minified-xs.txt
-t/MY/slurp.pm
 t/MY/CharsetHandler.pm
 t/MY/JSHandler.pm
 t/MY/NoCTypeHandler.pm

t/MY/CharsetHandler.pm

@@ -7,7 +7,7 @@ use Apache2::RequestRec qw();
 use Apache2::RequestUtil qw();
 use Apache2::Const -compile => qw(OK);
 use File::Spec::Functions qw(catfile);
-use MY::slurp;
+use File::Slurp qw(slurp);
 
 sub handler {
     my $r = shift;

t/MY/JSHandler.pm

@@ -7,7 +7,7 @@ use Apache2::RequestRec qw();
 use Apache2::RequestUtil qw();
 use Apache2::Const -compile => qw(OK);
 use File::Spec::Functions qw(catfile);
-use MY::slurp;
+use File::Slurp qw(slurp);
 
 sub handler {
     my $r = shift;

t/MY/NoCTypeHandler.pm

@@ -7,7 +7,7 @@ use Apache2::RequestRec qw();
 use Apache2::RequestUtil qw();
 use Apache2::Const -compile => qw(OK);
 use File::Spec::Functions qw(catfile);
-use MY::slurp;
+use File::Slurp qw(slurp);
 
 sub handler {
     my $r = shift;

t/MY/PlainHandler.pm

@@ -7,7 +7,7 @@ use Apache2::RequestRec qw();
 use Apache2::RequestUtil qw();
 use Apache2::Const -compile => qw(OK);
 use File::Spec::Functions qw(catfile);
-use MY::slurp;
+use File::Slurp qw(slurp);
 
 sub handler {
     my $r = shift;

t/MY/slurp.pm

@@ -4,7 +4,7 @@ use Apache::Test;
 use Apache::TestRequest;
 use Apache::TestUtil qw(t_cmp);
 use lib 't';
-use MY::slurp;
+use File::Slurp qw(slurp);
 
 # Test "Content-Type" headers
 plan tests => 2, need_lwp;
@@ -13,7 +13,6 @@ plan tests => 2, need_lwp;
 charset_minified: {
     my $body = GET_BODY '/content-type/charset';
     my $min  = slurp( 't/htdocs/minified.txt' );
-    chomp($min);
 
     ok( t_cmp($body, $min) );
 }

t/content-type.t

@@ -4,7 +4,7 @@ use Apache::Test;
 use Apache::TestRequest;
 use Apache::TestUtil qw(t_cmp);
 use lib 't';
-use MY::slurp;
+use File::Slurp qw(slurp);
 
 # Test non-JS responses still have other filters applied
 plan tests => 1, need_lwp;

t/decline.t

@@ -4,7 +4,7 @@ use Apache::Test;
 use Apache::TestRequest;
 use Apache::TestUtil qw(t_cmp);
 use lib 't';
-use MY::slurp;
+use File::Slurp qw(slurp);
 
 # Test dynamically generated content
 plan tests => 2, need_lwp;
@@ -20,6 +20,5 @@ dynamic_unaltered: {
 dynamic_minified: {
     my $body = GET_BODY '/dynamic/js';
     my $min  = slurp( 't/htdocs/minified.txt' );
-    chomp($min);
     ok( t_cmp($body, $min) );
 }