1 package Maypole::Application;
9 my ( $self, @plugins ) = @_;
10 my $caller = caller(0);
12 push @{"${caller}::ISA"}, $self;
14 "Maypole::$_"->require or warn qq(Loading plugin "Maypole::$_" failed);
15 unshift @ISA, "Maypole::$_";
19 if ( $ENV{MOD_PERL} ) {
20 require Apache::MVC or die 'Loading Apache frontend failed';
21 push @ISA, qw(Apache::MVC);
24 require CGI::Maypole or die 'Loading CGI frontend failed';
25 push @ISA, qw(CGI::Maypole);
32 Maypole::Application - Maypole Universal Frontend
36 use Maypole::Application;
40 This is a universal frontend for mod_perl1, mod_perl2 and CGI.
42 You can omit the Maypole:: prefix from plugins.
43 So Maypole::Config::YAML becomes Config::YAML.
45 use Maypole::Application qw(Config::YAML);
49 Sebastian Riedel, C<sri@oook.de>
50 Idea by Marcus Ramberg, C<marcus@thefeed.no>
54 You may distribute this code under the same terms as Perl itself.