blib/lib/Module/Reader.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 30 | 62 | 48.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
21 | 3 | 0 | 0 | $^O eq 'VMS' && !!(require VMS::Filespec) |
60 | 65 | 0 | 18 | @_ == 1 and ref $_[-1] |
72 | 66 | 17 | 0 | exists $options{'found'} and $options{'found'} eq 1 |
185 | 24 | 0 | 49 | $self->{'pmc'} && $file =~ /\.pm\z/ |
206 | 0 | 25 | 0 | $self->{'abort_on_eacces'} and $! == 13 |
25 | 0 | 0 | $self->{'abort_on_eacces'} and $! == 13 and not $pmc | |
240 | 14 | 0 | 6 | (&reftype($cb[0]) || '') eq 'GLOB' and &openhandle($cb[0]) |
276 | 0 | 0 | 67 | not exists $opts{'module'} and $opts{'filename'} |
0 | 12 | 55 | not exists $opts{'module'} and $opts{'filename'} and $opts{'filename'} =~ m[\A(\w+(?:/\w+)?)\.pm\z] | |
308 | 0 | 0 | 6 | $fh and not $cb |
330 | 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 |
---|---|---|---|
29 | 3 | 0 | $Config::Config{'uvxformat'} || '' |
31 | 3 | 0 | $uvx ||= 'lx' |
42 | 15 | 3 | ref $_[-1] eq 'HASH' && pop @_ || {} |
50 | 0 | 0 | ref $_[-1] eq 'HASH' && pop @_ || {} |
70 | 78 | 5 | $options{'inc'} ||= \@INC |
240 | 20 | 0 | &reftype($cb[0]) || '' |
244 | 14 | 6 | &reftype($cb[0]) || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
192 | 24 | 0 | 49 | -d _ or -b _ |
244 | 6 | 0 | 2 | defined $fh || defined $prefix |
270 | 3 | 0 | 0 | "$]" >= 5.008 || !(require IO::String) |
294 | 6 | 0 | 0 | $_[0]{'raw_filehandle'} ||= !$_[0]{'disk_file'} ? undef : do { croak("Can't locate $_[0]{'disk_file'}") unless open my $fh, '<:', $_[0]{'disk_file'}; $fh } |