| 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[^\]+)(\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'}) |