Update to latest Mojolicious

- bump prereq version
- toss deprecated Mojo::Util::slurp

Author: zoffixznet

Build.PL

@@ -38,7 +38,7 @@ my $build = Module::Build->new(
       'Mojo::URL'                        => '0',
       'Mojo::UserAgent'                  => '0',
       'Mojo::Util'                       => '0',
-      'Mojolicious'                      => '7.0',
+      'Mojolicious'                      => '7.28',
       'Mojolicious::Commands'            => '0',
       'Mojolicious::Plugin::AssetPack'   => '1.18',
       'POSIX'                            => '0',

lib/ModulesPerl6/DbBuilder/Dist/Source.pm

@@ -3,9 +3,10 @@ package ModulesPerl6::DbBuilder::Dist::Source;
 use FindBin; FindBin->again;
 use File::Spec::Functions qw/catfile/;
 use JSON::Meth qw/$json/;
+use Mojo::File;
 use Mojo::JSON qw/from_json/;
 use Mojo::UserAgent;
-use Mojo::Util qw/slurp  spurt  decode/;
+use Mojo::Util qw/spurt  decode/;
 use Try::Tiny;
 
 use ModulesPerl6::DbBuilder::Log;
@@ -27,9 +28,10 @@ has _ua => InstanceOf['Mojo::UserAgent'], (
 has _tag_aliases => Maybe[Ref['HASH']], (
     is => 'lazy',
     default => sub {
-        my $raw_tags = eval {
-            from_json slurp $ENV{MODULESPERL6_TAG_ALIASES_FILE}
-                // catfile $FindBin::Bin, qw/.. tag-aliases.json/;
+        my $raw_tags = eval { from_json( Mojo::File->new(
+                $ENV{MODULESPERL6_TAG_ALIASES_FILE}
+                    // catfile $FindBin::Bin, qw/.. tag-aliases.json/
+            )->slurp);
         } || do { warn "\n\nFailed to load tag-aliases.json: $@\n\n"; exit; };
 
         my %tags;

lib/ModulesPerl6/DbBuilder/Dist/Source/GitHub.pm

@@ -3,7 +3,8 @@ package ModulesPerl6::DbBuilder::Dist::Source::GitHub;
 use base 'ModulesPerl6::DbBuilder::Dist::Source';
 
 use Carp       qw/croak/;
-use Mojo::Util qw/slurp  decode/;
+use Mojo::File;
+use Mojo::Util qw/decode/;
 use Pithub;
 use LWP::UserAgent;
 use Time::Moment;
@@ -36,7 +37,7 @@ has _token => Str, (
         my $file = $ENV{MODULES_PERL6_GITHUB_TOKEN_FILE} // 'github-token';
         -r $file or log fatal => "GitHub token file [$file] is missing "
                             . 'or has no read permissions';
-        return decode 'utf8', slurp $file;
+        return decode 'utf8', Mojo::File->new($file)->slurp;
     },
 );