| line |
true |
false |
branch |
|
45
|
39 |
428 |
if ($s eq '') |
|
50
|
2893 |
33 |
if ($c ge 'a' and $c le 'z' or $c ge 'A' and $c le 'Z' or $c ge '0' and $c le '9' or exists $$Hash_safe_char{$c}) { } |
|
54
|
21 |
12 |
if ($tmp ne '') |
|
63
|
426 |
2 |
if ($tmp ne '') |
|
85
|
414 |
0 |
if (defined $_) |
|
275
|
0 |
655 |
if ($$self{'namespace'}) { } |
|
279
|
0 |
144 |
if ($$self{'sigil'} eq '@' and $$self{'twigil'} eq '*' and $$self{'name'} eq 'ARGS') |
|
282
|
3 |
652 |
if ($$self{'twigil'} eq '.') |
|
285
|
0 |
652 |
if ($$self{'name'} eq '/') |
|
293
|
0 |
131 |
if ($$self{'namespace'}) |
|
347
|
0 |
125 |
if ($invocant eq 'self') |
|
350
|
7 |
118 |
if (exists $$Hash_method_perl5{$$self{'method'}}) |
|
351
|
0 |
7 |
if ($$self{'hyper'}) { } |
|
358
|
30 |
88 |
if ($$self{'method'} eq 'push') |
|
361
|
1 |
87 |
if ($$self{'method'} eq 'unshift') |
|
364
|
0 |
87 |
if ($$self{'method'} eq 'pop') |
|
367
|
0 |
87 |
if ($$self{'method'} eq 'shift') |
|
370
|
1 |
86 |
if ($$self{'method'} eq 'elems') |
|
374
|
7 |
79 |
if ($meth eq 'postcircumfix:<( )>') |
|
378
|
1 |
85 |
if ($$self{'hyper'}) { } |
|
379
|
1 |
0 |
unless (Main::isa($$self{'invocant'}, 'Apply') and $$self{'invocant'}->code eq 'prefix:<@>') |
|
449
|
0 |
1012 |
if ($apply) |
|
453
|
6 |
1006 |
if ($$self{'namespace'}) |
|
457
|
1012 |
0 |
if (Main::isa($code, 'Str')) { } |
|
463
|
326 |
686 |
if (exists $$Hash_op_infix_perl5{$code}) |
|
466
|
288 |
398 |
if (exists $$Hash_op_prefix_perl5{$code}) |
|
469
|
0 |
398 |
if ($code eq 'self') |
|
472
|
1 |
397 |
if ($code eq 'Mu') |
|
475
|
0 |
397 |
if ($code eq 'make') |
|
478
|
0 |
397 |
if ($code eq 'array') |
|
481
|
0 |
397 |
if ($code eq 'pop') |
|
484
|
0 |
397 |
if ($code eq 'push') |
|
487
|
2 |
395 |
if ($code eq 'shift') |
|
490
|
0 |
395 |
if ($code eq 'unshift') |
|
493
|
5 |
390 |
if ($code eq 'prefix:<$>') |
|
496
|
7 |
383 |
if ($code eq 'prefix:<@>') |
|
499
|
0 |
383 |
if ($code eq 'prefix:<%>') |
|
502
|
0 |
383 |
if ($code eq 'postfix:<++>') |
|
505
|
0 |
383 |
if ($code eq 'postfix:<-->') |
|
508
|
1 |
382 |
if ($code eq 'infix:<..>') |
|
511
|
0 |
382 |
if ($code eq 'infix:<===>') |
|
514
|
36 |
346 |
if ($code eq 'ternary:') |
|
517
|
131 |
215 |
if ($code eq 'circumfix:<( )>') |
|
520
|
176 |
39 |
if ($code eq 'infix:<=>') |
|
523
|
3 |
36 |
if ($code eq 'return') |
|
524
|
3 |
0 |
if ($$self{'arguments'} and scalar @{$$self{'arguments'};} == 1) |
|
534
|
27 |
149 |
if (Main::isa($parameters, 'Call')) |
|
538
|
0 |
149 |
if (Main::isa($parameters, 'Lit::Array')) |
|
548
|
0 |
149 |
if (Main::isa($parameters, 'Lit::Hash')) |
|
561
|
0 |
0 |
if ($$var2[0]->buf eq $$var[0]->buf) |
|
570
|
11 |
138 |
if (Main::isa($parameters, 'Var') and $parameters->sigil eq '@' or Main::isa($parameters, 'Decl') and $parameters->var->sigil eq '@') { } |
|
579
|
2 |
136 |
if (Main::isa($parameters, 'Var') and $parameters->sigil eq '%' or Main::isa($parameters, 'Decl') and $parameters->var->sigil eq '%') |
|
606
|
96 |
0 |
$$self{'body'} ? : |
|
|
19 |
77 |
$$self{'otherwise'} && scalar @{$$self{'otherwise'}->stmts;} ? : |
|
626
|
2 |
5 |
if (Main::isa($cond, 'Var') and $cond->sigil eq '@') |
|
634
|
0 |
7 |
$$self{'init'} ? : |
|
|
7 |
0 |
$cond ? : |
|
|
0 |
7 |
$$self{'continue'} ? : |
|
652
|
3 |
5 |
unless (Main::isa($cond, 'Var') and $cond->sigil eq '@') |
|
661
|
6 |
2 |
if ($$self{'body'}->sig) |
|
684
|
2 |
129 |
if ($decl eq 'has') |
|
688
|
9 |
120 |
if ($$self{'var'}->sigil eq '%') { } |
|
692
|
53 |
67 |
if ($$self{'var'}->sigil eq '@') { } |
|
803
|
0 |
1 |
if ($$self{'mod'} eq 'v6') |