| blib/lib/Module/Reader.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 25 | 51 | 49.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 22 | 3 | 0 | 0 | $^O eq 'VMS' && !!(require VMS::Filespec) |
| 56 | 65 | 0 | 18 | @_ == 1 and ref $_[-1] |
| 68 | 66 | 17 | 0 | exists $options{'found'} and $options{'found'} eq 1 |
| 163 | 24 | 0 | 49 | $self->{'pmc'} && $file =~ /\.pm\z/ |
| 211 | 14 | 0 | 9 | &reftype($cb[0]) eq 'GLOB' and &openhandle($cb[0]) |
| 246 | 0 | 70 | 0 | not exists $opts{'module'} and $opts{'filename'} |
| 0 | 12 | 58 | not exists $opts{'module'} and $opts{'filename'} and $opts{'filename'} =~ m[\A(\w+(?:/\w+)?)\.pm\z] | |
| 276 | 0 | 0 | 9 | $fh and not $cb |
| 297 | 0 | 0 | 0 | $fh and not $self->read_callback |
| 0 | 0 | 0 | $fh and not $self->read_callback and -f $fh |
| line | l | !l | condition |
|---|---|---|---|
| 25 | 3 | 0 | $Config::Config{'uvxformat'} || '' |
| 26 | 3 | 0 | $uvx ||= 'lx' |
| 38 | 15 | 3 | ref $_[-1] eq 'HASH' && pop @_ || {} |
| 46 | 0 | 0 | ref $_[-1] eq 'HASH' && pop @_ || {} |
| 66 | 78 | 5 | $options{'inc'} ||= \@INC |
| 215 | 14 | 9 | &reftype($cb[0]) || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 169 | 24 | 0 | 49 | -d _ || -b _ |
| 240 | 3 | 0 | 0 | "$]" >= 5.008 || (require IO::String, 0) |
| 264 | 9 | 0 | 0 | $_[0]{'raw_filehandle'} ||= !$_[0]{'disk_file'} ? undef : do { croak("Can't locate $_[0]{'disk_file'}") unless open my $fh, '<:', $_[0]{'disk_file'} } |