| blib/lib/Module/Pluggable/Object.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 52 | 63 | 82.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 58 | 92 | 31 | 21 | exists $self->{$_} and not ref $self->{$_} |
| 72 | 72 | 0 | 0 | exists $INC{'blib.pm'} && defined $filename && $filename =~ m[(^|/)blib/] && !$self->{'force_search_all_paths'} |
| 159 | 438 | 16 | 16 | keys %only and not $only{$plugin} |
| 162 | 405 | 40 | 0 | keys %except and $except{$plugin} |
| 163 | 417 | 16 | 4 | defined $except and $plugin =~ /$except/ |
| 165 | 426 | 6 | 1 | defined $self->{'max_depth'} and $depth > $self->{'max_depth'} |
| 166 | 427 | 2 | 3 | defined $self->{'min_depth'} and $depth < $self->{'min_depth'} |
| 198 | 653 | 0 | 77 | -e $sp and -d _ |
| 209 | 3 | 176 | 1 | not $self->{'include_editor_junk'} and $self->_is_editor_junk($name) |
| 346 | 729 | 0 | 1 | ref $dir and eval { do { $dir->can('files') } } |
| 360 | 142 | 5 | 3 | exists $self->{'inner'} and not $self->{'inner'} |
| line | l | !l | condition |
|---|---|---|---|
| 62 | 48 | 24 | $self->{'search_path'} ||= ["${pkg}::Plugin"] |
| 65 | 24 | 48 | $self->{'on_require_error'} ||= sub { my($plugin, $err) = @_; carp("Couldn't require $plugin : $err"); return 0; } |
| 66 | 23 | 49 | $self->{'on_instantiate_error'} ||= sub { my($plugin, $err) = @_; carp("Couldn't instantiate ${plugin}: $err"); return 0; } |
| 286 | 78 | 180 | shift() || 0 |
| 294 | 10 | 1 | $self->{'before_require'}->($plugin) or return |
| 308 | 6 | 3 | $self->{'after_require'}->($plugin) or return |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 160 | 437 | 8 | 9 | not defined $only or $plugin =~ /$only/ |
| 189 | 20 | 700 | 0 | $self->{'file_regex'} || qr/\.pm$/ |
| 217 | 0 | 2 | 177 | $name eq lc $name or $name eq uc $name |
| 224 | 0 | 0 | 2 | $in_pod or $line =~ /^=cut/ |
| 289 | 27 | 0 | 190 | defined $self->{'instantiate'} or $self->{'require'} |
| 315 | 2 | 76 | 0 | $self->{'file_regex'} || qr/\.pm$/ |