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
26
unless
open
F
,
$file
64
0
3802
unless
my
(
$count
,
$line
)
=
/(.{9}):\s*(\d+):/
66
3230
572
if
$count
eq
'-'
67
30
542
if
$count
eq
'#####'
73
0
26
unless
close
F
85
0
26
unless
-d
$db