- foreach (sort @plugins) {
- if (/^\-Setup$/) { $autosetup++; }
- elsif (/^\-Debug$/) {
- *{"$caller\::debug"} = sub { 1 };
- warn "Debugging enabled";
- }
- elsif (/^-.*$/) { warn "Unknown flag: $_" }
- else {
- # The plugin caller should be our application class
- eval "package $caller; require Maypole::Plugin::$_";
- if ($@) { warn qq(Loading plugin "Maypole::Plugin::$_" failed: $@) }
+ my @plugin_modules;
+ {
+ foreach (@plugins) {
+ if (/^\-Setup$/) { $autosetup++; }
+ elsif (/^\-Debug$/) {
+ no strict 'refs';
+ *{"$caller\::debug"} = sub { 1 };
+ warn "Debugging enabled";
+ }
+ elsif (/^-.*$/) { warn "Unknown flag: $_" }