X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FApplication.pm;h=3336c1f73cd7d1da68d9fbbb1c6677856e41b302;hb=5ca6a1765a44c39b23e7bab0e2ba636dbc6b57a8;hp=c10221a8784bbf36be6cae136b523cd1f81ec23f;hpb=f9a6b47b3b916585d710eac141003fb8261d9c3c;p=maypole.git diff --git a/lib/Maypole/Application.pm b/lib/Maypole/Application.pm index c10221a..3336c1f 100644 --- a/lib/Maypole/Application.pm +++ b/lib/Maypole/Application.pm @@ -7,7 +7,7 @@ use Maypole; use Maypole::Config; our @ISA; -our $VERSION = '2.05'; +our $VERSION = '2.08'; sub import { my ( $self, @plugins ) = @_; @@ -28,7 +28,7 @@ sub import { if ($@) { warn qq(Loading plugin "Maypole::Plugin::$_" failed: $@) } else { warn "Loaded plugin: Maypole::Plugin::$_" if $caller->debug; - unshift @ISA, "Maypole::Plugin::$_"; + push @{"${caller}::ISA"}, "Maypole::Plugin::$_"; } } } @@ -50,7 +50,7 @@ else { =head1 NAME -Maypole::Application - Maypole Universal Frontend +Maypole::Application - Universal Maypole Frontend =head1 SYNOPSIS @@ -87,6 +87,10 @@ is equivalent to use Maypole::Application; MyApp->setup; +Note that no options are passed to C. You must ensure that the +required model config parameters are set in Cconfig>. See +L for more information. + =head2 -Debug use Maypole::Application qw(-Debug); @@ -104,3 +108,5 @@ Idea by Marcus Ramberg, C =head1 LICENSE You may distribute this code under the same terms as Perl itself. + +=cut