Move from File::Slurp to File::Slurper

Author: timlegge

Makefile.PL

@@ -25,7 +25,7 @@ my %WriteMakefileArgs = (
     "DateTime::Format::XSD" => 0,
     "DateTime::HiRes" => 0,
     "Exporter" => 0,
-    "File::Slurp" => 0,
+    "File::Slurper" => 0,
     "HTTP::Request::Common" => 0,
     "IO::Compress::RawDeflate" => 0,
     "IO::Uncompress::RawInflate" => 0,
@@ -66,7 +66,7 @@ my %WriteMakefileArgs = (
     "URI::URL" => 0,
     "XML::LibXML::XPathContext" => 0
   },
-  "VERSION" => "0.49",
+  "VERSION" => "0.50",
   "test" => {
     "TESTS" => "t/*.t t/author/*.t"
   }
@@ -83,7 +83,7 @@ my %FallbackPrereqs = (
   "DateTime::Format::XSD" => 0,
   "DateTime::HiRes" => 0,
   "Exporter" => 0,
-  "File::Slurp" => 0,
+  "File::Slurper" => 0,
   "HTTP::Request::Common" => 0,
   "IO::Compress::RawDeflate" => 0,
   "IO::Uncompress::RawInflate" => 0,

README

@@ -2,7 +2,7 @@ NAME
     Net::SAML2 - SAML2 bindings and protocol implementation
 
 VERSION
-    version 0.49
+    version 0.50
 
 SYNOPSIS
       See TUTORIAL.md for implementation documentation and
@@ -114,7 +114,7 @@ AUTHOR
     Chris Andrews <chrisa@cpan.org>
 
 COPYRIGHT AND LICENSE
-    This software is copyright (c) 2021 by Chris Andrews and Others, see the
+    This software is copyright (c) 2022 by Chris Andrews and Others, see the
     git log.
 
     This is free software; you can redistribute it and/or modify it under

cpanfile

@@ -9,7 +9,7 @@ requires "DateTime" => "0";
 requires "DateTime::Format::XSD" => "0";
 requires "DateTime::HiRes" => "0";
 requires "Exporter" => "0";
-requires "File::Slurp" => "0";
+requires "File::Slurper" => "0";
 requires "HTTP::Request::Common" => "0";
 requires "IO::Compress::RawDeflate" => "0";
 requires "IO::Uncompress::RawInflate" => "0";

lib/Net/SAML2/Binding/Redirect.pm

@@ -38,7 +38,7 @@ use URI;
 use URI::QueryParam;
 use Crypt::OpenSSL::RSA;
 use Crypt::OpenSSL::X509;
-use File::Slurp qw/ read_file /;
+use File::Slurper qw/ read_text /;
 use URI::Encode qw/uri_decode/;
 
 =head2 new( ... )
@@ -127,7 +127,7 @@ sub sign {
     $u->query_param($self->param, $req);
     $u->query_param('RelayState', $relaystate) if defined $relaystate;
 
-    my $key_string = read_file($self->key);
+    my $key_string = read_text($self->key);
     my $rsa_priv = Crypt::OpenSSL::RSA->new_private_key($key_string);
 
     if ( exists $self->{ sig_hash } && grep { $_ eq $self->{ sig_hash } } ('sha224', 'sha256', 'sha384', 'sha512'))