| inc/Module/Pluggable/Object.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 28 | 63 | 44.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 58 | 38 | 33 | 5 | exists $self->{$_} and not ref $self->{$_} |
| 72 | 1 | 0 | 37 | exists $INC{'blib.pm'} && defined $filename && $filename =~ m[(^|/)blib/] && !$self->{'force_search_all_paths'} |
| 159 | 692 | 0 | 0 | keys %only and not $only{$plugin} |
| 162 | 692 | 0 | 0 | keys %except and $except{$plugin} |
| 163 | 692 | 0 | 0 | defined $except and $plugin =~ /$except/ |
| 165 | 692 | 0 | 0 | defined $self->{'max_depth'} and $depth > $self->{'max_depth'} |
| 166 | 692 | 0 | 0 | defined $self->{'min_depth'} and $depth < $self->{'min_depth'} |
| 198 | 111 | 0 | 38 | -e $sp and -d _ |
| 209 | 0 | 124 | 0 | not $self->{'include_editor_junk'} and $self->_is_editor_junk($name) |
| 346 | 149 | 0 | 0 | ref $dir and eval { do { $dir->can('files') } } |
| 360 | 76 | 0 | 0 | exists $self->{'inner'} and not $self->{'inner'} |
| line | l | !l | condition |
|---|---|---|---|
| 62 | 38 | 0 | $self->{'search_path'} ||= ["${pkg}::Plugin"] |
| 65 | 33 | 5 | $self->{'on_require_error'} ||= sub { my($plugin, $err) = @_; carp("Couldn't require $plugin : $err"); return 0; } |
| 66 | 33 | 5 | $self->{'on_instantiate_error'} ||= sub { my($plugin, $err) = @_; carp("Couldn't instantiate ${plugin}: $err"); return 0; } |
| 286 | 222 | 124 | shift() || 0 |
| 294 | 0 | 0 | $self->{'before_require'}->($plugin) or return |
| 308 | 0 | 0 | $self->{'after_require'}->($plugin) or return |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 160 | 692 | 0 | 0 | not defined $only or $plugin =~ /$only/ |
| 189 | 0 | 149 | 0 | $self->{'file_regex'} || qr/\.pm$/ |
| 217 | 0 | 0 | 124 | $name eq lc $name or $name eq uc $name |
| 224 | 0 | 0 | 0 | $in_pod or $line =~ /^=cut/ |
| 289 | 0 | 333 | 13 | defined $self->{'instantiate'} or $self->{'require'} |
| 315 | 0 | 38 | 0 | $self->{'file_regex'} || qr/\.pm$/ |