| line |
true |
false |
branch |
|
23
|
26 |
0 |
defined $self->{'array1'} ? : |
|
24
|
7 |
19 |
if (Main::isa($item, 'Apply') and $item->code eq 'circumfix:<( )>' || $item->code eq 'list:<,>') { } |
|
34
|
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:<..>') |
|
38
|
4 |
22 |
if ($needs_interpolation and scalar @{$List_items;} == 1) |
|
43
|
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:<..>') { } |
|
115
|
4 |
0 |
defined $self->{'hash1'} ? : |
|
116
|
1 |
3 |
if (Main::isa($item, 'Apply') and $item->code eq 'circumfix:<( )>' || $item->code eq 'list:<,>') { } |
|
127
|
2 |
2 |
if (Main::isa($item, 'Apply') and $item->code eq 'infix:<=>>') { } |
|
137
|
2 |
0 |
if (Main::isa($item, 'Var') and $item->sigil eq '%' or Main::isa($item, 'Apply') and $item->code eq 'prefix:<%>') { } |
|
205
|
1012 |
0 |
if (Main::isa($code, 'Str')) { } |
|
211
|
0 |
1012 |
if (exists $Hash_op->{$code}) |
|
215
|
0 |
0 |
defined $self->{'arguments'} ? : |
|
216
|
0 |
0 |
defined $self->{'arguments'} ? : |
|
231
|
70 |
53 |
if (Main::isa($self->{'block'}, 'Lit::Block')) { } |
|
242
|
71 |
52 |
if (scalar @{$block;} == 1) |
|
244
|
16 |
55 |
if (Main::isa($stmt, 'Apply') and $stmt->code eq 'circumfix:<( )>') |
|
248
|
42 |
13 |
if (Main::isa($stmt, 'Do')) |