File Coverage

blib/lib/Nephia/Plugin.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	6	8	75.0
condition			n/a
subroutine	10	10	100.0
pod	4	5	80.0
total	53	56	94.6

package Nephia::Plugin;
use strict;
use warnings;
use Carp;

sub new {
    my ($class, %opts) = @_;
    $class->_check_needs($opts{app});
    $class->_check_requires($opts{app});
    return bless {%opts}, $class;
}

sub app {
    my $self = shift;
    return $self->{app};
}

sub exports {
    my $self = shift;
    return ();
}

sub needs { return () }

sub requires { return () }

sub _check_needs {
    my ($class, $app) = @_;
    local $Carp::CarpLevel = $Carp::CarpLevel + 1;
    for my $need ($class->needs) {
        $need = $need =~ /^Nephia::Plugin/ ? $need : "Nephia::Plugin::$need";
        croak "$class needs $need, you have to load $need first" unless $app->loaded_plugins->index($need) > 0;
    }
}

sub _check_requires {
    my ($class, $app) = @_;
    return unless $app;
    local $Carp::CarpLevel = $Carp::CarpLevel + 1;

    my @plugins = $app->loaded_plugins;
    my @exports = map { $_->exports } @plugins;

    for my $requires ($class->requires) {
        croak "$class requires $requires DSL, you have to load some plugin that provides $requires DSL" unless grep { $_ eq $requires } @exports;
    }
}

1;

__END__