| line |
true |
false |
branch |
|
45
|
32 |
11 |
if (exists $$nsmap{$uri}) |
|
49
|
0 |
32 |
if defined $pfx and $pfx ne $registered_pfx |
|
55
|
4 |
7 |
unless (defined $pfx) |
|
58
|
1 |
3 |
if ($uri eq '' and not exists $pfxmap{''}) |
|
63
|
0 |
3 |
$uri =~ m[([[:alpha:]])[^/]*/?\z] ? : |
|
68
|
0 |
10 |
if length $pfx and not $pfx =~ /[\w-]/ |
|
76
|
7 |
3 |
if '' eq $pfx |
|
99
|
0 |
34 |
if $name =~ s/\A\{([^}]+)\}// |
|
124
|
0 |
0 |
if $comment =~ /(.*?--)/ |
|
132
|
0 |
0 |
if $content =~ /(.*\?>)/ |
|
140
|
1 |
105 |
'SCALAR' eq ref $_[0] ? : |
|
185
|
0 |
149 |
unless defined $thing |
|
187
|
145 |
4 |
unless &Scalar::Util::blessed($thing) |
|
190
|
3 |
1 |
if $conv |
|
221
|
39 |
48 |
@_ ? : |
|
227
|
0 |
3 |
'' ne $pfx ? : |
|
264
|
153 |
17 |
'ARRAY' eq ref $content ? : |
|
267
|
66 |
157 |
unless (&Scalar::Util::blessed($r)) |
|
268
|
2 |
64 |
if 'ARRAY' eq ref $r |
|
272
|
0 |
157 |
unless ($builder->test_fragment($r)) |
|
277
|
156 |
1 |
if $builder == $r->builder |
|
279
|
0 |
1 |
if $r->depends_ns_scope |
|
288
|
1 |
0 |
if $self_enc eq $r_enc or 'us-ascii' eq $r_enc and grep {$_ eq $self_enc;} 'utf-8', 'iso-8859-1' |
|
307
|
159 |
64 |
ref $_ ? : |
|
359
|
38 |
13 |
'' eq $pfx ? : |
|
360
|
51 |
0 |
'' eq $pfx || '' eq $uri ? : |
|
361
|
26 |
25 |
'' eq $uri ? : |
|
370
|
0 |
40 |
if ('SCALAR' eq ref $_[0] and 'foreach' eq ${$_[0];}) |
|
400
|
0 |
17 |
'HASH' eq ref $_[0] ? : |
|
408
|
5 |
3 |
if @out > 1 and not wantarray |
|
434
|
53 |
4 |
@{$self->content;} ? : |
|
435
|
53 |
4 |
defined $content ? : |
|
469
|
0 |
3 |
unless defined $decl{'xmlns'} |
|
495
|
1 |
0 |
if (&Scalar::Util::blessed($_)) |
|
496
|
1 |
0 |
if ($_->isa($self->builder->tag_class)) |
|
497
|
0 |
0 |
if ($_->isa($self->builder->unsafe_class)) |
|
502
|
0 |
1 |
if @root != 1 |
|
526
|
40 |
17 |
unless @$param and 'HASH' eq ref $$param[0] |
|
532
|
3 |
30 |
unless defined $v |