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) |