File Coverage

blib/lib/Cot/Plugin.pm

Criterion	Covered	Total	%
statement	22	26	84.6
branch	3	6	50.0
condition			n/a
subroutine	7	8	87.5
pod	0	2	0.0
total	32	42	76.1

package Cot::Plugin;

use strict;
use warnings;
use 5.008005;
our $VERSION = "0.11";
$VERSION = eval $VERSION;
use Carp;

sub import {
    my $class = shift;
    my $pkg   = caller(0);
    if ( $class eq 'Cot::Plugin' ) {
        foreach (@_) {
            my $klass = "Cot::Plugin::$_";
            eval "require $klass" or croak "Plugin[$_] is not installed.";
            $klass->_regist($pkg);
        }
        return;
    }
    $class->_regist($pkg);
}

sub _regist {
    my ( $class, $pkg ) = @_;
    croak "$pkg is not Cot object[$class importing...]"
      unless $pkg->isa('Cot');
    $pkg->_register_plugin($class);
}
sub new { bless {}, shift; }

sub init {
    my ( $self, $c ) = @_;
}

1;
__END__