Branch Coverage

script/git-perl
Criterion Covered Total %
branch 81 108 75.0


line true false branch
53 25 0 unless $gitdirs
54 0 25 unless -d $gitdirs
101 0 11 unless $url
105 11 0 if (length $response->{'content'})
115 1 30 unless ($name)
123 28 2 unless ($value)
133 1 1 if ($name eq "--unset")
140 2 0 if ($name and $value)
144 1 1 unless $unset
147 1 1 if (-z "$configfile")
158 0 10 unless $module
160 6 4 if ($module =~ /::/) { }
184 8 2 if ($content =~ /"resources".* "repository".* "url" : "([^"]*)"/s)
190 2 8 unless ($repository)
201 0 8 if $subdir and not -d "$gitdirs/$subdir"
202 6 2 if ($subdir) { }
206 2 0 if $subdir
214 0 6 unless $subdir
215 0 6 unless (-d "$gitdirs/$subdir")
224 0 6 if $subdir eq "."
225 0 6 if $subdir eq ".."
227 6 0 if ($subdir and -d "$gitdirs/$subdir")
231 6 0 if ($removed and not -d "$gitdirs/$subdir") { }
240 0 6 unless $module
246 2 4 if (-d "$gitdirs/$module")
251 4 2 unless ($subdir)
254 1 3 unless $subdir
259 2 3 if ($subcommand and $subcommand eq "remove")
270 3 0 if ($lasttag) { }
283 1 24 unless ($command)
288 1 23 if ($command eq "recent")
296 100 2 if ($record =~ /"author" : "([^"]*)".* "date" : "([^"]*)".* "name" : "([^"]*)"/s)
311 5 18 if ($command eq "clone")
313 0 5 unless $module
318 2 0 if ($subcommand and $subcommand eq "remove" and -d "$module")
326 0 3 unless $subdir
330 0 3 if ($subcommand and $subcommand eq "remove")
338 5 13 if ($command eq "log")
340 0 5 unless $module
348 7 6 if ($command eq "local")
350 6 1 if $subdir
351 3 4 if ($subdir and not -d "$gitdirs/$subdir")
353 2 1 if $newsubdir
355 3 4 if ($subdir and $subcommand)
356 2 1 if ($subcommand eq "remove")
360 1 0 if ($subcommand eq "log")
369 3 1 if ($subdir)
370 1 2 unless $local =~ /$subdir/
379 0 3 unless ($modulefile)
383 0 3 unless ($modulefile)
387 3 0 if ($modulefile) { }
390 3 0 unless ($module)
409 6 0 if ($command eq "config")
413 2 4 if $output