Some warnings for easier debugging

[maypole.git] / lib / Maypole / Application.pm

diff --git a/lib/Maypole/Application.pm b/lib/Maypole/Application.pm
index 130eea09563a329c73e93ed3387235dfe70cb956..a39c4a1fa5830efdd90570fd86eb5261dbf04b12 100644 (file)
--- a/lib/Maypole/Application.pm
+++ b/lib/Maypole/Application.pm
@@ -10,15 +10,18 @@ sub import {
     my $caller = caller(0);
     no strict 'refs';
     push @{"${caller}::ISA"}, $self;
-    "Maypole::$_"->require && unshift @ISA, "Maypole::$_" foreach (@plugins);
+    foreach (@plugins) {
+        "Maypole::$_"->require or warn qq(Loading plugin "Maypole::$_" failed);
+        unshift @ISA, "Maypole::$_";
+    }
 }
 
 if ( $ENV{MOD_PERL} ) {
-    require Apache::MVC;
+    require Apache::MVC or die 'Loading Apache frontend failed';
     push @ISA, qw(Apache::MVC);
 }
 else {
-    require CGI::Maypole;
+    require CGI::Maypole or die 'Loading CGI frontend failed';
     push @ISA, qw(CGI::Maypole);
 }