line |
true |
false |
branch |
140
|
0 |
0 |
if $_[0] eq 'XML::XSH2::Functions' |
142
|
0 |
0 |
if (defined $ver) |
146
|
0 |
0 |
if $component > shift @V |
154
|
0 |
0 |
$_[0] > $_[1] ? : |
157
|
5 |
135 |
if (ref $XML::XSH2::Functions::OUT eq 'IO::Scalar') { } |
196
|
0 |
265 |
unless ref $opts |
197
|
0 |
265 |
if ref $opts eq 'HASH' |
203
|
19 |
7 |
if ($t eq '' or $t eq 'exp') { } |
|
0 |
7 |
elsif ($t eq 'var') { } |
|
6 |
1 |
elsif ($t eq 'xpath') { } |
219
|
0 |
11 |
unless ref $opts |
240
|
0 |
364 |
if $seen{$v} |
252
|
15 |
0 |
unless ref $_[0] |
253
|
0 |
15 |
if (ref $_[0]) { } |
256
|
15 |
0 |
if (open $XML::XSH2::Functions::OUT, '>&', \*STDOUT) { } |
264
|
0 |
15 |
if $module |
266
|
0 |
15 |
if ($@) |
277
|
15 |
0 |
if ($] >= 5.008) { } |
297
|
8 |
0 |
unless ($XML::XSH2::Functions::_xsh) |
298
|
8 |
0 |
if (eval {
do {
require XML::XSH2::Parser
}
}) { } |
305
|
0 |
0 |
unless ($XML::XSH2::Functions::QUIET) |
320
|
0 |
0 |
if @_ > 1 |
321
|
0 |
0 |
if @_ > 1 |
322
|
0 |
0 |
if @_ > 1 |
323
|
0 |
0 |
if @_ > 1 |
324
|
0 |
0 |
if @_ > 1 |
325
|
0 |
0 |
if @_ > 1 |
326
|
0 |
0 |
if @_ > 1 |
327
|
0 |
0 |
if @_ > 1 |
328
|
2 |
0 |
if @_ > 1 |
329
|
0 |
0 |
if @_ > 1 |
330
|
0 |
0 |
if @_ > 1 |
331
|
0 |
0 |
if @_ > 1 |
332
|
0 |
0 |
if @_ > 1 |
333
|
0 |
0 |
if @_ > 1 |
334
|
0 |
0 |
if @_ > 1 |
335
|
0 |
0 |
unless ($XML::XSH2::Functions::XPATH_AXIS_COMPLETION =~ /^always|when-empty|never$/) |
339
|
0 |
0 |
if @_ > 1 |
374
|
0 |
15 |
unless (eval {
do {
require XML::LibXML::XPathContext;
$xpc = 'XML::LibXML::XPathContext'->new
}
}) |
395
|
0 |
0 |
if (/\n/) { } |
425
|
0 |
0 |
if @_ != 1 |
427
|
0 |
0 |
unless ref $nodelist and UNIVERSAL::isa($nodelist, 'XML::LibXML::NodeList') |
434
|
0 |
0 |
if @_ > 1 |
436
|
0 |
0 |
if (@_) |
437
|
0 |
0 |
unless ref $_[0] and UNIVERSAL::isa($_[0], 'XML::LibXML::NodeList') |
440
|
0 |
0 |
if ($_[0]) { } |
441
|
0 |
0 |
unless $_[0][0] |
451
|
0 |
0 |
if @_ > 2 or @_ == 0 |
461
|
0 |
0 |
if @_ > 1 |
463
|
0 |
0 |
if (@_) |
464
|
0 |
0 |
unless ref $_[0] and UNIVERSAL::isa($_[0], 'XML::LibXML::NodeList') |
467
|
0 |
0 |
if ($_[0]) { } |
468
|
0 |
0 |
unless $_[0][0] |
479
|
0 |
4 |
if @_ != 1 |
485
|
0 |
6 |
if @_ != 2 and @_ != 3 |
491
|
3 |
3 |
$ignore_case ? : |
|
3 |
3 |
($ignore_case ? $string =~ /$regexp/i : $string =~ /$regexp/) ? : |
499
|
0 |
7 |
if @_ < 2 or @_ > 3 |
502
|
5 |
2 |
@_ == 2 ? : |
508
|
0 |
7 |
unless defined $result |
513
|
0 |
3 |
if @_ != 1 |
519
|
0 |
0 |
if @_ != 1 |
525
|
0 |
0 |
if @_ != 1 |
531
|
0 |
0 |
if @_ != 1 |
537
|
0 |
0 |
if @_ != 1 |
543
|
0 |
13 |
if @_ != 2 |
545
|
0 |
13 |
unless ref $nodelist and UNIVERSAL::isa($nodelist, 'XML::LibXML::NodeList') |
552
|
0 |
13 |
if @_ != 2 |
554
|
0 |
13 |
unless ref $nodea and UNIVERSAL::isa($nodea, 'XML::LibXML::NodeList') |
556
|
0 |
13 |
unless ref $nodeb and UNIVERSAL::isa($nodeb, 'XML::LibXML::NodeList') |
565
|
0 |
17 |
unless /^\s*(-\s*)?(\d+(\.\d*)?|\.\d+)\s*$/ |
566
|
6 |
11 |
unless defined $r |
567
|
4 |
13 |
$_ > $r ? : |
575
|
4 |
5 |
unless defined $r |
576
|
7 |
2 |
$_ ge $r ? : |
578
|
4 |
0 |
defined $r ? : |
584
|
0 |
21 |
unless /^\s*(-\s*)?(\d+(\.\d*)?|\.\d+)\s*$/ |
585
|
8 |
13 |
unless defined $r |
586
|
6 |
15 |
$_ < $r ? : |
595
|
4 |
5 |
unless defined $r |
596
|
5 |
4 |
$_ le $r ? : |
598
|
4 |
0 |
defined $r ? : |
617
|
23 |
0 |
if (ref $obj and UNIVERSAL::isa($obj, 'XML::LibXML::NodeList')) { } |
630
|
0 |
11 |
if @_ != 3 and @_ != 4 |
635
|
0 |
11 |
unless $regexp ne '' |
638
|
0 |
11 |
unless $options =~ /^[egimsx]*$/ |
649
|
0 |
0 |
if ($dom) { } |
657
|
0 |
7 |
if @_ < 1 |
664
|
0 |
6 |
if @_ |
666
|
6 |
0 |
$ln ? : |
670
|
0 |
5 |
if @_ != 1 |
671
|
0 |
5 |
unless ref $_[0] and UNIVERSAL::isa($_[0], 'XML::LibXML::NodeList') |
672
|
0 |
5 |
unless $_[0][0] |
678
|
0 |
1 |
if @_ != 1 |
679
|
0 |
1 |
unless ref $_[0] and UNIVERSAL::isa($_[0], 'XML::LibXML::NodeList') |
680
|
0 |
1 |
unless $_[0][0] |
686
|
0 |
0 |
if @_ != 1 |
689
|
0 |
0 |
if (not ref $obj) { } |
|
0 |
0 |
elsif (UNIVERSAL::isa($obj, 'XML::LibXML::NodeList')) { } |
|
0 |
0 |
elsif (UNIVERSAL::isa($obj, 'XML::LibXML::Literal')) { } |
|
0 |
0 |
elsif (UNIVERSAL::isa($obj, 'XML::LibXML::Boolean')) { } |
|
0 |
0 |
elsif (UNIVERSAL::isa($obj, 'XML::LibXML::Number')) { } |
706
|
0 |
0 |
if @_ == 0 or @_ > 4 |
710
|
0 |
0 |
if (@_ > 1) |
712
|
0 |
0 |
unless ref $node and UNIVERSAL::isa($node, 'XML::LibXML::NodeList') |
714
|
0 |
0 |
if (@$node) { } |
720
|
0 |
0 |
if ($xpath eq '') |
723
|
0 |
0 |
if $old_context |
724
|
0 |
0 |
defined $val ? : |
728
|
0 |
7 |
if @_ != 2 |
730
|
0 |
7 |
unless ref $_[0] and UNIVERSAL::isa($_[0], 'XML::LibXML::NodeList') |
734
|
0 |
7 |
unless (@{$nl;} and $xpath ne '') |
735
|
0 |
7 |
if $xpath eq '' |
738
|
7 |
0 |
if $XML::XSH2::Functions::_xpc->can('setContextSize') |
741
|
9 |
0 |
if $XML::XSH2::Functions::_xpc->can('setContextSize') |
744
|
0 |
9 |
if $@ |
745
|
0 |
9 |
unless ref $val |
752
|
0 |
0 |
if @_ != 2 and @_ != 3 |
759
|
0 |
0 |
unless $options =~ /^[cgimosx]*$/ |
762
|
0 |
0 |
if $@ |
778
|
0 |
0 |
if @_ != 2 |
798
|
0 |
3 |
unless @_ and scalar(@_) % 2 == 0 |
802
|
0 |
3 |
unless (ref $doc and ref($doc = $doc->ownerDocument)) |
809
|
0 |
2 |
unless scalar(@_) % 2 |
813
|
0 |
2 |
unless (ref $doc and ref($doc = $doc->ownerDocument)) |
824
|
0 |
1 |
unless @_ and (scalar(@_) + 1) % 2 |
828
|
0 |
1 |
unless (ref $doc and ref($doc = $doc->ownerDocument)) |
844
|
0 |
1 |
if @_ != 1 |
848
|
0 |
1 |
unless (ref $doc and ref($doc = $doc->ownerDocument)) |
856
|
0 |
1 |
if @_ != 1 |
860
|
0 |
1 |
unless (ref $doc and ref($doc = $doc->ownerDocument)) |
868
|
0 |
2 |
if @_ != 1 |
872
|
0 |
2 |
unless (ref $doc and ref($doc = $doc->ownerDocument)) |
880
|
0 |
1 |
if not @_ or @_ > 2 |
884
|
0 |
1 |
unless (ref $doc and ref($doc = $doc->ownerDocument)) |
892
|
0 |
0 |
if @_ != 1 |
898
|
0 |
0 |
if @_ != 2 |
907
|
0 |
0 |
if @_ != 3 |
910
|
0 |
0 |
if (ref $test and UNIVERSAL::isa($test, 'XML::LibXML::NodeList') && @$test || $test->to_literal->value or $test) { } |
921
|
0 |
0 |
if @_ != 2 |
924
|
0 |
0 |
unless ref $nl and UNIVERSAL::isa($nl, 'XML::LibXML::NodeList') |
926
|
0 |
0 |
if $id =~ /\'/ |
929
|
0 |
0 |
if ($nl->[0]) |
936
|
0 |
0 |
if @_ != 1 |
939
|
0 |
0 |
unless ref $nl and UNIVERSAL::isa($nl, 'XML::LibXML::NodeList') |
942
|
0 |
0 |
if ($nl->[0]) |
949
|
0 |
0 |
if @_ != 1 |
955
|
0 |
0 |
if $f->[0]->URI eq $URI |
958
|
0 |
0 |
unless (_is_absolute($URI)) |
961
|
0 |
0 |
if $f->[0]->URI eq $URI |
968
|
0 |
0 |
if _is_url($f_URI) and not $is_URL and $f_URI eq 'file://' . $URI or not _is_url($f_URI) and $is_URL and $URI eq 'file://' . $f_URI |
978
|
0 |
0 |
if @_ != 0 |
988
|
0 |
0 |
if @_ != 2 |
996
|
0 |
0 |
if ($lex) { } |
|
0 |
0 |
elsif (defined ${"XML::XSH2::Map::$name";}) { } |
1004
|
0 |
0 |
if (ref $res eq 'HASH') { } |
1006
|
0 |
0 |
if (defined $val) { } |
1017
|
0 |
0 |
if @_ != 2 |
1028
|
0 |
0 |
unless ref $nl and UNIVERSAL::isa($nl, 'XML::LibXML::NodeList') |
1032
|
0 |
0 |
if ($start and $end) { } |
1033
|
0 |
0 |
if ($start->parentNode->isSameNode($end->parentNode)) { } |
1037
|
0 |
0 |
if ($start->isSameNode($end)) |
1052
|
0 |
0 |
if @_ < 2 or @_ > 3 |
1060
|
0 |
0 |
unless ref $context and UNIVERSAL::isa($context, 'XML::LibXML::NodeList') |
1063
|
0 |
0 |
defined $after ? : |
1078
|
0 |
0 |
if ($opts->{'variables'}) { } |
1094
|
0 |
0 |
get_backups() ? : |
1095
|
0 |
0 |
$XML::XSH2::Functions::QUIET ? : |
1096
|
0 |
0 |
$XML::XSH2::Functions::DEBUG ? : |
1097
|
0 |
0 |
$XML::XSH2::Functions::TEST_MODE ? : |
1111
|
0 |
383 |
if ($@ =~ /^SIGINT/) { } |
1116
|
375 |
8 |
defined $res ? : |
1124
|
0 |
214 |
if ($@ =~ /^SIGINT/) { } |
1129
|
206 |
8 |
defined $res ? : |
1136
|
0 |
1860 |
if $cmd eq $test |
1153
|
0 |
367 |
if $XML::XSH2::Functions::BENCHMARK |
1154
|
0 |
367 |
if $XML::XSH2::Functions::BENCHMARK |
1156
|
0 |
367 |
if $XML::XSH2::Functions::BENCHMARK |
1157
|
8 |
359 |
unless (ref $XML::XSH2::Functions::_xsh) |
1161
|
0 |
367 |
if $XML::XSH2::Functions::BENCHMARK |
1162
|
0 |
367 |
if $XML::XSH2::Functions::BENCHMARK |
1163
|
367 |
0 |
if (ref $XML::XSH2::Functions::_xsh) { } |
1173
|
1 |
366 |
if $code =~ /^\s*$/ |
1174
|
0 |
366 |
if $XML::XSH2::Functions::BENCHMARK |
1175
|
0 |
366 |
if $XML::XSH2::Functions::BENCHMARK |
1177
|
0 |
366 |
if $XML::XSH2::Functions::BENCHMARK |
1178
|
0 |
366 |
if $XML::XSH2::Functions::BENCHMARK |
1181
|
0 |
366 |
if $XML::XSH2::Functions::BENCHMARK |
1183
|
0 |
366 |
if $XML::XSH2::Functions::BENCHMARK |
1184
|
0 |
366 |
if $XML::XSH2::Functions::BENCHMARK |
1185
|
0 |
366 |
if defined $XML::XSH2::Functions::DUMP |
1186
|
0 |
366 |
if $XML::XSH2::Functions::BENCHMARK |
1188
|
0 |
366 |
if $XML::XSH2::Functions::BENCHMARK |
1189
|
0 |
366 |
if $XML::XSH2::Functions::BENCHMARK |
1200
|
0 |
0 |
if ($XML::XSH2::Functions::DUMP_APPEND) { } |
1240
|
0 |
0 |
if (ref $XML::XSH2::Functions::DUMP eq 'SCALAR') { } |
1241
|
0 |
0 |
if ($XML::XSH2::Functions::DUMP_APPEND) { } |
1247
|
0 |
0 |
unless $XML::XSH2::Functions::QUIET |
1248
|
0 |
0 |
$XML::XSH2::Functions::DUMP_APPEND ? : |
1250
|
0 |
0 |
unless $XML::XSH2::Functions::DUMP_APPEND |
1253
|
0 |
0 |
unless $XML::XSH2::Functions::DUMP_APPEND |
1261
|
669 |
5338 |
if (ref $pt eq 'XML::XSH2::Command') { } |
|
1439 |
3899 |
elsif (ref $pt eq 'ARRAY') { } |
1264
|
669 |
0 |
unless (ref $cmd) |
1266
|
16 |
653 |
if $spec and not ref $spec |
1267
|
540 |
129 |
if ($spec) { } |
1272
|
35 |
505 |
if ($optspec and $args[0] =~ /^--(.*)$|^:(.)$/) { } |
1273
|
27 |
8 |
defined $1 ? : |
1274
|
35 |
0 |
if (exists $optspec->{$opt}) { } |
1276
|
22 |
13 |
if ($optspec->{$opt} ne '') { } |
1289
|
0 |
540 |
if (@args < $minargs) { } |
|
0 |
629 |
elsif (defined $maxargs and @args > $maxargs) { } |
1295
|
1 |
724 |
if (ref $_ eq 'ARRAY') |
1308
|
5432 |
0 |
if ref $pt |
1319
|
0 |
0 |
unless open STDOUT, '>&', $XML::XSH2::Functions::OUT |
1331
|
74 |
208 |
if (ref $_) { } |
1332
|
74 |
0 |
UNIVERSAL::can($_, 'textContent') ? : |
1335
|
37 |
208 |
UNIVERSAL::isa($_, 'XML::LibXML::NodeList') ? : |
1348
|
266 |
20 |
if (UNIVERSAL::isa($val, 'XML::LibXML::NodeList')) { } |
|
8 |
12 |
elsif (UNIVERSAL::isa($val, 'XML::LibXML::Node')) { } |
1353
|
12 |
0 |
unless ref $res_el |
1357
|
7 |
5 |
if (not ref $val) { } |
|
4 |
1 |
elsif (UNIVERSAL::isa($val, 'XML::LibXML::Literal')) { } |
|
0 |
1 |
elsif (UNIVERSAL::isa($val, 'XML::LibXML::Boolean')) { } |
|
1 |
0 |
elsif (UNIVERSAL::isa($val, 'XML::LibXML::Number')) { } |
|
0 |
0 |
elsif (ref $val eq 'ARRAY') { } |
1358
|
6 |
1 |
if ($val =~ /^\s*[+-]?(\d+(\.\d*)?|\.\d+)\s*$/) { } |
1371
|
0 |
0 |
$val ? : |
1386
|
5 |
7 |
$wrap ? : |
1397
|
3 |
1529 |
unless defined $exp |
1398
|
1526 |
3 |
unless ref $exp |
1399
|
3 |
1526 |
if (ref $exp eq 'ARRAY') { } |
|
1 |
1525 |
elsif ($exp =~ /^<<(.)/) { } |
|
81 |
1444 |
elsif ($exp =~ /^(?:\d*\.\d+|\d+)$/) { } |
|
89 |
1355 |
elsif ($exp =~ /^{/) { } |
|
0 |
1355 |
elsif ($exp eq '') { } |
1403
|
0 |
1 |
if ($1 eq '{') { } |
|
0 |
1 |
elsif ($1 eq '(') { } |
|
0 |
1 |
elsif ($1 eq q[']) { } |
1408
|
0 |
0 |
if (ref $ret and UNIVERSAL::isa($ret, 'XML::LibXML::Literal')) { } |
1427
|
624 |
731 |
if (ref $ret and UNIVERSAL::isa($ret, 'XML::LibXML::Literal')) { } |
1443
|
13 |
254 |
if (wantarray) { } |
1452
|
0 |
1 |
if (ref $exp eq 'ARRAY') |
1454
|
0 |
1 |
if ($exp =~ /^<<(.)/) { } |
|
1 |
0 |
elsif ($exp =~ /^{/) { } |
1456
|
0 |
0 |
if ($1 eq '{') { } |
1468
|
0 |
0 |
if (UNIVERSAL::isa($val, 'XML::LibXML::NodeList')) { } |
|
0 |
0 |
elsif (UNIVERSAL::isa($val, 'XML::LibXML::Node')) { } |
1482
|
28 |
226 |
if $exp eq '' |
1489
|
211 |
31 |
if (not ref $obj) { } |
1494
|
0 |
31 |
if (UNIVERSAL::isa($obj, 'XML::LibXML::NodeList')) { } |
|
8 |
23 |
elsif (UNIVERSAL::isa($obj, 'XML::LibXML::Element')) { } |
|
0 |
23 |
elsif (UNIVERSAL::isa($obj, 'XML::LibXML::Attr')) { } |
|
0 |
23 |
elsif (UNIVERSAL::isa($obj, 'XML::LibXML::Node')) { } |
|
23 |
0 |
elsif (ref($obj) =~ /^XML::LibXML/) { } |
1495
|
0 |
0 |
if (wantarray) { } |
|
0 |
0 |
elsif ($obj->[0]) { } |
1522
|
0 |
318 |
if $exp eq '' |
1524
|
50 |
268 |
if (not ref $result) { } |
1527
|
61 |
207 |
if (UNIVERSAL::isa($result, 'XML::LibXML::NodeList')) { } |
|
0 |
207 |
elsif (UNIVERSAL::isa($result, 'XML::LibXML::Node')) { } |
|
207 |
0 |
elsif (ref($result) =~ /^XML::LibXML/) { } |
1543
|
3 |
2 |
if $exp eq '' |
1545
|
5 |
0 |
if ($node) { } |
1555
|
0 |
0 |
if ($node) { } |
1564
|
140 |
107 |
if ($exp =~ /^\s*(?:&|<<|{)|[\'\"\[\]\(\)\@]|::|\$/) { } |
1574
|
53 |
0 |
if ($format eq 'xml') { } |
|
0 |
0 |
elsif ($format eq 'html') { } |
|
0 |
0 |
elsif ($format eq 'docbook') { } |
1576
|
52 |
1 |
unless $_[0] =~ /^\s*\<\?xml / |
1586
|
0 |
0 |
unless ref $XML::XSH2::Functions::_parser |
1603
|
0 |
0 |
if defined $XML::LibXSLT::VERSION |
1605
|
0 |
0 |
if defined $XML::LibXML::XPathContext::VERSION |
1618
|
4 |
49 |
if (ref $value) |
1619
|
0 |
4 |
if UNIVERSAL::isa($value, 'XML::LibXML::NodeList') and $value->size == 1 |
1621
|
2 |
0 |
if (UNIVERSAL::isa($value, 'XML::LibXML::Node') and $XML::XSH2::Functions::_xml_module->is_document($value) and not exists $seen{$$value}) |
1629
|
0 |
1 |
unless (exists $seen{$$cur_doc}) |
1639
|
2 |
0 |
defined $f->[1] ? : |
|
0 |
2 |
$XML::XSH2::Functions::_xml_module->document_type($f->[0]) eq 'html' ? : |
1650
|
6 |
28 |
if (ref $value) |
1651
|
0 |
6 |
if (UNIVERSAL::isa($value, 'XML::LibXML::NodeList')) { } |
|
1 |
7 |
elsif (UNIVERSAL::isa($value, 'XML::LibXML::Node') and $doc->isSameNode($XML::XSH2::Functions::_xml_module->owner_document($value))) { } |
1653
|
0 |
0 |
$doc->isSameNode($XML::XSH2::Functions::_xml_module->owner_document($_)) ? : |
1669
|
21 |
34 |
unless defined $value |
1670
|
1 |
33 |
unless defined close_undef_value($doc, $value) |
1676
|
0 |
0 |
unless defined $value |
1678
|
0 |
0 |
unless (defined $value) |
1690
|
0 |
334 |
if ($ns ne '') { } |
1692
|
0 |
0 |
unless (defined $res) |
1697
|
37 |
297 |
if ($lex) { } |
|
297 |
0 |
elsif (defined ${"XML::XSH2::Map::$name";}) { } |
1705
|
26 |
308 |
if (ref $res and UNIVERSAL::isa($res, 'XML::LibXML::Node')) { } |
1715
|
472 |
1821 |
if exists $XML::XSH2::Functions::lexical_variables->[$i]{$n} |
1723
|
0 |
91 |
if ($var =~ /^\$(\$.*)/) { } |
|
91 |
0 |
elsif ($var =~ /^\$?(.*)/) { } |
1725
|
0 |
0 |
unless $name =~ /((?:::)?[a-zA-Z_][a-zA-Z0-9_]*)*/ |
1731
|
48 |
43 |
if ($lex) { } |
|
36 |
7 |
elsif (defined ${"XML::XSH2::Map::$1";}) { } |
1756
|
0 |
0 |
if (not defined $value) { } |
|
0 |
0 |
elsif (ref $value) { } |
|
0 |
0 |
elsif (0 + $value eq $value) { } |
1772
|
0 |
10 |
$opts->{'nospace'} ? : |
|
0 |
10 |
$opts->{'nonl'} ? : |
1773
|
0 |
10 |
$opts->{'stderr'} ? : |
1776
|
7 |
7 |
if @_ > 1 |
1777
|
0 |
0 |
if @_ > 1 |
1778
|
0 |
0 |
if @_ > 1 |
1782
|
16 |
0 |
if (defined toUTF8($enc, '') and defined fromUTF8($enc, '')) { } |
1795
|
16 |
0 |
if @_ > 1 |
1820
|
0 |
0 |
if $ok |
1825
|
0 |
0 |
if ($XML::XSH2::Functions::TRAP_SIGINT) { } |
1835
|
0 |
0 |
if ($XML::XSH2::Functions::TRAP_SIGPIPE) { } |
1849
|
0 |
1372 |
if ($XML::XSH2::Functions::_sigint) |
1862
|
4 |
1 |
$XML::XSH2::Functions::RT_LINE == 1 ? : |
1867
|
0 |
0 |
if $XML::XSH2::Functions::ERRORS |
1871
|
0 |
1 |
if $XML::XSH2::Functions::WARNINGS |
1878
|
63 |
2326 |
if ($err) |
1881
|
0 |
63 |
if ($remove_at and not ref $err) |
1885
|
0 |
63 |
if ($err =~ /^SIGINT/) { } |
|
63 |
0 |
elsif ($XML::XSH2::Functions::_die_on_err) { } |
1886
|
0 |
0 |
if ($survive_int) { } |
|
0 |
0 |
elsif (ref $err) { } |
1894
|
0 |
0 |
unless ($err =~ / at (?:.|\n)*$/) |
1900
|
0 |
63 |
if ($err =~ /^SIGPIPE/) { } |
|
40 |
23 |
elsif (ref $err) { } |
1906
|
5 |
18 |
unless ($err =~ / at (?:.|\n)*$/) |
1912
|
0 |
0 |
if ($err =~ /^SIGPIPE/) { } |
1932
|
0 |
0 |
if ($node) |
1942
|
7 |
20 |
if $exp eq '' |
1951
|
0 |
61 |
if ($uri ne '') |
1956
|
0 |
0 |
if ($prefix ne '') { } |
|
0 |
0 |
elsif (my $parent = $node->parentNode) { } |
1960
|
0 |
0 |
if ($prefix ne '') |
1974
|
61 |
36 |
if ($XML::XSH2::Functions::_xml_module->is_element($node)) { } |
|
5 |
31 |
elsif ($XML::XSH2::Functions::_xml_module->is_text($node) or $XML::XSH2::Functions::_xml_module->is_cdata_section($node)) { } |
|
0 |
31 |
elsif ($XML::XSH2::Functions::_xml_module->is_comment($node)) { } |
|
0 |
31 |
elsif ($XML::XSH2::Functions::_xml_module->is_pi($node)) { } |
|
0 |
31 |
elsif ($XML::XSH2::Functions::_xml_module->is_attribute($node)) { } |
1987
|
66 |
31 |
if (not $no_parent and $node->parentNode) { } |
1995
|
45 |
21 |
if (@children == 1 and $XML::XSH2::Functions::_xml_module->xml_equal($node, $children[0])) |
1999
|
21 |
85 |
if $XML::XSH2::Functions::_xml_module->xml_equal($node, $children[$pos]) |
2011
|
0 |
170 |
if ($XML::XSH2::Functions::_xml_module->is_attribute($node)) { } |
2021
|
0 |
0 |
if ($node) |
2023
|
0 |
0 |
if ($attr->can('isId') and $attr->isId) |
2025
|
0 |
0 |
if defined $value |
2036
|
0 |
31 |
unless ref $node |
2037
|
0 |
31 |
if not $XML::XSH2::Functions::STRICT_PWD and UNIVERSAL::can($node, 'nodePath') |
2040
|
0 |
97 |
if ($use_id) |
2042
|
0 |
0 |
if (defined $id) |
2055
|
0 |
0 |
if $_[0] and not ref $_[0] |
2064
|
17 |
0 |
if ($pwd) { } |
2075
|
0 |
0 |
$^O eq 'Win32' ? : |
2086
|
3 |
2167 |
if ($l =~ /\G\\\$\{/cogs) { } |
|
69 |
2098 |
elsif ($l =~ /\G\$\{(\$?[a-zA-Z_][a-zA-Z0-9_]*)\}/cogs) { } |
|
0 |
2098 |
elsif ($vars and $l =~ /\G(\$\$?[a-zA-Z_][a-zA-Z0-9_]*)/cogs) { } |
|
0 |
2098 |
elsif ($l =~ /\G\$\{\{(.*?)\}\}/cogs) { } |
|
9 |
2089 |
elsif ($l =~ /\G\$\{\((.+?)\)\}/cogs) { } |
|
2089 |
0 |
elsif ($l =~ /\G(\$(?!\{)|\\(?!\$\{)|[^\\\$]+)/cogs) { } |
2106
|
0 |
20 |
wantarray ? : |
2113
|
0 |
0 |
if ($name =~ /^\$(\$.*)/) { } |
|
0 |
0 |
elsif ($name =~ /^\$((?:::)?[a-zA-Z_][a-zA-Z0-9_]*)*$/) { } |
2116
|
0 |
0 |
unless $name =~ /((?:::)?[a-zA-Z_][a-zA-Z0-9_]*)*$/ |
2121
|
0 |
0 |
if $lex |
2133
|
0 |
740 |
if ($name =~ /^\$(\$.*)/) { } |
|
740 |
0 |
elsif ($name =~ /^\$?((?:::)?[a-zA-Z_][a-zA-Z0-9_]*)*$/) { } |
2136
|
0 |
0 |
unless $name =~ /((?:::)?[a-zA-Z_][a-zA-Z0-9_]*)*$/ |
2140
|
438 |
302 |
unless $op |
2142
|
387 |
353 |
if ($lex) { } |
2143
|
0 |
387 |
if $@ |
2144
|
0 |
387 |
if $XML::XSH2::Functions::DEBUG |
2146
|
0 |
353 |
if $@ |
2147
|
0 |
353 |
if $XML::XSH2::Functions::DEBUG |
2158
|
0 |
0 |
if ($name =~ /^\$(\$.*)/) { } |
|
0 |
0 |
elsif ($name =~ /^\$((?:::)?[a-zA-Z_][a-zA-Z0-9_]*)*$/) { } |
2161
|
0 |
0 |
unless $name =~ /((?:::)?[a-zA-Z_][a-zA-Z0-9_]*)*$/ |
2196
|
239 |
124 |
ref $_[0] ? : |
2202
|
1 |
253 |
if ($type eq 'my') { } |
|
11 |
242 |
elsif ($type eq 'local') { } |
2214
|
0 |
48 |
if ($type eq 'my') { } |
|
0 |
48 |
elsif ($type eq 'local') { } |
2237
|
1040 |
11 |
if ($new) { } |
|
11 |
0 |
elsif (@XML::XSH2::Functions::stored_variables and ref $XML::XSH2::Functions::stored_variables[$#XML::XSH2::Functions::stored_variables]) { } |
2250
|
1040 |
11 |
if $new |
2258
|
1287 |
1 |
if ($new) { } |
|
1 |
0 |
elsif (@$XML::XSH2::Functions::lexical_variables) { } |
2268
|
387 |
0 |
if (/^\s*\$?([^\$]*)/) { } |
2277
|
0 |
1287 |
unless (ref pop @$XML::XSH2::Functions::lexical_variables) |
2284
|
7 |
0 |
if ($local =~ /local/) { } |
|
0 |
0 |
elsif ($local =~ /my/) { } |
2292
|
7 |
0 |
if ($_[0] =~ /local/) { } |
|
0 |
0 |
elsif ($_[0] =~ /my/) { } |
2301
|
0 |
1040 |
unless (ref $pool) |
2307
|
18 |
0 |
if ($name =~ /^\$/) { } |
2308
|
18 |
0 |
if (defined $value) { } |
2345
|
16 |
104 |
if ($XML::XSH2::Functions::_want_returns) { } |
2356
|
36 |
16 |
if (ref $result) { } |
2357
|
4 |
32 |
if (UNIVERSAL::isa($result, 'XML::LibXML::NodeList')) { } |
|
0 |
32 |
elsif (UNIVERSAL::isa($result, 'XML::LibXML::Literal')) { } |
|
32 |
0 |
elsif (UNIVERSAL::isa($result, 'XML::LibXML::Number') or UNIVERSAL::isa($result, 'XML::LibXML::Boolean')) { } |
2383
|
25 |
28 |
unless $root_element =~ /^\s* |
2386
|
22 |
31 |
if defined $id |
2389
|
53 |
0 |
if $XML::XSH2::Functions::SWITCH_TO_NEW_DOCUMENTS |
2406
|
0 |
0 |
defined $doc ? : |
2412
|
15 |
0 |
if defined $file and ref $doc and UNIVERSAL::can($doc, 'setBaseURI') |
2422
|
0 |
0 |
unless ref $doc |
2426
|
0 |
0 |
if (ref $value) |
2427
|
0 |
0 |
if UNIVERSAL::isa($value, 'XML::LibXML::NodeList') and $value->size == 1 |
2429
|
0 |
0 |
if (UNIVERSAL::isa($value, 'XML::LibXML::Document') and $value->isSameNode($doc)) |
2439
|
0 |
0 |
if $exp eq '' |
2442
|
0 |
0 |
if ($doc->can('indexElements')) { } |
2444
|
0 |
0 |
unless $XML::XSH2::Functions::QUIET |
2452
|
0 |
0 |
$_[0] =~ m[^\s*[[:alnum:]]+://] ? : |
2456
|
0 |
0 |
$path eq '-' || _is_url($path) || 'File::Spec'->file_name_is_absolute($path) ? : |
2466
|
0 |
1 |
if (exists $opts->{'file'} + exists $opts->{'pipe'} + exists $opts->{'string'} > 1) |
2472
|
0 |
1 |
unless ($format =~ /^xml$|^html$/) |
2479
|
0 |
0 |
if $$opts{'no-' . $o} and $opts->{$o} |
2481
|
0 |
1 |
if $opts->{'switch-to'} |
2482
|
0 |
1 |
if $opts->{'no-switch-to'} |
2483
|
0 |
1 |
if $opts->{'validate'} |
2484
|
0 |
1 |
if $opts->{'no-validate'} |
2485
|
0 |
1 |
if $opts->{'recover'} |
2486
|
0 |
1 |
if $opts->{'no-recover'} |
2487
|
0 |
1 |
if $opts->{'expand-entities'} |
2488
|
0 |
1 |
if $opts->{'no-expand-entities'} |
2489
|
0 |
1 |
if $opts->{'keep-blanks'} |
2490
|
0 |
1 |
if $opts->{'no-keep-blanks'} |
2491
|
0 |
1 |
if $opts->{'pedantic'} |
2492
|
0 |
1 |
if $opts->{'no-pedantic'} |
2493
|
0 |
1 |
if $opts->{'load-ext-dtd'} |
2494
|
0 |
1 |
if $opts->{'no-load-ext-dtd'} |
2495
|
0 |
1 |
if $opts->{'complete-attributes'} |
2496
|
0 |
1 |
if $opts->{'no-complete-attributes'} |
2497
|
0 |
1 |
if $opts->{'xinclude'} |
2498
|
0 |
1 |
if $opts->{'no-xinclude'} |
2502
|
0 |
1 |
if ($source eq 'string') { } |
2505
|
0 |
1 |
if ($source eq 'file' and not _is_absolute($file)) |
2508
|
0 |
1 |
if "$XML::XSH2::Functions::DEBUG" |
2509
|
0 |
1 |
if ($file eq '') |
2514
|
0 |
0 |
if "$XML::XSH2::Functions::DEBUG" |
2515
|
0 |
0 |
if ($file eq '') |
2520
|
1 |
0 |
if ($source ne 'file' or -f $file or $file eq '-' or $file =~ /^[a-z]+:/) { } |
2523
|
1 |
0 |
unless ("$XML::XSH2::Functions::QUIET") |
2524
|
0 |
1 |
if ($source eq 'string') { } |
2531
|
0 |
1 |
if ($source eq 'pipe') { } |
|
0 |
1 |
elsif ($source eq 'string') { } |
2533
|
0 |
0 |
unless $F |
2535
|
0 |
0 |
if ($format eq 'xml') { } |
|
0 |
0 |
elsif ($format eq 'html') { } |
|
0 |
0 |
elsif ($format eq 'docbook') { } |
2547
|
0 |
0 |
unless $root_element =~ /^\s* |
2553
|
0 |
0 |
unless ref $doc |
2557
|
1 |
0 |
if ($format eq 'xml') { } |
|
0 |
0 |
elsif ($format eq 'html') { } |
|
0 |
0 |
elsif ($format eq 'docbook') { } |
2566
|
0 |
1 |
unless ref $doc |
2568
|
1 |
0 |
unless "$XML::XSH2::Functions::QUIET" |
2569
|
1 |
0 |
if $XML::XSH2::Functions::SWITCH_TO_NEW_DOCUMENTS |
2579
|
0 |
0 |
if ($file =~ /^\s*[|>]/) { } |
|
0 |
0 |
elsif ($file =~ /.gz\s*$/) { } |
2600
|
0 |
0 |
if $xinc{'parse'} eq '' |
2611
|
0 |
0 |
unless ref $node |
2612
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_element($node) or $XML::XSH2::Functions::_xml_module->is_document($node)) { } |
2613
|
0 |
0 |
if $XML::XSH2::Functions::_xml_module->is_element($node) |
2616
|
0 |
0 |
if (is_xinclude($child)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_xinclude_end($child)) { } |
2624
|
0 |
0 |
if ($expanded) { } |
2633
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_xinclude_start($node)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_xinclude_end($node)) { } |
2636
|
0 |
0 |
if $XML::XSH2::Functions::_xml_module->is_element($node) |
2639
|
0 |
0 |
if ($nested > 0) { } |
|
0 |
0 |
elsif (not $node and $XML::XSH2::Functions::_xml_module->is_xinclude_start($child)) { } |
|
0 |
0 |
elsif ($xinc{'parse'} ne 'text' and $elements == 0) { } |
|
0 |
0 |
elsif ($xinc{'parse'} ne 'xml' and $elements > 1) { } |
|
0 |
0 |
elsif ($xinc{'parse'} eq 'text' and $elements > 0) { } |
2663
|
0 |
0 |
if $expanded |
2672
|
0 |
0 |
if $XML::XSH2::Functions::_xml_module->is_element($node) |
2680
|
4 |
0 |
$doc->can('getVersion') ? : |
|
4 |
0 |
if $doc and not defined $version |
2682
|
4 |
0 |
$doc->can('getEncoding') ? : |
|
4 |
0 |
if $doc and not defined $enc |
2684
|
4 |
0 |
defined $enc ? : |
2690
|
0 |
0 |
unless @$nodes > 0 |
2692
|
0 |
0 |
if ($XML::XSH2::Functions::BACKUPS) |
2697
|
0 |
0 |
unless $F |
2699
|
0 |
0 |
if ($parse eq 'text') { } |
2718
|
0 |
0 |
if ($opts->{'subtree'}) { } |
2721
|
0 |
0 |
if $node |
2725
|
0 |
0 |
unless $node |
2727
|
0 |
0 |
if exists $opts->{'file'} |
2728
|
0 |
0 |
if (exists $opts->{'file'} + exists $opts->{'pipe'} + exists $opts->{'print'} + exists $opts->{'string'} > 1) |
2735
|
0 |
0 |
if $$opts{'no-' . $o} and $opts->{$o} |
2738
|
0 |
0 |
if $opts->{'indent'} |
2739
|
0 |
0 |
if $opts->{'skip-dtd'} |
2740
|
0 |
0 |
if $opts->{'empty-tags'} |
2741
|
0 |
0 |
if $opts->{'skip-xmldecl'} |
2743
|
0 |
0 |
if $opts->{'no-indent'} |
2744
|
0 |
0 |
if $opts->{'no-skip-dtd'} |
2745
|
0 |
0 |
if $opts->{'no-empty-tags'} |
2746
|
0 |
0 |
if $opts->{'no-skip-xmldecl'} |
2748
|
0 |
0 |
if $opts->{'no-backup'} |
2749
|
0 |
0 |
if $opts->{'backup'} |
2755
|
0 |
0 |
if (exists $opts->{'format'}) |
2758
|
0 |
0 |
if (exists $opts->{'xinclude'}) |
2759
|
0 |
0 |
if ($format eq 'html') |
2765
|
0 |
0 |
if $format eq 'html' and $opts->{'subtree'} |
2768
|
0 |
0 |
unless defined $target |
2769
|
0 |
0 |
if $target |
2770
|
0 |
0 |
if ($target eq 'file') |
2771
|
0 |
0 |
if ($file eq '') { } |
2774
|
0 |
0 |
if $doc->can('setBaseURI') |
2776
|
0 |
0 |
if ($XML::XSH2::Functions::BACKUPS) |
2783
|
0 |
0 |
if "$XML::XSH2::Functions::DEBUG" |
2785
|
0 |
0 |
if ($format eq 'xinclude') { } |
|
0 |
0 |
elsif ($opts->{'subtree'}) { } |
2786
|
0 |
0 |
if ($target ne 'file') { } |
2789
|
0 |
0 |
if ($doc->{'subtree'}) { } |
2796
|
0 |
0 |
unless $format eq 'xml' |
2797
|
0 |
0 |
$target ne 'string' && lc($enc) =~ /^utf-?8$/i ? : |
2801
|
0 |
0 |
if ($target eq 'file') { } |
|
0 |
0 |
elsif ($target eq 'pipe') { } |
|
0 |
0 |
elsif ($target eq 'string') { } |
|
0 |
0 |
elsif ($target eq 'print') { } |
2816
|
0 |
0 |
if ($format eq 'xml') { } |
|
0 |
0 |
elsif ($format eq 'html') { } |
2817
|
0 |
0 |
if (lc $XML::XSH2::Functions::_xml_module->doc_encoding($doc) ne lc $enc and not $XML::XSH2::Functions::_xml_module->doc_encoding($doc) eq '' && lc $enc eq 'utf-8') |
2823
|
0 |
0 |
if ($target eq 'file') { } |
|
0 |
0 |
elsif ($target eq 'pipe') { } |
|
0 |
0 |
elsif ($target eq 'string') { } |
|
0 |
0 |
elsif ($target eq 'print') { } |
2824
|
0 |
0 |
if ($file =~ /\.gz\s*$/) { } |
2829
|
0 |
0 |
unless $doc->toFile($file, $XML::XSH2::Functions::INDENT) |
2845
|
0 |
0 |
if ($target eq 'string') { } |
2848
|
0 |
0 |
unless $XML::XSH2::Functions::_xml_module->has_dtd($doc) |
2855
|
0 |
0 |
if ($target eq 'file') { } |
|
0 |
0 |
elsif ($target eq 'pipe') { } |
|
0 |
0 |
elsif ($target eq 'print') { } |
2856
|
0 |
0 |
unless $F = open_io_file($file) |
2861
|
0 |
0 |
unless $F |
2865
|
0 |
0 |
unless $XML::XSH2::Functions::_xml_module->has_dtd($doc) |
2870
|
0 |
0 |
unless $target eq 'print' |
2876
|
0 |
0 |
unless $@ or $target eq 'print' or "$XML::XSH2::Functions::QUIET" |
2895
|
0 |
0 |
grep({$_->nodeName ne 'xsh:fold';} $element->attributes) ? : |
|
0 |
18 |
$fold_attrs ? : |
|
13 |
5 |
$element->hasChildNodes ? : |
2910
|
13 |
0 |
$element->hasChildNodes ? : |
2917
|
64 |
0 |
if ($node) |
2918
|
0 |
38 |
if (ref $node and $XML::XSH2::Functions::_xml_module->is_element($node) and $folding and $node->hasAttributeNS($XML::XSH2::xshNS, 'fold')) |
2920
|
0 |
0 |
if ($depth >= 0) { } |
2927
|
31 |
33 |
if ($depth < 0 and $folding == 0) { } |
|
7 |
26 |
elsif (ref $node and $XML::XSH2::Functions::_xml_module->is_element($node) and $depth == 0) { } |
|
0 |
26 |
elsif (ref $node and $XML::XSH2::Functions::_xml_module->is_document($node) and $depth == 0) { } |
|
15 |
11 |
elsif ($depth > 0 or $folding) { } |
2928
|
31 |
0 |
ref $node ? : |
2930
|
2 |
5 |
$node->hasChildNodes ? : |
2935
|
0 |
15 |
if (not ref $node) { } |
|
11 |
4 |
elsif ($XML::XSH2::Functions::_xml_module->is_element($node)) { } |
|
4 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_document($node)) { } |
2942
|
4 |
0 |
if ($node->can('getVersion') and $node->can('getEncoding')) |
2947
|
0 |
5 |
$XML::XSH2::Functions::SKIP_DTD ? : |
2952
|
11 |
0 |
ref $node ? : |
2962
|
15 |
17 |
$exp eq '' ? : |
|
32 |
1 |
unless exists $opts->{'depth'} |
2963
|
15 |
18 |
if $exp eq '' |
2964
|
0 |
0 |
if ($opts->{'noindent'} and $opts->{'indent'}) |
2967
|
0 |
33 |
if $opts->{'indent'} |
2968
|
0 |
33 |
if $opts->{'no-indent'} |
2971
|
0 |
46 |
if "$XML::XSH2::Functions::DEBUG" |
2975
|
0 |
46 |
if "$XML::XSH2::Functions::DEBUG" |
2978
|
0 |
33 |
unless "$XML::XSH2::Functions::QUIET" |
2987
|
0 |
0 |
defined $exp ? : |
|
0 |
0 |
$opts->{'registered'} && $exp eq '' ? : |
2994
|
0 |
0 |
unless exists $namespaces{$ns->localname} |
3002
|
0 |
0 |
$_ ne '' ? : |
3006
|
0 |
0 |
if ($opts->{'registered'}) |
3017
|
0 |
0 |
if $opts->{'depth'} eq '' |
3018
|
0 |
0 |
if $exp eq '' |
3020
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_element($node)) |
3022
|
0 |
0 |
if ($doc) |
3025
|
0 |
0 |
if $root |
3036
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_element($node) and $node->hasAttributeNS($XML::XSH2::xshNS, 'fold')) |
3052
|
0 |
0 |
unless "$XML::XSH2::Functions::QUIET" |
3065
|
0 |
1 |
unless "$XML::XSH2::Functions::QUIET" |
3090
|
0 |
5 |
unless "$XML::XSH2::Functions::QUIET" |
3097
|
0 |
0 |
if defined $val |
3100
|
0 |
0 |
if $@ |
3113
|
5 |
6 |
if ($opts->{'compare'}) |
3115
|
0 |
10 |
if exists $opts->{$_} |
3119
|
9 |
2 |
if (defined $opts->{'key'}) { } |
3128
|
1 |
10 |
if ($opts->{'numeric'}) { } |
|
5 |
5 |
elsif ($opts->{'compare'}) { } |
3129
|
0 |
1 |
if ($opts->{'descending'}) { } |
3140
|
0 |
23 |
if $@ |
3144
|
1 |
4 |
if ($opts->{'descending'}) { } |
3145
|
0 |
1 |
if ($opts->{'locale'}) { } |
3152
|
0 |
4 |
if ($opts->{'locale'}) { } |
3167
|
0 |
11 |
if $err |
3184
|
0 |
2 |
if $opts->{'reverse'} |
3188
|
1 |
10 |
if ($XML::XSH2::Functions::_xml_module->is_attribute($node)) { } |
|
0 |
10 |
elsif ($XML::XSH2::Functions::_xml_module->is_element($node)) { } |
|
10 |
0 |
elsif ($node->can('setData') and $node->can('getData')) { } |
3190
|
1 |
0 |
if defined $val |
3193
|
0 |
0 |
if (defined $value) |
3198
|
0 |
0 |
if (ref $value) { } |
3199
|
0 |
0 |
if (UNIVERSAL::isa($value, 'XML::LibXML::NodeList')) { } |
|
0 |
0 |
elsif (UNIVERSAL::isa($value, 'XML::LibXML::Node')) { } |
3201
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_document_fragment($n) or $n->parentNode and $XML::XSH2::Functions::_xml_module->is_document_fragment($n->parentNode)) { } |
3222
|
10 |
0 |
if defined $val |
3232
|
0 |
2 |
if $err |
3249
|
0 |
0 |
if (exists $hash->{$key}) { } |
3262
|
0 |
0 |
if $err |
3271
|
0 |
87 |
if (UNIVERSAL::isa($val, 'XML::LibXML::NodeList')) { } |
|
0 |
87 |
elsif (ref $val) { } |
3288
|
0 |
4 |
if $opts->{'reverse'} |
3293
|
13 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_attribute($node) or $XML::XSH2::Functions::_xml_module->is_element($node) or $XML::XSH2::Functions::_xml_module->is_pi($node)) |
3296
|
14 |
0 |
if ($node->can('setName')) { } |
3300
|
14 |
0 |
if (defined $name) |
3303
|
0 |
14 |
if ($XML::XSH2::Functions::_xml_module->is_attribute($node) and $old_name ne $name and $node->getOwnerElement->hasAttributeNS($ns || $node->namespaceURI, $name)) { } |
3311
|
0 |
14 |
if (defined $ns and $node->nodeName =~ /^([^:]+):(.*)$/) |
3328
|
0 |
4 |
if $err |
3338
|
29 |
0 |
if ($ns eq '') { } |
3347
|
0 |
30 |
if ($_[0] =~ /^([^:]+):/) |
3357
|
25 |
72 |
if ($XML::XSH2::Functions::_xml_module->is_element($node) and not $node->hasChildNodes) { } |
|
0 |
72 |
elsif ($XML::XSH2::Functions::_xml_module->is_document_fragment($node)) { } |
3359
|
25 |
0 |
if $ns eq '' |
3361
|
0 |
25 |
if ($ns eq '' and $prefix ne '') |
3366
|
20 |
0 |
$XML::XSH2::Functions::_xml_module->is_attribute($_) ? : |
3422
|
0 |
86 |
unless $parent |
3423
|
7 |
79 |
if ($XML::XSH2::Functions::_xml_module->is_document($parent)) { } |
3427
|
4 |
3 |
if ($XML::XSH2::Functions::_xml_module->is_element($source)) { } |
|
3 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_pi($source) or $XML::XSH2::Functions::_xml_module->is_comment($source) or $XML::XSH2::Functions::_xml_module->is_entity_reference($source) or $XML::XSH2::Functions::_xml_module->is_document_fragment($source)) { } |
3428
|
0 |
4 |
if ($where eq 'after') { } |
|
0 |
4 |
elsif ($where eq 'before') { } |
|
4 |
0 |
elsif ($where eq 'replace') { } |
3429
|
0 |
0 |
if ($parent->getDocumentElement) { } |
3438
|
0 |
0 |
if ($parent->getDocumentElement) { } |
3448
|
2 |
2 |
if ($parent->getDocumentElement) { } |
3449
|
2 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_element($dest)) { } |
3469
|
1 |
2 |
if ($where eq 'after') { } |
|
1 |
1 |
elsif ($where eq 'before') { } |
|
1 |
0 |
elsif ($where eq 'replace') { } |
3484
|
51 |
28 |
if ($where eq 'after') { } |
|
0 |
28 |
elsif ($where eq 'before') { } |
|
28 |
0 |
elsif ($where eq 'replace') { } |
3498
|
0 |
0 |
$XML::XSH2::Functions::_xml_module->is_document_fragment($_[0]) ? : |
3517
|
0 |
0 |
unless ($XML::XSH2::Functions::_xml_module->is_element($node) or $XML::XSH2::Functions::_xml_module->is_attribute($node)) |
3521
|
0 |
0 |
if (defined $prefix) { } |
3523
|
0 |
0 |
if (defined $declaredURI and $declaredURI eq $uri) { } |
3529
|
0 |
0 |
if (defined($prefix = $node->lookupNamespacePrefix($uri))) { } |
3542
|
0 |
0 |
unless ($XML::XSH2::Functions::_xml_module->is_element($node)) |
3546
|
0 |
0 |
if (defined $declaredURI and $declaredURI ne $uri) |
3554
|
0 |
0 |
if $old |
3557
|
0 |
0 |
if ($node and $XML::XSH2::Functions::_xml_module->is_element($node)) { } |
3558
|
0 |
0 |
unless defined $old |
3567
|
0 |
0 |
if $prefix |
3570
|
0 |
0 |
if ($node and $XML::XSH2::Functions::_xml_module->is_element($node)) { } |
3571
|
0 |
0 |
unless defined $prefix |
3589
|
0 |
8 |
if (ref $value and UNIVERSAL::isa($value, 'XML::LibXML::NodeList')) { } |
3591
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_element($result)) { } |
3594
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_document_fragment($node) or $node->parentNode and $XML::XSH2::Functions::_xml_module->is_document_fragment($node->parentNode)) { } |
3617
|
0 |
134 |
if ($XML::XSH2::Functions::_xml_module->is_document($node)) |
3620
|
134 |
0 |
unless (defined $dest_doc) |
3624
|
26 |
108 |
if ($XML::XSH2::Functions::_xml_module->is_attribute($dest)) { } |
|
0 |
108 |
elsif ($XML::XSH2::Functions::_xml_module->is_document($dest)) { } |
|
92 |
16 |
elsif ($XML::XSH2::Functions::_xml_module->is_element($dest)) { } |
|
16 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_text($dest) or $XML::XSH2::Functions::_xml_module->is_cdata_section($dest) or $XML::XSH2::Functions::_xml_module->is_comment($dest) or $XML::XSH2::Functions::_xml_module->is_pi($dest) or $XML::XSH2::Functions::_xml_module->is_entity_reference($dest)) { } |
3626
|
23 |
3 |
if ($XML::XSH2::Functions::_xml_module->is_text($node) or $XML::XSH2::Functions::_xml_module->is_cdata_section($node) or $XML::XSH2::Functions::_xml_module->is_comment($node) or $XML::XSH2::Functions::_xml_module->is_element($node) or $XML::XSH2::Functions::_xml_module->is_pi($node)) { } |
|
3 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_attribute($node)) { } |
3631
|
14 |
9 |
$XML::XSH2::Functions::_xml_module->is_element($node) ? : |
3633
|
0 |
23 |
if ($where eq 'replace' or $where eq 'into') { } |
|
0 |
23 |
elsif ($where eq 'before' or $where eq 'prepend') { } |
|
23 |
0 |
elsif ($where eq 'after' or $where eq 'append') { } |
3637
|
0 |
0 |
if defined $rl |
3643
|
0 |
0 |
if defined $rl |
3648
|
0 |
23 |
if defined $rl |
3656
|
3 |
0 |
if ($where eq 'replace' or $where eq 'after' or $where eq 'before') { } |
3658
|
3 |
0 |
if $ns eq '' |
3659
|
0 |
3 |
if ($ns eq '' and name_prefix($name) ne '') |
3665
|
0 |
3 |
if defined $rl |
3666
|
0 |
3 |
if ($where eq 'replace' and $name ne $dest->getName) { } |
3675
|
0 |
0 |
if ($where eq 'append') { } |
|
0 |
0 |
elsif ($where eq 'into') { } |
|
0 |
0 |
elsif ($where eq 'prepend') { } |
3682
|
0 |
0 |
if defined $rl |
3693
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_attribute($node) or $XML::XSH2::Functions::_xml_module->is_text($node) or $XML::XSH2::Functions::_xml_module->is_cdata_section($node)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_element($node)) { } |
3705
|
0 |
0 |
if ($where =~ /^(?:after|append|into)/) { } |
|
0 |
0 |
elsif ($where =~ /^(?:before|prepend)/) { } |
|
0 |
0 |
elsif ($where eq 'replace') { } |
3716
|
0 |
0 |
if defined $rl |
3717
|
0 |
0 |
if ($destnode) { } |
3726
|
0 |
0 |
if ($where =~ /^(?:after|append|into)/) { } |
|
0 |
0 |
elsif ($where =~ /^(?:before|prepend)/) { } |
|
0 |
0 |
elsif ($where eq 'replace') { } |
3737
|
0 |
0 |
if defined $rl |
3743
|
2 |
90 |
if ($XML::XSH2::Functions::_xml_module->is_attribute($node)) { } |
3745
|
2 |
0 |
if $ns eq '' |
3746
|
0 |
2 |
if ($ns eq '' and name_prefix($node->getName) ne '') |
3750
|
2 |
0 |
if ($where eq 'into' or $where eq 'append' or $where eq 'prepend') { } |
|
0 |
0 |
elsif ($where eq 'replace') { } |
3752
|
0 |
2 |
if defined $rl |
3755
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_element($parent)) { } |
3757
|
0 |
0 |
if defined $rl |
3786
|
47 |
43 |
if ($where eq 'after' or $where eq 'before' or $where eq 'replace') { } |
|
43 |
0 |
elsif ($where eq 'into' or $where eq 'append') { } |
|
0 |
0 |
elsif ($where eq 'prepend') { } |
3787
|
0 |
47 |
if defined $rl |
3791
|
0 |
43 |
if defined $rl |
3793
|
0 |
0 |
if ($dest->hasChildNodes) { } |
3798
|
0 |
0 |
if defined $rl |
3809
|
0 |
9 |
if ($where =~ /^(?:into|append|prepend)$/ and $XML::XSH2::Functions::_xml_module->is_entity_reference($dest) || $XML::XSH2::Functions::_xml_module->is_entity_reference($node)) |
3816
|
0 |
16 |
if ($where eq 'into') { } |
|
9 |
7 |
elsif ($where eq 'append') { } |
|
0 |
7 |
elsif ($where eq 'prepend') { } |
|
0 |
7 |
elsif ($where eq 'replace' and $XML::XSH2::Functions::_xml_module->is_attribute($node)) { } |
3817
|
0 |
0 |
$XML::XSH2::Functions::_xml_module->is_element($node) ? : |
3819
|
0 |
0 |
unless defined $value |
3821
|
0 |
0 |
if defined $rl |
3823
|
0 |
9 |
$XML::XSH2::Functions::_xml_module->is_element($node) ? : |
3826
|
0 |
9 |
if defined $rl |
3828
|
0 |
0 |
$XML::XSH2::Functions::_xml_module->is_element($node) ? : |
3831
|
0 |
0 |
if defined $rl |
3837
|
0 |
0 |
if $ns eq '' |
3838
|
0 |
0 |
if ($ns eq '' and name_prefix($node->getName) ne '') |
3842
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_element($parent)) |
3844
|
0 |
0 |
if defined $rl |
3851
|
0 |
7 |
if ($XML::XSH2::Functions::_xml_module->is_attribute($node)) { } |
3869
|
7 |
0 |
if ($where =~ /^(?:after|before|replace)$/) |
3870
|
0 |
7 |
if defined $rl |
3876
|
0 |
0 |
if ref $dest |
3886
|
27 |
0 |
if ($str =~ /\G\s*([^ \n\r\t=]+)=/cogs) { } |
|
0 |
0 |
elsif ($str =~ /\G(.*)/cogs) { } |
3888
|
0 |
27 |
if $XML::XSH2::Functions::DEBUG |
3889
|
27 |
0 |
if ($str =~ /\G\"((?:[^\\\"]|\\.)*)\"/cogs or $str =~ /\G\'((?:[^\\\']|\\.)*)\'/cogs or $str =~ /\G(.*?)(?=\s+[^ \n\r\t=]+=|\s*$)/cogs) { } |
|
0 |
0 |
elsif ($str =~ /\G(\s*)$/cogs) { } |
3894
|
0 |
27 |
if $XML::XSH2::Functions::DEBUG |
3898
|
0 |
0 |
if $XML::XSH2::Functions::DEBUG |
3917
|
0 |
25 |
if ($prefix ne '' and $ns eq '') |
3920
|
25 |
0 |
if ($dest and $XML::XSH2::Functions::_xml_module->is_element($dest)) { } |
|
0 |
0 |
elsif ($ns ne '') { } |
3921
|
0 |
25 |
if $XML::XSH2::Functions::DEBUG |
3924
|
0 |
25 |
if ($prefix eq '' and $ns eq '' and $dest->lookupNamespaceURI(undef) ne '') { } |
3925
|
0 |
0 |
if $XML::XSH2::Functions::DEBUG |
3928
|
0 |
25 |
if $XML::XSH2::Functions::DEBUG |
3929
|
0 |
25 |
if $XML::XSH2::Functions::DEBUG |
3933
|
0 |
0 |
if $XML::XSH2::Functions::DEBUG |
3936
|
0 |
0 |
if $XML::XSH2::Functions::DEBUG |
3939
|
25 |
0 |
if (ref $attrs) |
3941
|
0 |
20 |
if ($ns ne '' and $_->[0] =~ /^\Q$prefix\E:/) { } |
|
0 |
20 |
elsif ($_->[0] =~ /xmlns:(.*)/) { } |
|
0 |
20 |
elsif ($_->[0] eq 'xmlns') { } |
|
0 |
20 |
elsif ($_->[0] =~ /^([^:>]+):/) { } |
3942
|
0 |
0 |
if $XML::XSH2::Functions::DEBUG |
3945
|
0 |
0 |
if $XML::XSH2::Functions::DEBUG |
3947
|
0 |
0 |
unless ($_->[1] eq $ns or $dest->lookupNamespaceURI($1) eq $_->[2]) |
3948
|
0 |
0 |
unless $_->[1] eq $ns |
3951
|
0 |
0 |
if $XML::XSH2::Functions::DEBUG |
3953
|
0 |
0 |
unless ($- > [1] eq $ns or $dest->lookupNamespaceURI('') eq $_->[2]) |
3954
|
0 |
0 |
unless $_->[1] eq $ns |
3958
|
0 |
0 |
if ($_->[2] ne '') { } |
3965
|
0 |
20 |
if $_->[0] eq "xmlns:$prefix" and $_->[1] eq $ns |
3977
|
0 |
106 |
unless ref $doc |
3978
|
0 |
106 |
if $str eq '' and not $type =~ /text|cdata|comment/ |
3981
|
9 |
97 |
if ($type eq 'chunk') { } |
3985
|
5 |
92 |
if ($type eq 'attribute') { } |
|
57 |
35 |
elsif ($type eq 'element') { } |
|
19 |
16 |
elsif ($type eq 'text') { } |
|
0 |
16 |
elsif ($type eq 'entity_reference') { } |
|
0 |
16 |
elsif ($type eq 'cdata') { } |
|
8 |
8 |
elsif ($type eq 'pi') { } |
|
8 |
0 |
elsif ($type eq 'comment') { } |
3988
|
0 |
5 |
if ($_->[0] =~ /^([^:]+):/ and $1 ne 'xmlns') { } |
3989
|
0 |
0 |
if $ns eq '' |
3990
|
0 |
0 |
if $ns eq '' |
3999
|
57 |
0 |
if ($str =~ m[^\([^ \t\n/\<\>]+)(\s+.*)?(?:/?\>)?\s*$]) { } |
4000
|
0 |
57 |
if $XML::XSH2::Functions::DEBUG |
4001
|
0 |
57 |
if $XML::XSH2::Functions::DEBUG |
4004
|
3 |
54 |
if ($elt =~ /^([^:>]+):(.*)$/ or $ns ne '') { } |
4005
|
0 |
3 |
if $XML::XSH2::Functions::DEBUG |
4006
|
0 |
3 |
if ($ns eq '') { } |
4007
|
0 |
0 |
if $XML::XSH2::Functions::DEBUG |
4008
|
0 |
0 |
if $ns eq '' |
4010
|
0 |
3 |
if $XML::XSH2::Functions::DEBUG |
4012
|
0 |
3 |
if $1 ne '' and $ns eq '' |
4017
|
13 |
44 |
if ($att ne '') |
4020
|
0 |
22 |
if $XML::XSH2::Functions::DEBUG |
4021
|
0 |
22 |
if ($elt =~ /^([^:]+):/ and $1 ne 'xmlns') { } |
4022
|
0 |
0 |
if $XML::XSH2::Functions::DEBUG |
4023
|
0 |
0 |
if $ns eq '' |
4033
|
0 |
0 |
unless "$XML::XSH2::Functions::QUIET" |
4037
|
0 |
19 |
if $XML::XSH2::Functions::DEBUG |
4040
|
0 |
0 |
if $XML::XSH2::Functions::DEBUG |
4043
|
0 |
0 |
if $XML::XSH2::Functions::DEBUG |
4046
|
8 |
0 |
unless defined $data |
4048
|
0 |
8 |
if $XML::XSH2::Functions::DEBUG |
4053
|
0 |
8 |
if $XML::XSH2::Functions::DEBUG |
4064
|
0 |
0 |
unless $encoding |
4069
|
0 |
0 |
if $fh->can('flush') |
4071
|
0 |
0 |
if (system($editor . ' ' . $filename) == 0) { } |
4090
|
0 |
0 |
if ($answers ne '') |
4108
|
0 |
0 |
unless ($variable) |
4109
|
0 |
0 |
if $exp eq '' |
4111
|
0 |
0 |
unless (@$ql) |
4121
|
0 |
0 |
if (exists $n{$$d}) { } |
4130
|
0 |
0 |
unless $variable |
4132
|
0 |
0 |
if ($variable) { } |
4136
|
0 |
0 |
if ($fix) { } |
4139
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_attribute($node)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_element($node) or $XML::XSH2::Functions::_xml_module->is_document($node) or $XML::XSH2::Functions::_xml_module->is_text_or_cdata($node) or $XML::XSH2::Functions::_xml_module->is_comment($node) or $XML::XSH2::Functions::_xml_module->is_pi($node)) { } |
4146
|
0 |
0 |
$opts->{'noindent'} ? : |
4153
|
0 |
0 |
$opts->{'all'} ? : |
|
0 |
0 |
unless $opts->{'no-comment'} |
4156
|
0 |
0 |
unless $variable |
4157
|
0 |
0 |
unless $variable |
4159
|
0 |
0 |
if (-t STDIN) { } |
4162
|
0 |
0 |
if ($response =~ /^y/) { } |
|
0 |
0 |
elsif ($response =~ /^s/) { } |
4165
|
0 |
0 |
$variable ? : |
4175
|
0 |
0 |
if ($variable) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_attribute($node)) { } |
4176
|
0 |
0 |
if ($exp) |
4181
|
0 |
0 |
if defined $replacement |
4182
|
0 |
0 |
if defined $rl |
4184
|
0 |
0 |
$opts->{'recover'} ? : |
4185
|
0 |
0 |
$opts->{'keep-blanks'} ? : |
4187
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_document($node)) { } |
4192
|
0 |
0 |
if ($@ or not ref $chunk) |
4193
|
0 |
0 |
if (-t STDIN) { } |
4200
|
0 |
0 |
if ($c == 1) { } |
|
0 |
0 |
elsif ($c == 2) { } |
|
0 |
0 |
elsif ($c == 3) { } |
4215
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_document($node)) { } |
4221
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_element($child)) { } |
4231
|
0 |
0 |
if defined $rl |
4233
|
0 |
0 |
if (insert_node($chunk, $node, undef, 'replace', undef, $rl) eq 'remove') |
4240
|
0 |
0 |
if not exists $opts->{'all'} or $variable |
4252
|
1 |
26 |
unless (@$fl) |
4258
|
2 |
24 |
if ($opts->{'respective'}) { } |
4267
|
0 |
10 |
unless (@$tl) |
4268
|
0 |
0 |
$pos % 10 == 2 ? : |
|
0 |
0 |
$pos % 10 == 1 ? : |
4271
|
0 |
10 |
unless ($all_to_all) |
4282
|
0 |
2 |
if $err |
4284
|
1 |
1 |
$reverse ? : |
4285
|
5 |
5 |
$reverse ? : |
4290
|
0 |
10 |
if ($replace) |
4298
|
0 |
24 |
unless (@$tl) |
4302
|
13 |
11 |
if ($all_to_all) { } |
4304
|
2 |
11 |
if ($opts->{'preserve-order'} and $where =~ /^(after|prepend)$/) { } |
4315
|
0 |
13 |
if ($replace) |
4320
|
0 |
11 |
if @$fl != @$tl |
4325
|
1 |
10 |
if ($replace eq 'remove') |
4343
|
0 |
60 |
unless (@$tl) |
4350
|
0 |
60 |
unless (@nodes) |
4354
|
1 |
59 |
if ($to_all) { } |
|
59 |
0 |
elsif ($tl->[0]) { } |
4360
|
0 |
2 |
if ($replace) |
4366
|
70 |
0 |
if (ref $tl->[0]) |
4367
|
0 |
70 |
if (insert_node($node, $tl->[0], undef, $where, undef, $rl) eq 'remove') |
4387
|
14 |
33 |
if $moved{$$node} |
4390
|
0 |
33 |
if ($opts->{'inner'}) { } |
4391
|
0 |
0 |
if ($opts->{'while'} or $opts->{'until'}) |
4394
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_element($node)) |
4403
|
1 |
32 |
if ($XML::XSH2::Functions::_xml_module->is_attribute($node)) { } |
4404
|
0 |
1 |
if ($opts->{'while'} or $opts->{'until'}) |
4415
|
0 |
32 |
unless ($parent) |
4419
|
17 |
15 |
if (defined $opts->{'while'} or defined $opts->{'until'}) |
4427
|
17 |
0 |
if ($next) |
4434
|
31 |
2 |
unless ($skip_ws and $XML::XSH2::Functions::_xml_module->is_text($next) and $next->getData =~ /^\s*$/ or $skip_comments and $XML::XSH2::Functions::_xml_module->is_comment($next) or $skip_pi and $XML::XSH2::Functions::_xml_module->is_pi($next)) |
4438
|
23 |
8 |
if (defined $while) |
4439
|
12 |
11 |
unless _ev_count($while) |
4441
|
8 |
11 |
if (defined $until) |
4443
|
1 |
7 |
if $res |
4461
|
9 |
23 |
if ($last) |
4467
|
9 |
14 |
if $next->isSameNode($last) |
4470
|
0 |
9 |
unless ($next) |
4476
|
9 |
24 |
if defined $rl |
4490
|
0 |
7 |
if (@$ql_start != @$ql_end) |
4497
|
0 |
13 |
unless ($node->parentNode and $end_node->parentNode) |
4501
|
0 |
26 |
if ($XML::XSH2::Functions::_xml_module->is_attribute($n)) |
4506
|
0 |
13 |
unless ($node->parentNode->isSameNode($end_node->parentNode)) |
4517
|
13 |
10 |
if $n->isSameNode($end_node) |
4520
|
0 |
13 |
unless $n |
4522
|
3 |
10 |
if ($XML::XSH2::Functions::_xml_module->is_document($parent)) { } |
4527
|
3 |
2 |
if ($n->isSameNode($docel)) |
4532
|
0 |
3 |
unless $found |
4547
|
6 |
7 |
if defined $rl |
4575
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_text($node) or $XML::XSH2::Functions::_xml_module->is_cdata_section($node) or $XML::XSH2::Functions::_xml_module->is_comment($node)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_pi($node)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_attribute($node)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_element($node) or $XML::XSH2::Functions::_xml_module->is_document($node)) { } |
4582
|
0 |
0 |
if ($data ne '') { } |
4583
|
0 |
0 |
unless defined $data |
4599
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_text($child) or $XML::XSH2::Functions::_xml_module->is_cdata_section($child)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_element($child) or $XML::XSH2::Functions::_xml_module->is_pi($child)) { } |
4602
|
0 |
0 |
if ($data ne '') { } |
4603
|
0 |
0 |
unless defined $data |
4620
|
0 |
0 |
if ($XML::XSH2::Functions::_xml_module->is_text($child) or $XML::XSH2::Functions::_xml_module->is_cdata_section($child)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_element($child) or $XML::XSH2::Functions::_xml_module->is_pi($child)) { } |
4623
|
0 |
0 |
if ($data ne '') { } |
4624
|
0 |
0 |
unless defined $data |
4655
|
0 |
2 |
if ($opts->{'dtd'} + $opts->{'schema'} + $opts->{'relaxng'} > 1) |
4658
|
0 |
2 |
if (grep(exists $opts->{$_}, ('file', 'doc', 'string')) > 1) |
4661
|
2 |
0 |
unless $opts->{'schema'} or $opts->{'relaxng'} |
4662
|
0 |
2 |
if (exists $opts->{'public'} ne '' and not $opts->{'dtd'}) |
4665
|
0 |
2 |
if exists $opts->{'file'} |
4667
|
2 |
0 |
if ($doc->can('is_valid')) { } |
4668
|
0 |
2 |
if (not $opts->{'dtd'} or exists $opts->{'file'} or exists $opts->{'string'} or exists $opts->{'doc'} or exists $opts->{'public'}) { } |
4670
|
0 |
0 |
if ($opts->{'dtd'}) { } |
|
0 |
0 |
elsif ($opts->{'relaxng'}) { } |
|
0 |
0 |
elsif ($opts->{'schema'}) { } |
4672
|
0 |
0 |
unless eval {
do {
'XML::LibXML::Dtd'->can('new')
}
} |
4674
|
0 |
0 |
if (exists $opts->{'file'} or exists $opts->{'public'}) { } |
|
0 |
0 |
elsif (exists $opts->{'string'}) { } |
4681
|
0 |
0 |
if ($opts->{'yesno'}) { } |
4683
|
0 |
0 |
$ret ? : |
4689
|
0 |
0 |
unless eval {
do {
'XML::LibXML::RelaxNG'->can('new')
}
} |
4692
|
0 |
0 |
if (exists $opts->{'file'}) { } |
|
0 |
0 |
elsif (exists $opts->{'string'}) { } |
|
0 |
0 |
elsif (exists $opts->{'doc'}) { } |
4698
|
0 |
0 |
unless (ref $rngdoc) |
4706
|
0 |
0 |
$@ ? : |
4707
|
0 |
0 |
if ($opts->{'yesno'}) { } |
4708
|
0 |
0 |
$ret ? : |
4710
|
0 |
0 |
if $@ |
4713
|
0 |
0 |
unless eval {
do {
'XML::LibXML::Schema'->can('new')
}
} |
4716
|
0 |
0 |
if (exists $opts->{'file'}) { } |
|
0 |
0 |
elsif (exists $opts->{'string'}) { } |
|
0 |
0 |
elsif ($opts->{'doc'}) { } |
4722
|
0 |
0 |
unless (ref $xsddoc) |
4730
|
0 |
0 |
$@ ? : |
4731
|
0 |
0 |
if ($opts->{'yesno'}) { } |
4732
|
0 |
0 |
$ret ? : |
4734
|
0 |
0 |
if $@ |
4738
|
1 |
1 |
if ($opts->{'yesno'}) { } |
4740
|
1 |
0 |
$ret ? : |
4756
|
0 |
0 |
if ($doc) |
4766
|
1 |
0 |
if ($doc) |
4768
|
1 |
0 |
if ($dtd) |
4780
|
0 |
0 |
if ($doc) |
4784
|
0 |
0 |
if (defined $public || defined $system and not defined $root) |
4785
|
0 |
0 |
if ($doc->getDocumentElement) { } |
4791
|
0 |
0 |
if ($doc->internalSubset) |
4794
|
0 |
0 |
if ($doc->externalSubset) |
4797
|
0 |
0 |
unless defined $root or defined $public or defined $system |
4798
|
0 |
0 |
if ($opts->{'internal'}) { } |
4814
|
0 |
0 |
if ($doc) |
4823
|
0 |
0 |
if ($doc) |
4832
|
0 |
0 |
if $standalone =~ /yes/i |
4833
|
0 |
0 |
if $standalone =~ /no/i |
4841
|
0 |
0 |
if ($doc) |
4855
|
1 |
0 |
if ($doc) { } |
4866
|
1 |
72 |
if ($XML::XSH2::Functions::_xml_module->xml_equal($nodea, $nodeb)) |
4878
|
1 |
38 |
if (is_ancestor_or_self($node, xsh_context_node())) |
4883
|
8 |
31 |
if ($trim_space) |
4885
|
0 |
2 |
if ($sibling and $XML::XSH2::Functions::_xml_module->is_text($sibling) and $sibling->getData =~ /^\s+$/) |
4924
|
52 |
0 |
unless $opts->{'quiet'} |
4937
|
6 |
313 |
if (wantarray) { } |
|
25 |
288 |
elsif (defined $map) { } |
4939
|
0 |
6 |
if $@ |
4942
|
0 |
25 |
if (ref $map) |
4945
|
3 |
22 |
if ($in_place) { } |
4948
|
0 |
3 |
if $@ |
4954
|
0 |
22 |
if $@ |
4959
|
5 |
283 |
if $@ |
4974
|
0 |
0 |
if (chdir $dir) { } |
4978
|
0 |
0 |
unless "$XML::XSH2::Functions::QUIET" |
4985
|
3 |
1033 |
unless ref $_[0] eq 'ARRAY' |
4995
|
667 |
366 |
unless $top_level |
4996
|
51 |
982 |
if $want_returns |
5002
|
366 |
667 |
if $trapsignals |
5003
|
366 |
667 |
if $trapsignals |
5005
|
1482 |
12 |
if (ref $run eq 'ARRAY' or ref $run eq 'XML::XSH2::Command') { } |
5007
|
1 |
1481 |
if ($cmd eq 'test-mode') |
5008
|
1 |
1480 |
if ($cmd eq 'run-mode') |
5009
|
1 |
1479 |
if $XML::XSH2::Functions::TEST_MODE |
5010
|
1479 |
0 |
if defined $cmd |
5023
|
0 |
1033 |
if (not $trapsignals and $err =~ /^SIGINT|^SIGPIPE/) { } |
5032
|
0 |
208 |
unless $XML::XSH2::Functions::_xsh |
5046
|
0 |
20 |
if $XML::XSH2::Functions::TEST_MODE |
5051
|
0 |
20 |
unless ref $cmd eq 'ARRAY' |
5053
|
0 |
20 |
if ($^O eq 'MSWin32') |
5058
|
0 |
20 |
if ($pipe eq '') |
5062
|
0 |
20 |
if $XML::XSH2::Functions::DEBUG |
5088
|
20 |
0 |
if (UNIVERSAL::can($XML::XSH2::Functions::OUT, 'flush')) |
5095
|
20 |
0 |
if UNIVERSAL::can($XML::XSH2::Functions::OUT, 'flush') |
5098
|
0 |
20 |
if $err |
5105
|
0 |
5 |
unless ref $cmd eq 'ARRAY' |
5106
|
5 |
0 |
if ($name ne '') |
5108
|
0 |
5 |
if $XML::XSH2::Functions::DEBUG |
5117
|
5 |
0 |
unless $@ |
5121
|
0 |
5 |
if $err |
5136
|
14 |
15 |
if (ref $@ and UNIVERSAL::isa($@, 'XML::XSH2::Internal::LoopTerminatingException')) { } |
|
0 |
15 |
elsif ($@) { } |
5137
|
0 |
14 |
if ($@->label =~ /^(?:next|last|redo)$/ and $@->[1] > 1) |
5141
|
6 |
8 |
if ($@->label eq 'next') { } |
|
2 |
6 |
elsif ($@->label eq 'last') { } |
|
6 |
0 |
elsif ($@->label eq 'redo') { } |
5172
|
0 |
6 |
if (ref $@ and UNIVERSAL::isa($@, 'XML::XSH2::Internal::UncatchableException')) { } |
|
6 |
0 |
elsif ($@) { } |
5176
|
0 |
6 |
if ($err =~ /^SIGINT/) { } |
5179
|
6 |
0 |
unless ref $err |
5180
|
6 |
0 |
if (ref $var and @{$var;} > 1) { } |
5192
|
0 |
6 |
if $err |
5194
|
0 |
0 |
if ref $var |
5220
|
56 |
0 |
$XML::XSH2::Functions::_xpc->can('setContextSize') ? : |
5228
|
300 |
0 |
if ($node) { } |
5230
|
218 |
0 |
if (defined $size and defined $pos and $XML::XSH2::Functions::_xpc->can('setContextSize')) |
5231
|
0 |
218 |
if $size < -1 |
5233
|
0 |
218 |
if $pos < -1 or $pos > $size |
5245
|
1 |
13 |
ref $v ? : |
5247
|
1 |
13 |
if $var ne '' |
5249
|
1 |
13 |
$var ne '' ? : |
5253
|
1 |
56 |
if ($var ne '') { } |
5261
|
14 |
43 |
if (ref $@ and UNIVERSAL::isa($@, 'XML::XSH2::Internal::LoopTerminatingException')) { } |
|
0 |
43 |
elsif ($@) { } |
5262
|
0 |
14 |
if ($@->label =~ /^(?:next|last|redo)$/ and $@->[1] > 1) |
5266
|
6 |
8 |
if ($@->label eq 'next') { } |
|
2 |
6 |
elsif ($@->label eq 'last') { } |
|
6 |
0 |
elsif ($@->label eq 'redo') { } |
5286
|
1 |
13 |
if $var ne '' |
5289
|
0 |
14 |
if $err |
5298
|
2 |
3 |
if (not defined $exp or _ev_count($exp)) |
5308
|
230 |
25 |
if (_ev_count($exp)) { } |
5311
|
3 |
227 |
ref $else ? : |
5317
|
0 |
1 |
if ('XML::LibXML::Document'->can('cloneNode') == 'XML::LibXML::Node'->can('cloneNode')) { } |
5331
|
0 |
0 |
if ($as_doc) { } |
5333
|
0 |
0 |
unless $styledoc |
5336
|
0 |
0 |
if (-f $stylefile or $stylefile =~ /^[a-z]+:/) { } |
5345
|
0 |
0 |
if ($want_doc) { } |
5359
|
0 |
0 |
if ($opts->{'compile'}) |
5360
|
0 |
0 |
if (@_ or $opts->{'precompiled'}) { } |
5367
|
0 |
0 |
if ($opts->{'precompiled'}) { } |
5368
|
0 |
0 |
if ($stylefile =~ /^{/) { } |
|
0 |
0 |
elsif ($stylefile =~ /^\$/) { } |
5375
|
0 |
0 |
unless (ref $st and UNIVERSAL::isa($st, 'XML::LibXSLT::Stylesheet') or UNIVERSAL::isa($st, 'XML::LibXSLT::StylesheetWrapper')) |
5382
|
0 |
0 |
unless $st |
5387
|
0 |
0 |
if (@_) { } |
5396
|
0 |
0 |
if "$XML::XSH2::Functions::DEBUG" |
5397
|
0 |
0 |
unless $doc |
5401
|
0 |
0 |
if ($p =~ /^\s*(\S+?)\s*=\s*(.*?)\s*$/) { } |
5407
|
0 |
0 |
if ($XML::XSH2::Functions::DEBUG) |
5412
|
0 |
0 |
$opts->{'string'} ? : |
5413
|
0 |
0 |
if ($st) { } |
5418
|
0 |
0 |
if ($result) { } |
5419
|
0 |
0 |
if $@ |
5421
|
0 |
0 |
if $@ |
5423
|
0 |
0 |
if ($opts->{'string'}) { } |
5430
|
0 |
0 |
if defined $rl |
5441
|
0 |
0 |
if ($xupdate_doc and $doc) { } |
5448
|
0 |
0 |
if ($xupdate_doc) { } |
5472
|
254 |
0 |
if (defined $def) { } |
5474
|
0 |
254 |
if (@vars < @args) { } |
|
0 |
254 |
elsif (@vars > @args) { } |
5482
|
386 |
0 |
$eval_args ? : |
5500
|
0 |
254 |
if (ref $err and UNIVERSAL::isa($err, 'XML::XSH2::Internal::SubTerminatingException')) |
5505
|
7 |
247 |
if $err |
5514
|
0 |
0 |
if ($name =~ /^\s*\$(.*)$/) { } |
5517
|
0 |
0 |
if ($lex) { } |
5554
|
0 |
0 |
unless "$XML::XSH2::Functions::QUIET" |
5556
|
0 |
0 |
if (-f $file and open my $f, "$file") { } |
5557
|
0 |
0 |
if ($] >= 5.008) |
5574
|
0 |
0 |
if (not $conditionally && $XML::XSH2::Functions::_includes{$f}) |
5588
|
0 |
0 |
if ($opts->{'fulltext'}) { } |
5590
|
0 |
0 |
if ($opts->{'regexp'}) { } |
5591
|
0 |
0 |
if $XML::XSH2::Help::HELP{$k}[0] =~ /$query/i |
5593
|
0 |
0 |
if $XML::XSH2::Help::HELP{$k}[0] =~ /\b\Q$query\E\b/i |
5598
|
0 |
0 |
if ($opts->{'regexp'}) { } |
5599
|
0 |
0 |
if ($k . ' - ' . $XML::XSH2::Help::Apropos->{$k}) =~ /$query/i |
5601
|
0 |
0 |
if ($k . ' - ' . $XML::XSH2::Help::Apropos->{$k}) =~ /\b\Q$query\E\b/i |
5610
|
0 |
0 |
if ($command) { } |
5611
|
0 |
0 |
if (exists $XML::XSH2::Help::HELP{$command}) { } |
5618
|
0 |
0 |
if (keys %h == 1) { } |
|
0 |
0 |
elsif (keys %h > 1) { } |
5651
|
0 |
4 |
if (ref $@ and UNIVERSAL::isa($@, 'XML::XSH2::Internal::LoopTerminatingException')) { } |
|
0 |
4 |
elsif ($@) { } |
5652
|
0 |
0 |
if ($@->label =~ /^(?:next|redo)$/ and $@->[1] > 1) |
5656
|
0 |
0 |
if ($@->label eq 'next') { } |
|
0 |
0 |
elsif ($@->label eq 'redo') { } |
5674
|
0 |
4 |
if $err |
5685
|
0 |
2 |
if (grep {/^input-/;} keys %$opts > 1) |
5688
|
0 |
2 |
if (grep {/^output-/;} grep({not /^output-encoding/;} keys %$opts > 1)) |
5691
|
0 |
2 |
if ($opts->{'no-output'} and grep /^output-/, keys %$opts) |
5697
|
0 |
2 |
if exists $opts->{'input-file'} |
5698
|
0 |
2 |
if exists $opts->{'output-file'} |
5704
|
0 |
2 |
if (exists $opts->{'output-file'}) { } |
|
0 |
2 |
elsif (exists $opts->{'output-pipe'}) { } |
|
0 |
2 |
elsif (exists $opts->{'output-string'}) { } |
5706
|
0 |
0 |
if ($] >= 5.008) |
5709
|
0 |
0 |
$opts->{'output-encoding'} ? : |
5713
|
0 |
0 |
if ($] >= 5.008) |
5716
|
0 |
0 |
$opts->{'output-encoding'} ? : |
5720
|
0 |
0 |
if ($output =~ /^\$(\$?[a-zA-Z_][a-zA-Z0-9_]*)$/) { } |
|
0 |
0 |
elsif (ref($XML::XSH2::Functions::OUT) =~ /Term::ReadLine/) { } |
5744
|
2 |
0 |
$opts->{'no-output'} ? : |
5752
|
0 |
2 |
unless eval {
do {
if (exists $opts->{'input-pipe'}) {
open my $F, "$input|";
die "Cannot open pipe to ${input}: $!\n" unless $F;
$parser->parse_file($F);
close $F;
}
elsif (exists $opts->{'input-string'}) {
$parser->parse_string($input);
}
else {
$parser->parse_uri($input);
};
if (exists $opts->{'output-pipe'}) {
close $out;
};
if ($termout) {
out("\n");
};
1
}
} |
5753
|
1 |
1 |
if (exists $opts->{'input-pipe'}) { } |
|
1 |
0 |
elsif (exists $opts->{'input-string'}) { } |
5755
|
0 |
1 |
unless $F |
5763
|
0 |
2 |
if (exists $opts->{'output-pipe'}) |
5766
|
0 |
2 |
if ($termout) |
5769
|
0 |
2 |
if $error |
5780
|
0 |
0 |
if defined $filter |
5782
|
0 |
0 |
if ($nodefilter eq 'comment()') |
5784
|
0 |
0 |
if ($nodefilter eq 'text()') { } |
|
0 |
0 |
elsif ($nodefilter =~ /processing-instruction\((\s*['"]([^'"]+)['"]\s*)?\)$/) { } |
|
0 |
0 |
elsif ($nodefilter eq 'node()') { } |
|
0 |
0 |
elsif ($nodefilter =~ /^(?:([^:]+):)?(.+)$/) { } |
5788
|
0 |
0 |
if $1 ne '' |
5793
|
0 |
0 |
unless $2 eq '*' |
5794
|
0 |
0 |
if ($1 ne '') |
5796
|
0 |
0 |
if $ns eq '' |
5801
|
0 |
0 |
if $filter =~ /^\d+$/ |
5802
|
0 |
0 |
if ($filter ne '') |
5807
|
0 |
0 |
if $test eq '' |
5810
|
0 |
0 |
if $@ |
5816
|
0 |
0 |
unless defined $iterator |
5828
|
0 |
0 |
if (ref $@ and UNIVERSAL::isa($@, 'XML::XSH2::Internal::LoopTerminatingException')) { } |
|
0 |
0 |
elsif ($@) { } |
5829
|
0 |
0 |
if ($@->label =~ /^(?:next|last|redo|prev)$/ and $@->[1] > 1) |
5833
|
0 |
0 |
if ($@->label eq 'next') { } |
|
0 |
0 |
elsif ($@->label eq 'prev') { } |
|
0 |
0 |
elsif ($@->label eq 'last') { } |
|
0 |
0 |
elsif ($@->label eq 'redo') { } |
5835
|
0 |
0 |
unless $iterator->next |
5839
|
0 |
0 |
unless $iterator->prev |
5852
|
0 |
0 |
unless $iterator->next |
5861
|
0 |
0 |
if $err |
5868
|
0 |
0 |
if (ref $XML::XSH2::Functions::_on_exit) |
5879
|
0 |
1 |
unless ($prefix =~ /^[-_.[:alpha:]][-_.[:alnum:]]*$/) |
5918
|
0 |
0 |
if ($code =~ /^\s*{/) { } |
|
0 |
0 |
elsif ($code =~ /^\s*([A-Za-z_][A-Za-z_0-9]*(::[A-Za-z_][A-Za-z_0-9]*)*)\s*$/) { } |
5922
|
0 |
0 |
if ($2 ne '') { } |
5930
|
0 |
0 |
if $@ |
5931
|
0 |
0 |
if ($name =~ /^([^:]+):(.*)$/) { } |
5932
|
0 |
0 |
if (exists $XML::XSH2::Functions::_ns{$1}) { } |
5948
|
0 |
0 |
if ($name =~ /^([^:]+):(.*)$/) { } |
5949
|
0 |
0 |
if (exists $XML::XSH2::Functions::_ns{$1}) { } |
5964
|
0 |
1 |
unless $node |
5965
|
0 |
1 |
if ($XML::XSH2::Functions::_xml_module->is_element($node)) { } |
|
1 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_attribute($node)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_text($node)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_cdata_section($node)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_pi($node)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_entity_reference($node)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_document($node)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_document_fragment($node)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_comment($node)) { } |
|
0 |
0 |
elsif ($XML::XSH2::Functions::_xml_module->is_namespace($node)) { } |
6011
|
14 |
5 |
if (ref $exp) { } |
6012
|
14 |
0 |
if (UNIVERSAL::isa($exp, 'XML::LibXML::NodeList')) { } |
|
0 |
0 |
elsif (UNIVERSAL::isa($exp, 'XML::LibXML::Node')) { } |
6031
|
0 |
0 |
ref $xp ? : |
6037
|
0 |
0 |
do {
UNIVERSAL::isa($xp, 'XML::LibXML::NodeList') unless ref $xp eq 'ARRAY'
} ? : |
|
0 |
0 |
ref $xp ? : |
6038
|
0 |
0 |
if $xp eq '' |
6040
|
0 |
0 |
unless ref $xp eq 'ARRAY' |
6049
|
0 |
0 |
unless wantarray |
6062
|
0 |
0 |
if UNIVERSAL::isa($node, 'XML::LibXML::NodeList') |
6065
|
0 |
0 |
if (wantarray and ref $r and UNIVERSAL::isa($r, 'XML::LibXML::NodeList')) { } |
6085
|
0 |
0 |
if ($XML::XSH2::Functions::_xpc->can('getContextPosition')) { } |
6097
|
0 |
0 |
if (defined $base) { } |
6157
|
0 |
0 |
if ($data->{'Encoding'}) |