fixes for newer Mojolicious

Author: olegwtf

bootylicious

@@ -4,12 +4,14 @@ use FindBin;
 use Cwd;
 use lib "$FindBin::Bin/lib";
 use Mojolicious::Lite;
-use Mojo::Util qw(md5_sum spurt);
+use Mojo::Util qw(md5_sum);
+use Mojo::File qw(path);
+use Mojo::Home;
 use Mojo::Loader qw(data_section);
 use Bootylicious;
 use Bootylicious::Timestamp;
 
-app->home->parse($ENV{BOOTYLICIOUS_HOME} || getcwd());
+app->home(Mojo::Home->new($ENV{BOOTYLICIOUS_HOME} || getcwd()));
 
 unshift @{app->plugins->namespaces}, 'Bootylicious::Plugin';
 
@@ -25,7 +27,7 @@ if (@ARGV && $ARGV[0] eq '--create-config') {
         die "bootylicious.conf already exists\n";
     }
 
-    spurt(data_section(__PACKAGE__, 'bootylicious.conf'), 'bootylicious.conf');
+    path('bootylicious.conf')->spurt(data_section(__PACKAGE__, 'bootylicious.conf'));
     exit;
 }
 

lib/Bootylicious/Plugin/BootyConfig.pm

@@ -62,11 +62,11 @@ sub register {
     $ENV{LC_ALL} = 'C';
 
     # set proper templates base dir, if defined
-    push @{$app->renderer->paths}, $app->home->rel_dir($config->{templates_directory})
+    push @{$app->renderer->paths}, $app->home->rel_file($config->{templates_directory})
       if defined $config->{templates_directory};
 
     # set proper public base dir, if defined
-    push @{$app->static->paths}, $app->home->rel_dir($config->{public_directory})
+    push @{$app->static->paths}, $app->home->rel_file($config->{public_directory})
       if defined $config->{public_directory};
 
     $app->defaults(title => '', description => '', layout => 'wrapper');

lib/Bootylicious/Plugin/BootyHelpers.pm

@@ -280,7 +280,7 @@ sub register {
         my $option = $config->{"${name}_directory"} || '';
         $app->helper(
             "${name}_root" => sub {
-                ($option =~ m/^\//) ? $option : $app->home->rel_dir($option);
+                ($option =~ m/^\//) ? $option : $app->home->rel_file($option);
             }
         );
     }