X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lib%2FMaypole%2FApplication.pm;h=18cd589fccf03e0f62f15c21047e2cbd5db76bda;hb=d2c852208417c014caec0436a677fcadccc197d8;hp=584b0e4e2f40790ee1d5fd81e22cbb49ba28def6;hpb=a6edcc4c9b9950ee248e8e10839c86c8e31a129d;p=maypole.git diff --git a/lib/Maypole/Application.pm b/lib/Maypole/Application.pm index 584b0e4..18cd589 100644 --- a/lib/Maypole/Application.pm +++ b/lib/Maypole/Application.pm @@ -4,8 +4,10 @@ use strict; use warnings; use UNIVERSAL::require; use Maypole; +use Maypole::Config; our @ISA; +our $VERSION = '2.07'; sub import { my ( $self, @plugins ) = @_; @@ -30,6 +32,8 @@ sub import { } } } + + $caller->config(Maypole::Config->new); $caller->setup() if $autosetup; } @@ -46,7 +50,7 @@ else { =head1 NAME -Maypole::Application - Maypole Universal Frontend +Maypole::Application - Universal Maypole Frontend =head1 SYNOPSIS @@ -83,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); @@ -100,3 +108,5 @@ Idea by Marcus Ramberg, C =head1 LICENSE You may distribute this code under the same terms as Perl itself. + +=cut