diff --git a/lib/Lamework.pm b/lib/Lamework.pm index 52c9082..43ea4d6 100644 --- a/lib/Lamework.pm +++ b/lib/Lamework.pm @@ -125,8 +125,10 @@ sub _detect_home { my $self = shift; my $home = $INC{$self->namespace . '.pm'}; - $home = Cwd::realpath( - File::Spec->catfile(File::Basename::dirname($home), '..')); + if (defined $home) { + $home = Cwd::realpath( + File::Spec->catfile(File::Basename::dirname($home), '..')); + } return $home; } diff --git a/t/middleware/action_builder.t b/t/middleware/action_builder.t index 49fb038..acef262 100644 --- a/t/middleware/action_builder.t +++ b/t/middleware/action_builder.t @@ -1,5 +1,3 @@ -#!/usr/bin/env perl - use strict; use warnings; diff --git a/t/middleware/routes_dispatcher.t b/t/middleware/routes_dispatcher.t index 6eb87d4..510801d 100644 --- a/t/middleware/routes_dispatcher.t +++ b/t/middleware/routes_dispatcher.t @@ -1,5 +1,3 @@ -#!/usr/bin/env perl - use strict; use warnings; diff --git a/t/middleware/view_displayer.t b/t/middleware/view_displayer.t index 3fb4766..3ed6a4f 100644 --- a/t/middleware/view_displayer.t +++ b/t/middleware/view_displayer.t @@ -1,5 +1,3 @@ -#!/usr/bin/env perl - use strict; use warnings;