line |
true |
false |
branch |
465
|
4 |
13 |
if $$self{'ignore_error'} |
472
|
0 |
2 |
if $$self{'ignore_error'} |
480
|
31 |
3 |
if (defined $val) { } |
491
|
0 |
0 |
if exists $$self{$key} |
497
|
0 |
3 |
unless my $tree = shift() |
499
|
0 |
3 |
unless defined $file |
501
|
1 |
2 |
if ($ALLOW_UTF8_FLAG and utf8::is_utf8($text)) |
509
|
3 |
165 |
unless my $tree = shift() |
513
|
163 |
2 |
unless defined $decl |
516
|
6 |
159 |
if (exists $$self{'first_out'}) |
518
|
0 |
6 |
unless ref $keys |
523
|
2 |
163 |
if (exists $$self{'last_out'}) |
525
|
0 |
2 |
unless ref $keys |
529
|
3 |
162 |
if exists $$self{'text_node_key'} |
530
|
29 |
136 |
unless defined $tnk |
533
|
8 |
157 |
if exists $$self{'attr_prefix'} |
534
|
28 |
137 |
unless defined $apre |
539
|
2 |
163 |
if (exists $$self{'indent'} and $$self{'indent'}) |
543
|
3 |
162 |
unless (UNIVERSAL::isa($tree, 'HASH')) |
548
|
162 |
0 |
if ($from and $to) |
550
|
0 |
160 |
unless $stat |
553
|
1 |
159 |
if $decl eq '' |
561
|
0 |
0 |
if (exists $$self{'user_agent'}) { } |
563
|
0 |
0 |
if $agent =~ /\s$/s |
564
|
0 |
0 |
if $agent ne '' |
570
|
0 |
0 |
unless ($http) |
574
|
0 |
0 |
if ($http eq 'LWP::UserAgent') { } |
|
0 |
0 |
elsif ($http eq 'HTTP::Lite') { } |
588
|
0 |
0 |
if (exists $$self{'lwp_useragent'} and ref $$self{'lwp_useragent'}) |
589
|
0 |
0 |
if defined $LWP::UserAgent::VERSION |
590
|
0 |
0 |
if &load_lwp_useragent() |
594
|
0 |
0 |
if (exists $$self{'http_lite'} and ref $$self{'http_lite'}) |
595
|
0 |
0 |
if defined $HTTP::Lite::VERSION |
596
|
0 |
0 |
if &load_http_lite() |
600
|
0 |
0 |
if defined $LWP::UserAgent::VERSION |
601
|
0 |
0 |
if defined $HTTP::Lite::VERSION |
602
|
0 |
0 |
if &load_lwp_useragent() |
603
|
0 |
0 |
if &load_http_lite() |
608
|
0 |
0 |
if defined $LWP::UserAgent::VERSION |
615
|
0 |
0 |
if defined $HTTP::Lite::VERSION |
622
|
0 |
0 |
if defined $Tie::IxHash::VERSION |
630
|
0 |
0 |
unless my $method = shift() |
631
|
0 |
0 |
unless my $url = shift() |
635
|
0 |
0 |
if exists $$self{'lwp_useragent'} |
636
|
0 |
0 |
if (not ref $ua) { } |
640
|
0 |
0 |
if defined $$self{'__user_agent'} |
642
|
0 |
0 |
if exists $$self{'user_agent'} |
647
|
0 |
0 |
if (ref $header) |
651
|
0 |
0 |
if $field =~ /^Content-Type$/i |
654
|
0 |
0 |
if (defined $body and not $ct) |
657
|
0 |
0 |
if defined $body |
661
|
0 |
0 |
if ($res->can('decoded_content')) { } |
666
|
0 |
0 |
if $res->is_success |
667
|
0 |
0 |
wantarray ? : |
672
|
0 |
0 |
unless my $method = shift() |
673
|
0 |
0 |
unless my $url = shift() |
680
|
0 |
0 |
if (ref $header) |
684
|
0 |
0 |
if $field =~ /^User-Agent$/i |
687
|
0 |
0 |
if (defined $$self{'__user_agent'} and not $ua) |
690
|
0 |
0 |
if defined $body |
691
|
0 |
0 |
unless my $code = $http->request($url) |
694
|
0 |
0 |
wantarray ? : |
700
|
0 |
33 |
unless defined $file |
707
|
32 |
242 |
ref $_[0] ? : |
708
|
1 |
273 |
unless defined $text |
712
|
273 |
0 |
if ($from and $to) |
714
|
0 |
271 |
unless $stat |
719
|
7 |
264 |
if (exists $$self{'force_array'}) |
721
|
1 |
6 |
unless ref $force |
728
|
2 |
269 |
if (exists $$self{'force_hash'}) |
730
|
1 |
1 |
unless ref $force |
735
|
3 |
268 |
if exists $$self{'text_node_key'} |
736
|
34 |
237 |
unless defined $tnk |
739
|
8 |
263 |
if exists $$self{'attr_prefix'} |
740
|
35 |
236 |
unless defined $apre |
743
|
0 |
271 |
if (exists $$self{'use_ixhash'} and $$self{'use_ixhash'}) |
744
|
0 |
0 |
unless &load_tie_ixhash() |
748
|
3 |
268 |
if (exists $$self{'require_xml_decl'} and $$self{'require_xml_decl'}) |
749
|
2 |
1 |
unless looks_like_xml(\$text) |
753
|
1 |
268 |
if exists $$self{'base_class'} |
755
|
268 |
0 |
if (ref $tree) |
756
|
1 |
267 |
if (defined $class) { } |
|
1 |
532 |
elsif (exists $$self{'elem_class'} and $$self{'elem_class'}) { } |
763
|
0 |
268 |
wantarray ? : |
775
|
13 |
256 |
if ($xml_deref) |
776
|
7 |
6 |
if (exists $$self{'utf8_flag'} and $$self{'utf8_flag'} or $ALLOW_UTF8_FLAG and utf8::is_utf8($$textref)) { } |
805
|
0 |
2358 |
if (defined $ahead and $ahead =~ /\S/) |
810
|
2043 |
315 |
if ($typeElem) { } |
|
177 |
138 |
elsif ($typeCDATA) { } |
|
28 |
110 |
elsif ($typeCmnt) { } |
|
0 |
110 |
elsif ($typeDocT) { } |
|
110 |
0 |
elsif ($typePI) { } |
812
|
960 |
1083 |
if ($contElem =~ s[^/][]) { } |
|
123 |
960 |
elsif ($contElem =~ s[/$][]) { } |
821
|
2043 |
0 |
if $contElem =~ s/^(\S+)\s*// |
822
|
1083 |
960 |
unless ($$node{'endTag'}) |
828
|
329 |
24 |
$2 ? : |
829
|
235 |
118 |
unless (ref $attr) |
831
|
0 |
235 |
if $ixhash |
835
|
235 |
848 |
if ref $attr |
840
|
114 |
63 |
if (exists $$self{'cdata_scalar_ref'} and $$self{'cdata_scalar_ref'}) { } |
856
|
698 |
1660 |
if ($follow =~ /\S/) |
872
|
0 |
1229 |
if (exists $$self{'use_ixhash'} and $$self{'use_ixhash'}) |
878
|
875 |
2042 |
if (not ref $node or UNIVERSAL::isa($node, 'SCALAR')) |
883
|
959 |
1083 |
if ($$node{'endTag'}) |
884
|
957 |
2 |
if $parent eq $name |
890
|
15 |
1068 |
if (defined $class) |
895
|
960 |
123 |
if ($$node{'startTag'}) { } |
|
2 |
242 |
elsif ($forcehash and not ref $elem) { } |
897
|
1 |
957 |
unless defined $child |
898
|
123 |
834 |
if ref $elem |
899
|
189 |
768 |
if (UNIVERSAL::isa($child, 'HASH')) { } |
900
|
92 |
97 |
if ($hasattr) { } |
910
|
31 |
737 |
if ($hasattr) { } |
|
7 |
730 |
elsif ($forcehash) { } |
928
|
341 |
739 |
if (ref $elem and UNIVERSAL::isa($elem, 'HASH')) |
929
|
10 |
331 |
if (defined $subclass) { } |
|
10 |
642 |
elsif (exists $$self{'elem_class'} and $$self{'elem_class'}) { } |
942
|
1220 |
5 |
unless ($$self{'__force_array_all'}) |
944
|
8 |
920 |
if $$self{'__force_array'}{$key} |
945
|
21 |
899 |
if 1 < scalar @{$$tree{$key};} |
950
|
752 |
473 |
if (scalar @$text) { } |
|
28 |
445 |
elsif (not $haschild) { } |
951
|
677 |
75 |
if (scalar @$text == 1) { } |
|
36 |
39 |
elsif (not scalar grep({ref $_;} @$text)) { } |
961
|
81 |
22 |
ref $_ ? : |
964
|
12 |
740 |
if ($haschild) { } |
987
|
29 |
277 |
if ref $$self{'__first_out'} |
988
|
4 |
302 |
if ref $$self{'__last_out'} |
989
|
29 |
277 |
if ref $fo |
990
|
4 |
302 |
if ref $lo |
991
|
29 |
277 |
if ref $fo |
992
|
4 |
302 |
if ref $lo |
993
|
306 |
0 |
unless (exists $$self{'use_ixhash'} and $$self{'use_ixhash'}) |
1002
|
579 |
339 |
unless ref $keys |
1003
|
333 |
6 |
$prelen ? : |
1004
|
333 |
6 |
$prelen ? : |
1008
|
7 |
399 |
if (not defined $val) { } |
|
132 |
267 |
elsif (UNIVERSAL::isa($val, 'HASH')) { } |
|
8 |
259 |
elsif (UNIVERSAL::isa($val, 'ARRAY')) { } |
|
50 |
209 |
elsif (UNIVERSAL::isa($val, 'SCALAR')) { } |
1009
|
1 |
6 |
if $key eq $textnk |
1026
|
2 |
207 |
if $ref |
1040
|
103 |
41 |
if (defined $name and scalar @$out and not grep({not /^
|
1042
|
6 |
97 |
if (defined $$self{'__indent'}) |
1049
|
144 |
162 |
if (defined $name) |
1050
|
126 |
18 |
if (scalar @$out) { } |
1068
|
1 |
15 |
if (not defined $val) { } |
|
12 |
3 |
elsif (UNIVERSAL::isa($val, 'HASH')) { } |
|
0 |
3 |
elsif (UNIVERSAL::isa($val, 'ARRAY')) { } |
|
0 |
3 |
elsif (UNIVERSAL::isa($val, 'SCALAR')) { } |
1085
|
0 |
3 |
if $ref |
1099
|
49 |
1 |
defined $$ref ? : |
1102
|
44 |
6 |
if $name ne $$self{'text_node_key'} |
1112
|
189 |
23 |
if $name ne $$self{'text_node_key'} |
1120
|
0 |
3 |
unless open $fh, ">$file" |
1129
|
2 |
31 |
unless open $fh, $file |
1139
|
163 |
113 |
unless ($args) |
1147
|
0 |
273 |
unless defined $$textref |
1148
|
161 |
112 |
unless my $args = looks_like_xml($textref) |
1149
|
6 |
106 |
unless my $getcode = ($args =~ /\s+encoding=(".*?"|'.*?')/)[0] |
1157
|
0 |
435 |
unless my $txtref = shift() |
1158
|
0 |
435 |
unless my $from = shift() |
1159
|
0 |
435 |
unless my $to = shift() |
1161
|
435 |
0 |
unless (defined $Encode::EUCJPMS::VERSION) |
1162
|
0 |
435 |
if $from =~ /\beuc-?jp-?(win|ms)$/i |
1163
|
0 |
435 |
if $to =~ /\beuc-?jp-?(win|ms)$/i |
1167
|
425 |
10 |
if ($from =~ /$RE_IS_UTF8/) |
1171
|
38 |
397 |
if exists $$self{'utf8_flag'} |
1172
|
0 |
435 |
if (not $ALLOW_UTF8_FLAG and $setflag) |
1176
|
435 |
0 |
if ($USE_ENCODE_PM) { } |
|
0 |
0 |
elsif (uc $from eq 'ISO-8859-1' || uc $from eq 'US-ASCII' || uc $from eq 'LATIN-1' and uc $to eq 'UTF-8') { } |
1179
|
0 |
435 |
$encver < 2.13 ? : |
1181
|
435 |
0 |
if $from |
1182
|
2 |
433 |
unless ref $encfrom |
1183
|
433 |
0 |
if $to |
1184
|
2 |
431 |
unless ref $encto |
1186
|
13 |
418 |
if ($ALLOW_UTF8_FLAG and utf8::is_utf8($$txtref)) { } |
1187
|
13 |
0 |
if ($to =~ /$RE_IS_UTF8/) { } |
1194
|
15 |
403 |
if ($to =~ /$RE_IS_UTF8/ and $setflag) { } |
1209
|
0 |
0 |
if uc $jfrom eq uc $jto |
1210
|
0 |
0 |
if ($jfrom and $jto) { } |
1212
|
0 |
0 |
if (defined $Jcode::VERSION) { } |
1227
|
0 |
0 |
if defined $Jcode::VERSION |
1233
|
395 |
40 |
if defined $Encode::VERSION |
1250
|
0 |
0 |
if ($src =~ /^utf-?8$/i) { } |
|
0 |
0 |
elsif ($src =~ /^euc.*jp(-?(win|ms))?$/i) { } |
|
0 |
0 |
elsif ($src =~ /^(shift.*jis|cp932|windows-31j)$/i) { } |
|
0 |
0 |
elsif ($src =~ /^iso-2022-jp/) { } |
1267
|
1 |
264 |
unless defined $str |
1288
|
140 |
45 |
$3 ? : |
|
6140 |
185 |
$4 ? : |
1299
|
12 |
24 |
$3 ? : |
|
0 |
36 |
$4 ? : |
1310
|
6 |
24 |
$3 ? : |
|
0 |
30 |
$4 ? : |
1317
|
158 |
27 |
if ($code <= 127) |
1320
|
27 |
0 |
if scalar @_ |
1326
|
12 |
24 |
if ($code <= 127) { } |
|
12 |
12 |
elsif ($code <= 2047) { } |
|
12 |
0 |
elsif ($code <= 65535) { } |
|
0 |
0 |
elsif ($code <= 1114111) { } |
1338
|
0 |
0 |
if scalar @_ |