| perllib/Arch/Changes.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 20 | 60.0 |
| line | true | false | branch |
|---|---|---|---|
| 57 | 2 | 4 | $is_dir ? : |
| 74 | 1 | 5 | if defined $num |
| 95 | 0 | 4 | unless defined $to |
| 109 | 5 | 0 | if ($src_filepath eq $filepath and !defined($is_dir) || $$change{'is_dir'} == $is_dir) |
| 112 | 3 | 2 | $$change{'type'} ne '=' ? : |
| 117 | 0 | 0 | if ($$change{'type'} eq '=' and $$change{'is_dir'} and $filepath =~ m[^\Q$src_filepath\E(/.+)$] and not exists $$changed{'='}) |
| 124 | 0 | 4 | unless %$changed |
| 134 | 0 | 0 | if $dumper->can('Sortkeys') |
| 154 | 2 | 4 | if ($$change{'is_dir'}) { } |
| 155 | 0 | 2 | $$change{'type'} eq '=' ? : |