| line |
true |
false |
branch |
|
25
|
7 |
19 |
if (Main::isa($item, 'Apply') and $item->code eq 'circumfix:<( )>' || $item->code eq 'list:<,>') { } |
|
35
|
5 |
6 |
if (Main::isa($item, 'Var') and $item->sigil eq '@' or Main::isa($item, 'Apply') and $item->code eq 'prefix:<@>' || $item->code eq 'infix:<..>') |
|
39
|
4 |
22 |
if ($needs_interpolation and scalar @{$List_items;} == 1) |
|
44
|
1 |
29 |
if (Main::isa($item, 'Var') and $item->sigil eq '@' or Main::isa($item, 'Apply') and $item->code eq 'prefix:<@>' || $item->code eq 'infix:<..>') { } |
|
118
|
1 |
3 |
if (Main::isa($item, 'Apply') and $item->code eq 'circumfix:<( )>' || $item->code eq 'list:<,>') { } |
|
129
|
2 |
2 |
if (Main::isa($item, 'Apply') and $item->code eq 'infix:<=>>') { } |
|
139
|
2 |
0 |
if (Main::isa($item, 'Var') and $item->sigil eq '%' or Main::isa($item, 'Apply') and $item->code eq 'prefix:<%>') { } |
|
207
|
1012 |
0 |
if (Main::isa($code, 'Str')) { } |
|
213
|
0 |
1012 |
if (exists $$Hash_op{$code}) |
|
233
|
70 |
53 |
if (Main::isa($$self{'block'}, 'Lit::Block')) { } |
|
244
|
71 |
52 |
if (scalar @{$block;} == 1) |
|
246
|
16 |
55 |
if (Main::isa($stmt, 'Apply') and $stmt->code eq 'circumfix:<( )>') |
|
250
|
42 |
13 |
if (Main::isa($stmt, 'Do')) |