| line |
true |
false |
branch |
|
54
|
3 |
97 |
($hook = $levels{$name}) ? : |
|
70
|
0 |
30 |
if (ref($stream[$#stream]) =~ /Devel::Declare::Lexer::Token::Newline/) |
|
81
|
12 |
226 |
if (ref($token) =~ /Devel::Declare::Lexer::Token::RightBracket/ and $$token{'value'} =~ /\]/) |
|
86
|
12 |
214 |
if (ref($token) =~ /Devel::Declare::Lexer::Token::LeftBracket/ and $$token{'value'} =~ /\[/) |
|
91
|
4 |
38 |
if ($nested == 0 and ref($token) =~ /Devel::Declare::Lexer::Token::Bareword/ and $$token{'value'} eq 'if' || $$token{'value'} eq 'unless') |
|
100
|
4 |
26 |
if ($ifStart > -1) |
|
113
|
11 |
137 |
if (ref($token) =~ /Devel::Declare::Lexer::Token::RightBracket/ and $$token{'value'} =~ /\]/) |
|
118
|
11 |
126 |
if (ref($token) =~ /Devel::Declare::Lexer::Token::LeftBracket/ and $$token{'value'} =~ /\[/) |
|
121
|
11 |
0 |
if ($nested == 0) |
|
122
|
1 |
10 |
if ($stream[$i - 1] and not ref($stream[$i - 1]) =~ /Devel::Declare::Lexer::Token::Whitespace/) |
|
134
|
10 |
20 |
if ($catStart > -1) |
|
143
|
10 |
20 |
if (scalar @catTokens) |
|
146
|
0 |
46 |
if (ref($token) =~ /Devel::Declare::Lexer::Token::Comma/) |
|
147
|
0 |
0 |
if $buf |
|
151
|
0 |
46 |
if $buf eq '' and ref($token) =~ /Devel::Declare::Lexer::Token::Whitespace/ |
|
154
|
10 |
0 |
if $buf |
|
156
|
20 |
10 |
if scalar @categories == 0 |
|
167
|
5 |
159 |
if (ref($tok) =~ /Devel::Declare::Lexer::Token::LeftBracket/) |
|
171
|
5 |
154 |
if (ref($tok) =~ /Devel::Declare::Lexer::Token::RightBracket/) |
|
175
|
21 |
112 |
if ($nest == 0 and ref($tok) =~ /Devel::Declare::Lexer::Token::Operator/ and $$tok{'value'} =~ /,/) |
|
191
|
14 |
16 |
if ($bits) { } |
|
192
|
14 |
0 |
if $bits |
|
194
|
14 |
0 |
if $bits |
|
228
|
18 |
0 |
if (@_) { } |
|
243
|
0 |
0 |
unless $statement |
|
260
|
2 |
28 |
unless $level >= $LEVEL |
|
262
|
28 |
0 |
if ($categories) |
|
263
|
28 |
0 |
scalar @$categories > 0 ? : |
|
267
|
0 |
28 |
$ENV{'LOG_DECLARE_USE_LOCALTIME'} ? : |
|
270
|
26 |
2 |
if substr($message, -1) ne "\n" |
|
284
|
1 |
1 |
if $coderef |
|
314
|
0 |
2 |
if $t{':nosyntax'} |
|
318
|
12 |
0 |
unless $t{":no$name"} |