| blib/lib/Storable.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 16 | 26 | 61.5 |
| line | l | !l | condition |
|---|---|---|---|
| 47 | 0 | 31 | $main::Storable::{'logcroak'} and *{$main::Storable::{'logcroak'};}{'CODE'} |
| 53 | 0 | 31 | $main::Storable::{'logcarp'} and *{$main::Storable::{'logcarp'};}{'CODE'} |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 66 | 0 | 0 | 31 | eval { do { require Fcntl; 1 } } and exists $Fcntl::EXPORT_TAGS{'flock'} |
| 162 | 48 | 4 | 2 | $magic eq 'perl-store' and ord substr($buf, 0, 1) > 1 |
| line | l | !l | condition |
|---|---|---|---|
| 152 | 26 | 26 | $file || 1 |
| 284 | 96 | 0 | close FILE || undef $ret |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 103 | 0 | 0 | 0 | $Config::Config{'d_flock'} || $Config::Config{'d_fcntl_can_lock'} || $Config::Config{'d_lockf'} |
| 183 | 44 | 6 | 4 | $info{'version_nv'} ||= $info{'version'} |
| 190 | 24 | 9 | 0 | $len == 4 or $len == 8 |
| 284 | 0 | 1 | 95 | not close FILE || undef $ret or $@ |