| blib/lib/Module/Pluggable/Object.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 54 | 63 | 85.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 44 | 92 | 31 | 21 | exists $$self{$_} and not ref $$self{$_} |
| 58 | 72 | 0 | 0 | exists $INC{'blib.pm'} && defined $filename && $filename =~ m[(^|/)blib/] && !$$self{'force_search_all_paths'} |
| 145 | 458 | 16 | 16 | keys %only and not $only{$plugin} |
| 148 | 425 | 32 | 8 | keys %except and $except{$plugin} |
| 149 | 437 | 16 | 4 | defined $except and $plugin =~ /$except/ |
| 151 | 446 | 6 | 1 | defined $$self{'max_depth'} and $depth > $$self{'max_depth'} |
| 152 | 447 | 2 | 3 | defined $$self{'min_depth'} and $depth < $$self{'min_depth'} |
| 184 | 651 | 0 | 79 | -e $sp and -d _ |
| 195 | 3 | 178 | 1 | not $$self{'include_editor_junk'} and $self->_is_editor_junk($name) |
| 332 | 729 | 0 | 1 | ref $dir and eval { do { $dir->can('files') } } |
| 346 | 144 | 5 | 3 | exists $$self{'inner'} and not $$self{'inner'} |
| line | l | !l | condition |
|---|---|---|---|
| 48 | 48 | 24 | $$self{'search_path'} ||= ["${pkg}::Plugin"] |
| 51 | 24 | 48 | $$self{'on_require_error'} ||= sub { my($plugin, $err) = @_; carp("Couldn't require $plugin : $err"); return 0; } |
| 52 | 23 | 49 | $$self{'on_instantiate_error'} ||= sub { my($plugin, $err) = @_; carp("Couldn't instantiate ${plugin}: $err"); return 0; } |
| 272 | 86 | 182 | shift() || 0 |
| 280 | 10 | 1 | $$self{'before_require'}($plugin) or return |
| 294 | 6 | 3 | $$self{'after_require'}($plugin) or return |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 146 | 457 | 8 | 9 | not defined $only or $plugin =~ /$only/ |
| 175 | 20 | 700 | 0 | $$self{'file_regex'} || qr/\.pm$/ |
| 203 | 0 | 2 | 179 | $name eq lc $name or $name eq uc $name |
| 210 | 0 | 0 | 2 | $in_pod or $line =~ /^=cut/ |
| 275 | 32 | 71 | 124 | defined $$self{'instantiate'} or $$self{'require'} |
| 301 | 2 | 78 | 0 | $$self{'file_regex'} || qr/\.pm$/ |