| line |
true |
false |
branch |
|
47
|
0 |
36 |
unless $len |
|
52
|
0 |
36 |
unless $name eq $decl |
|
78
|
34 |
20 |
if (my $len = Devel::Declare::toke_scan_word($self->offset, 1)) |
|
93
|
0 |
0 |
if (my $len = Devel::Declare::toke_scan_ident($self->offset)) |
|
110
|
26 |
12 |
if (substr($linestr, $self->offset, 1) eq '(') |
|
116
|
25 |
1 |
defined $length ? : |
|
132
|
1 |
1 |
if (substr($linestr, $self->offset, 1) eq '(') { } |
|
146
|
0 |
3 |
unless defined $thing |
|
150
|
2 |
1 |
if (substr($linestr, $self->offset, 1) eq '(') { } |
|
160
|
2 |
1 |
if (substr($linestr, $self->offset, 1) eq ',') { } |
|
173
|
1 |
0 |
if (substr($linestr, $self->offset, 1) eq ')') { } |
|
186
|
0 |
1 |
unless defined $thing |
|
189
|
0 |
1 |
if (substr($linestr, $self->offset, 1) eq '(') { } |
|
208
|
1 |
17 |
if (substr($linestr, $self->offset, 1) eq ':') |
|
210
|
1 |
1 |
if (substr($linestr, $self->offset, 1) eq ':') |
|
220
|
1 |
1 |
if (my $len = Devel::Declare::toke_scan_word($self->offset, 0)) |
|
227
|
0 |
1 |
if (substr($linestr, $self->offset, 1) eq '(') |
|
265
|
33 |
3 |
if (substr($linestr, $self->offset, 1) eq '{') |
|
285
|
0 |
21 |
unless defined $linestr |