Branch Coverage
/usr/local/pkg/cover/20070318/sw/bin/gcov2perl
Criterion
Covered
Total
%
branch
12
20
60.0
line
true
false
branch
34
0
1
unless
GetOptions
$Options
,
(
'db=s'
,
'help|h!'
,
'info|i!'
,
'merge!'
,
'version|v!'
)
43
0
1
if
$
$Options
{
'version'
}
44
0
1
if
$
$Options
{
'help'
}
45
0
1
if
$
$Options
{
'info'
}
61
0
1
unless
open
F
,
$file
64
0
90
unless
my
(
$count
,
$line
)
=
/(.{9}):\s*(\d+):/
66
64
26
if
$count
eq
'-'
67
6
20
if
$count
eq
'#####'
73
0
1
unless
close
F
85
0
1
unless
-d
$db