view release on metacpan or  search on metacpan

lib/CGI/Application/Pluggable.pm  view on Meta::CPAN

package CGI::Application::Pluggable;

use strict;
use warnings;
use base 'CGI::Application';
use UNIVERSAL::require '0.10';
our $VERSION = '0.03';

sub import {
    my ( $self, @options ) = @_;
    my $caller = caller(0);

    {
        no strict 'refs';
        push @{"$caller\::ISA"}, $self;
    }

    for my $option ( @options ) {
        if ( ref $option eq 'HASH') {
            my ($plugin,$imports) = each(%{$option});
            my $plaggable = $self->_mk_plugin_name($plugin);