| line |
true |
false |
branch |
|
29
|
0 |
1 |
unless my $pack = $params{'pack'} |
|
34
|
0 |
1 |
unless my $fh = 'IO::File'->new("<$filename") |
|
46
|
0 |
70 |
if ($line =~ /^\# (\d+) \"([^\"]+)\"[ 0-9]*$/) |
|
56
|
22 |
48 |
if ($line eq '') { } |
|
|
3 |
45 |
elsif ($line =~ /^reg\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)(.*)$/) { } |
|
|
7 |
38 |
elsif ($line =~ /^type\s+(\S+)\s*(.*)$/) { } |
|
|
24 |
14 |
elsif ($line =~ /^bit\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+([^\"]*)"(.*)"$/) { } |
|
|
2 |
12 |
elsif ($line =~ /^enum\s+(\S+)\s*(.*)$/) { } |
|
|
7 |
5 |
elsif ($line =~ /^const\s+(\S+)\s+(\S+)\s+([^\"]*)"(.*)"$/) { } |
|
|
4 |
1 |
elsif ($line =~ /^define\s+(\S+)\s+(\S+)\s+([^\"]*)"(.*)"$/) { } |
|
|
1 |
0 |
elsif ($line =~ /^package\s+(\S+)\s*(.*)$/) { } |
|
64
|
2 |
1 |
if $type =~ s/(\[.*\])// |
|
78
|
2 |
5 |
if $flags =~ s/:(\S+)// |
|
88
|
3 |
4 |
if $regref and $typemnem =~ /^R_/ |
|
92
|
0 |
24 |
unless ($typeref) |
|
133
|
2 |
2 |
if $rst =~ /^"(.*)"$/ |
|
155
|
0 |
1 |
unless $got_a_line |