| 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; } |