File Coverage

blib/lib/Class/Component/Component/AutoloadPlugin.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	8	8	100.0
condition	1	3	33.3
subroutine	4	4	100.0
pod	0	1	0.0
total	34	37	91.8

package Class::Component::Component::AutoloadPlugin;
use strict;
use warnings;

sub autoload_plugins {
    my($class, @plugins) = @_;

    for my $plugin (@plugins) {
        my $name = ref $plugin ? $plugin->{module} : $plugin;
        unless (_is_loaded($class, $name)) {
            $class->load_plugins($plugin);
        }
    }
}

sub _is_loaded {
    my ($c, $stuff) = @_;

    my $base = ref $c || $c;

    for my $plugin (@{ $c->class_component_plugins }) {
        my $module = ref $plugin;
        my $pkg = $stuff;
        unless (($pkg = $stuff) =~ s/^\+//) {
            $module =~ s/^$base\::Plugin\:://;
        }
        return 1 if $pkg eq $module;
    }

    return;
}

1;