1 package Maypole::Application;
9 my ( $self, @plugins ) = @_;
10 return unless $plugins[0];
11 my $caller = caller(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 - Maypole Universal Frontend
34 use Maypole::Application;
38 This is a universal frontend for mod_perl1, mod_perl2 and CGI.
40 You can omit the Maypole:: prefix from plugins.
41 So Maypole::Config::YAML becomes Config::YAML.
43 use Maypole::Application qw(Config::YAML);
47 Sebastian Riedel, C<sri@oook.de>
48 Idea by Marcus Ramberg, C<marcus@thefeed.no>
52 You may distribute this code under the same terms as Perl itself.