blib/lib/Module/Pluggable/Fast.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 5 | 14 | 35.7 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
76 | 8 | 0 | 0 | -e $sp and -d $sp |
120 | 0 | 0 | 0 | -l $path and not -e $path |
line | l | !l | condition |
---|---|---|---|
59 | 0 | 3 | $args{'name'} || 'plugins' |
61 | 0 | 2 | $args{'search'} ||= ["${caller}::Plugin"] |
62 | 2 | 0 | $args{'require'} ||= 0 |
69 | 0 | 2 | $args{'callback'} ||= sub { my $plugin = shift(); my $obj = $plugin; eval { do { $obj = $plugin->new(@_) } }; carp(qq[Couldn't instantiate "$plugin", "$@"]) if $@; return $obj; } |