From ea8ffc8a553180245565aac9ede12f3109cc6f88 Mon Sep 17 00:00:00 2001
From: Dan Book <grinnz@grinnz.com>
Date: Wed, 23 Aug 2017 11:48:54 -0400
Subject: [PATCH] use File::Slurper

---
 cpanfile               | 2 +-
 lib/Redis/RateLimit.pm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/cpanfile b/cpanfile
index 1220ede..54623bd 100644
--- a/cpanfile
+++ b/cpanfile
@@ -2,7 +2,7 @@ requires perl => '5.14.1';
 requires 'Carp';
 requires 'Digest::SHA1';
 requires 'File::Share';
-requires 'File::Slurp::Tiny';
+requires 'File::Slurper';
 requires 'JSON::MaybeXS';
 requires 'List::Util';
 requires 'Moo';
diff --git a/lib/Redis/RateLimit.pm b/lib/Redis/RateLimit.pm
index 5ff9001..5041c7e 100644
--- a/lib/Redis/RateLimit.pm
+++ b/lib/Redis/RateLimit.pm
@@ -6,7 +6,7 @@ use Moo;
 use Carp;
 use Digest::SHA1 qw/sha1_hex/;
 use File::Share qw/dist_file/;
-use File::Slurp::Tiny qw/read_file/;
+use File::Slurper qw/read_text/;
 use JSON::MaybeXS;
 use List::Util qw/any max min/;
 use Redis;
@@ -110,7 +110,7 @@ sub _read_lua {
     my ( $self, $filename ) = @_;
 
     my $path = dist_file('Redis-RateLimit', "$filename.lua");
-    read_file($path, binmode => ':utf8');
+    read_text($path);
 }
 
 sub _check_limit_script {