| line |
true |
false |
branch |
|
43
|
32 |
11 |
if (exists $nsmap->{$uri}) |
|
47
|
0 |
32 |
if defined $pfx and $pfx ne $registered_pfx |
|
53
|
4 |
7 |
unless (defined $pfx) |
|
56
|
1 |
3 |
if ($uri eq "" and not exists $pfxmap{''}) |
|
61
|
0 |
3 |
$uri =~ m[([[:alpha:]])[^/]*/?\z] ? : |
|
66
|
0 |
10 |
if length $pfx and not $pfx =~ /[\w-]/ |
|
74
|
7 |
3 |
if "" eq $pfx |
|
97
|
0 |
34 |
if $name =~ s/\A\{([^}]+)\}// |
|
122
|
0 |
0 |
if $comment =~ /(.*?--)/ |
|
130
|
0 |
0 |
if $content =~ /(.*\?>)/ |
|
138
|
1 |
105 |
'SCALAR' eq ref $_[0] ? : |
|
183
|
0 |
149 |
unless defined $thing |
|
185
|
145 |
4 |
unless &Scalar::Util::blessed($thing) |
|
188
|
3 |
1 |
if $conv |
|
221
|
39 |
48 |
@_ ? : |
|
227
|
0 |
3 |
'' ne $pfx ? : |
|
270
|
153 |
17 |
'ARRAY' eq ref $content ? : |
|
273
|
66 |
157 |
unless (&Scalar::Util::blessed($r)) |
|
274
|
2 |
64 |
if "ARRAY" eq ref $r |
|
278
|
0 |
157 |
unless ($builder->test_fragment($r)) |
|
283
|
156 |
1 |
if $builder == $r->builder |
|
285
|
0 |
1 |
if $r->depends_ns_scope |
|
294
|
1 |
0 |
if $self_enc eq $r_enc or "us-ascii" eq $r_enc and grep {$_ eq $self_enc;} "utf-8", "iso-8859-1" |
|
313
|
159 |
64 |
ref $_ ? : |
|
369
|
38 |
13 |
'' eq $pfx ? : |
|
370
|
51 |
0 |
'' eq $pfx || '' eq $uri ? : |
|
371
|
26 |
25 |
'' eq $uri ? : |
|
380
|
0 |
40 |
if ("SCALAR" eq ref $_[0] and "foreach" eq ${$_[0];}) |
|
410
|
0 |
17 |
'HASH' eq ref $_[0] ? : |
|
418
|
5 |
3 |
if @out > 1 and not wantarray |
|
446
|
53 |
4 |
@{$self->content;} ? : |
|
447
|
53 |
4 |
defined $content ? : |
|
483
|
0 |
3 |
unless defined $decl{'xmlns'} |
|
511
|
1 |
0 |
if (&Scalar::Util::blessed($_)) |
|
512
|
1 |
0 |
if ($_->isa($self->builder->tag_class)) |
|
513
|
0 |
0 |
if ($_->isa($self->builder->unsafe_class)) |
|
518
|
0 |
1 |
if @root != 1 |
|
544
|
40 |
17 |
unless @$param and "HASH" eq ref $param->[0] |
|
550
|
3 |
30 |
unless defined $v |