| blib/lib/ShipIt/VC/SVN.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 24 | 16.6 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 0 | 0 | unless my $url = $self->find_url |
| 74 | 0 | 0 | if $url =~ /[ \`\&\;]/ |
| 77 | 0 | 0 | unless $tag_base =~ s[/[^/]+$][] |
| 78 | 0 | 0 | unless ($$self{'dir_listed'}{$tag_base}++) |
| 92 | 3 | 1 | unless ($url =~ m[^[\w\+]+://]) |
| 95 | 1 | 3 | unless $url =~ /\%v/i |
| 118 | 0 | 0 | unless /^\?/ |
| 121 | 0 | 0 | if ($unk) |
| 126 | 0 | 0 | unless ($changed) |
| 135 | 0 | 0 | if system $command, 'ci', '--file', $tmp_fn |
| 151 | 0 | 0 | if system $self->command, 'copy', '--file', $tmp_fn, $$self{'url'}, $tag_url |
| 159 | 0 | 0 | $diff =~ /\S/ ? : |