Branch Coverage

blib/lib/PLON.pm
Criterion Covered Total %
branch 107 124 86.2


line true false branch
27 4 2 defined $_[1] ? :
28 6 0 if ($enable) { }
36 40 97 $_[0]{$name} ? :
60 3 70 if (defined $blessed) { }
70 2 74 unless (defined $value)
75 42 32 if (not defined $reftype) { }
3 29 elsif ($reftype eq 'SCALAR') { }
1 28 elsif ($reftype eq 'REF') { }
20 8 elsif ($reftype eq 'ARRAY') { }
2 6 elsif ($reftype eq 'CODE') { }
5 1 elsif ($reftype eq 'HASH') { }
1 0 elsif ($reftype eq 'GLOB') { }
77 12 30 if $flags & 12288 and $value * 0 == 0
80 2 28 if ($$self{'ascii'}) { }
82 2 0 if (&Encode::is_utf8($value)) { }
85 1 2 if ($_ =~ /\G[a-zA-Z0-9_ -]\z/) { }
131 11 32 if (exists $special_chars{$1}) { }
137 1 27 &Encode::is_utf8($value) ? :
141 1 2 if ($blessing) { }
158 1 1 if ($self->get_deparse) { }
160 0 1 $self->get_pretty ? :
162 0 1 if ($self->get_pretty) { }
175 1 4 if ($self->get_canonical)
200 25 32 unless (defined $n)
201 17 40 $self->get_pretty ? :
206 17 40 $self->get_pretty ? :
211 2 5 $self->get_pretty ? :
216 2 5 $self->get_pretty ? :
228 5 63 if (/\G$WS\{/cg) { }
18 45 elsif (/\G$WS\[/cg) { }
23 22 elsif (/\G$WS"/cg) { }
2 20 elsif (/\G${WS}undef/cg) { }
5 15 elsif (/\G$WS\\\(/cg) { }
2 13 elsif (/\G${WS}sub\s*\{/cg) { }
0 13 elsif (/\G$WS"/cg) { }
8 5 elsif (/\G$WS([0-9\.]+)/cg) { }
3 2 elsif (/\G${WS}bless\(/cg) { }
1 1 elsif (/\G${WS}do \{my \$o=/cg) { }
1 0 elsif (/\G$WS\*([a-zA-Z0-9_:]+)/cg) { }
262 0 5 unless /\G$WS=>$WS/cg
268 2 3 unless /\G$WS,/cg
294 0 3 unless /\G$WS,\s*/cg
297 0 3 unless /\G$WS\)/cg
305 0 5 unless /\G\s*\)/cg
314 0 1 unless /\G\}/cg
324 1 38 if (/\G\\"/cg) { }
1 37 elsif (/\G\\\$/cg) { }
1 36 elsif (/\G\\t/cg) { }
1 35 elsif (/\G\\n/cg) { }
1 34 elsif (/\G\\r/cg) { }
1 33 elsif (/\G\\f/cg) { }
1 32 elsif (/\G\\b/cg) { }
1 31 elsif (/\G\\a/cg) { }
1 30 elsif (/\G\\e/cg) { }
0 30 elsif (/\G\\$/cg) { }
1 29 elsif (/\G\\@/cg) { }
0 29 elsif (/\G\\%/cg) { }
1 28 elsif (/\G\\\\/cg) { }
1 27 elsif (/\G\\x\{([0-9a-fA-F]+)\}/cg) { }
27 0 elsif (/\G([^"\\]+)/cg) { }
360 1 22 &Encode::is_utf8($ret) ? :
370 0 0 if (/\G\z/cg) { }