| line |
true |
false |
branch |
|
55
|
0 |
27 |
if (@_ == 1 and ref $_[0] and not UNIVERSAL::isa($_[0], 'HASH')) { } |
|
88
|
0 |
0 |
unless ref $self |
|
109
|
0 |
27 |
unless ref $self |
|
111
|
0 |
27 |
ref $_[1] ? : |
|
112
|
0 |
27 |
ref $_[2] ? : |
|
113
|
0 |
27 |
ref $_[3] ? : |
|
114
|
0 |
27 |
ref $_[4] ? : |
|
131
|
0 |
0 |
unless defined $self->defs->{$name} |
|
132
|
0 |
0 |
if (index($SpecialTypes, $type) + 1) |
|
135
|
0 |
0 |
if ($list) { } |
|
140
|
0 |
0 |
if ($color) |
|
158
|
0 |
2 |
unless ref $self |
|
166
|
0 |
114 |
if (ref $out) { } |
|
171
|
112 |
2 |
if (/^\@([KPOVNWLHE])([A-Z0-9])* ($attr_name_re)(?:\|(.*))?/o) { } |
|
|
2 |
0 |
elsif (/^\r*$/o) { } |
|
172
|
0 |
112 |
if ($1 eq 'E') |
|
173
|
0 |
0 |
if (defined $self->special('E')) { } |
|
175
|
0 |
0 |
if (ref $handle ne 'ARRAY') |
|
177
|
0 |
0 |
if ($count > 0) |
|
186
|
6 |
106 |
if (index($SpecialTypes, $1) + 1) |
|
189
|
100 |
12 |
unless defined $self->defs->{$3} |
|
190
|
2 |
110 |
if ($4) { } |
|
195
|
10 |
102 |
if ($2) |
|
216
|
0 |
1 |
unless ref $self |
|
226
|
1 |
55 |
if ($ad[0] =~ /^L=(.*)/) { } |
|
230
|
1 |
0 |
if @ad and $ad[0] =~ /^[A0-3]/ |
|
233
|
55 |
0 |
if @ad |
|
234
|
4 |
51 |
if @ad and $ad[0] =~ /^[A0-3]/ |
|
253
|
0 |
1 |
unless ref $self |
|
277
|
0 |
27 |
unless ref $self |
|
299
|
0 |
0 |
unless defined $hide |
|
319
|
403 |
0 |
ref $self ? : |
|
332
|
147 |
0 |
ref $self ? : |
|
347
|
114 |
0 |
ref $self ? : |
|
366
|
0 |
12 |
if $v =~ /$re/o |
|
376
|
0 |
0 |
if index($defs->{$_}, " $defchar") >= 0 |
|
419
|
0 |
0 |
ref $self ? : |
|
432
|
0 |
0 |
ref $self ? : |
|
445
|
0 |
0 |
ref $self ? : |
|
459
|
2 |
98 |
index($self->defs->{$attrib}, ' L') >= 0 ? : |
|
472
|
0 |
2 |
unless ref $self |
|
477
|
2 |
0 |
if ($b >= 0) { } |
|
479
|
2 |
0 |
if ($e >= 0) { } |
|
498
|
0 |
0 |
unless ref $self |
|
500
|
0 |
0 |
if (index($self->defs->{$arg}, ' 1') >= 0) { } |
|
|
0 |
0 |
elsif (index($self->defs->{$arg}, ' 2') >= 0) { } |
|
|
0 |
0 |
elsif (index($self->defs->{$arg}, ' 3') >= 0) { } |
|
544
|
0 |
0 |
ref $self ? : |
|
558
|
0 |
0 |
ref $self ? : |
|
575
|
0 |
0 |
unless ref $self |
|
576
|
0 |
0 |
unless defined $separator |
|
602
|
0 |
0 |
if ($node->type) { } |
|
604
|
0 |
0 |
if (ref $node->{$atr}) { } |
|
628
|
0 |
0 |
unless $node |
|
634
|
0 |
0 |
if ($prev_nc) { } |