blib/lib/Perlito/Perl5/Emitter.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 40 | 56 | 71.4 |
line | l | !l | condition |
---|---|---|---|
606 | 0 | 96 | $$self{'otherwise'} && scalar @{$$self{'otherwise'}->stmts;} |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
50 | 1122 | 0 | 1804 | $c ge 'a' and $c le 'z' |
1115 | 4 | 3 | $c ge 'A' and $c le 'Z' | |
832 | 14 | 273 | $c ge '0' and $c le '9' | |
279 | 511 | 144 | 0 | $$self{'sigil'} eq '@' and $$self{'twigil'} eq '*' |
655 | 0 | 0 | $$self{'sigil'} eq '@' and $$self{'twigil'} eq '*' and $$self{'name'} eq 'ARGS' | |
379 | 1 | 0 | 0 | Main::isa($$self{'invocant'}, 'Apply') and $$self{'invocant'}->code eq 'prefix:<@>' |
524 | 0 | 0 | 3 | $$self{'arguments'} and scalar @{$$self{'arguments'};} == 1 |
570 | 86 | 58 | 5 | Main::isa($parameters, 'Var') and $parameters->sigil eq '@' |
80 | 58 | 6 | Main::isa($parameters, 'Decl') and $parameters->var->sigil eq '@' | |
579 | 80 | 58 | 0 | Main::isa($parameters, 'Var') and $parameters->sigil eq '%' |
80 | 56 | 2 | Main::isa($parameters, 'Decl') and $parameters->var->sigil eq '%' | |
626 | 4 | 1 | 2 | Main::isa($cond, 'Var') and $cond->sigil eq '@' |
652 | 3 | 0 | 5 | Main::isa($cond, 'Var') and $cond->sigil eq '@' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
50 | 1804 | 0 | 1122 | $c ge 'a' and $c le 'z' or $c ge 'A' and $c le 'Z' |
3 | 0 | 1119 | $c ge 'a' and $c le 'z' or $c ge 'A' and $c le 'Z' or $c ge '0' and $c le '9' | |
273 | 813 | 33 | $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} | |
570 | 5 | 0 | 144 | Main::isa($parameters, 'Var') and $parameters->sigil eq '@' or Main::isa($parameters, 'Decl') and $parameters->var->sigil eq '@' |
579 | 0 | 0 | 138 | Main::isa($parameters, 'Var') and $parameters->sigil eq '%' or Main::isa($parameters, 'Decl') and $parameters->var->sigil eq '%' |