1 package Maypole::Application;
9 my ( $self, @plugins ) = @_;
10 return unless $plugins[0];
13 push @{"${caller}::ISA"}, $self;
14 "Maypole::$_"->require && unshift @ISA, "Maypole::$_" foreach (@plugins);
17 if ( $ENV{MOD_PERL} ) {
19 push @ISA , qw(Apache::MVC);
23 push @ISA , qw(CGI::Maypole);
30 Maypole::Application - all in wonder front-end
34 use base 'Maypole::Application';
38 The all in wonder front-end.
42 Sebastian Riedel, C<sri@oook.de>
43 Idea by Marcus Ramberg, C<marcus@thefeed.no>
47 You may distribute this code under the same terms as Perl itself.