summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
6f3e2ec)
use strict;
use warnings;
use strict;
use warnings;
+our @ISA;
+
+sub import {
+ my ( $self, @plugins ) = @_;
+ return unless $plugins[0];
+ my $caller=caller(0);
+ no strict 'refs';
+ push @{"${caller}::ISA"}, $self;
+ "Maypole::$_"->require && unshift @ISA, "Maypole::$_" foreach (@plugins);
+}
+
if ( $ENV{MOD_PERL} ) {
require Apache::MVC;
if ( $ENV{MOD_PERL} ) {
require Apache::MVC;
- our @ISA = qw(Apache::MVC);
+ push @ISA , qw(Apache::MVC);
}
else {
require CGI::Maypole;
}
else {
require CGI::Maypole;
- our @ISA = qw(CGI::Maypole);
+ push @ISA , qw(CGI::Maypole);