| perllib/Arch/Registry.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 59 | 0.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 44 | 0 | 0 | 0 | $archive && has_register_archive_name_arg |
| 68 | 0 | 0 | 0 | $line and $line =~ s/^(\s+)// |
| 91 | 0 | 0 | 0 | $dir and -d $dir |
| 120 | 0 | 0 | 0 | $$self{'web_cache'} && $$self{'web_cache_flag'} =~ /^enabled|nowrite$/ |
| 122 | 0 | 0 | 0 | $$self{'web_cache'} && $$self{'web_cache_flag'} =~ /^enabled|noread$/ |
| 132 | 0 | 0 | 0 | $read_cache and -f $cached_file_name |
| 0 | 0 | 0 | $read_cache and -f $cached_file_name and 86400 * (-M $cached_file_name) < $$self{'web_cache'}{'ttl'} | |
| 144 | 0 | 0 | 0 | $write_cache and not $content_from_cache |
| line | l | !l | condition |
|---|---|---|---|
| 61 | 0 | 0 | shift() || die() |
| 62 | 0 | 0 | shift() || 0 |
| 72 | 0 | 0 | $$values[0] || die("No expected value line for '${key}'") |
| 92 | 0 | 0 | $args{'ttl'} || 10800 |
| 107 | 0 | 0 | shift() || 'disabled' |
| 174 | 0 | 0 | shift() || '.*' |
| 175 | 0 | 0 | shift() || '.*' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 66 | 0 | 0 | 0 | @$lines or @$values |
| 118 | 0 | 0 | 0 | $$self{'web'} ||= 'Arch::LiteWeb'->new |
| 119 | 0 | 0 | 0 | $$self{'tmp'} ||= 'Arch::TempFiles'->new |
| 128 | 0 | 0 | 0 | $read_cache or $write_cache |
| 141 | 0 | 0 | 0 | $content ||= $web->get($url) |
| 160 | 0 | 0 | 0 | $$self{'supermirror_archive_locations'} ||= $self->_get_and_parse_gzipped_url($SUPERMIRROR_ARCHIVES_URL) |
| 168 | 0 | 0 | 0 | $$self{'supermirror_archive_versions'} ||= $self->_get_and_parse_gzipped_url($SUPERMIRROR_VERSIONS_URL, 1) |