| line | % | coverage | branch |
|---|
| 119 | 50 | T | F | unless $parser_version >= $needVersion |
| 121 | 50 | T | F | if ($] >= 5.008) |
| 130 | 50 | T | F | if (eval 'require Scalar::Util' and defined \&Scalar::Util::weaken) { } |
| 0 | T | F | elsif (eval 'require WeakRef') { } |
| 389 | 100 | T | F | unless ($args{'MoreOptions'}) |
| 391 | 100 | T | F | unless $valid_option{$arg} |
| 403 | 100 | T | F | if (exists $args{'TwigHandlers'}) |
| 410 | 100 | T | F | if (exists $args{'StartTagHandlers'}) |
| 415 | 100 | T | F | if (exists $args{'DoNotChainHandlers'}) |
| 418 | 100 | T | F | if (exists $args{'IgnoreElts'}) |
| 420 | 50 | T | F | if (isa($args{'IgnoreElts'}, 'ARRAY')) |
| 425 | 100 | T | F | if (exists $args{'Index'}) |
| 428 | 100 | T | F | if (ref $index eq 'ARRAY') |
| 437 | 100 | T | F | if (exists $args{'EltClass'}) |
| 439 | 100 | T | F | if (exists $args{'MapXmlns'}) |
| 445 | 100 | T | F | if (exists $args{'KeepOriginalPrefix'}) |
| 453 | 100 | T | F | if ($args{'ExpandExternalEnts'}) { } |
| 457 | 100 | T | F | if ($args{'ExpandExternalEnts'} == -1) |
| 467 | 50 | T | F | if (not $args{'NoLWP'} and not _use('URI') and not _use('URI::File') and not _use('LWP')) { } |
| 472 | 100 | T | F | if ($args{'DoNotEscapeAmpInAtts'}) { } |
| 484 | 100 | T | F | if ($args{'TwigRoots'}) |
| 489 | 100 | T | F | if ($args{'EndTagHandlers'}) |
| 490 | 100 | T | F | unless ($$self{'twig_roots'} or $args{'ForceEndTagHandlersUsage'}) |
| 503 | 100 | T | F | if ($args{'TwigPrintOutsideRoots'}) |
| 504 | 100 | T | F | unless $$self{'twig_roots'} |
| 507 | 100 | T | F | if (_is_fh($args{'TwigPrintOutsideRoots'})) |
| 513 | 100 | T | F | if ($args{'KeepSpaces'}) |
| 514 | 100 | T | F | if $args{'DiscardSpaces'} |
| 515 | 100 | T | F | if $args{'KeepSpacesIn'} |
| 519 | 100 | T | F | if ($args{'DiscardSpaces'}) |
| 520 | 100 | T | F | if $args{'KeepSpacesIn'} |
| 524 | 100 | T | F | if ($args{'KeepSpacesIn'}) |
| 525 | 100 | T | F | if $args{'DiscardSpacesIn'} |
| 532 | 100 | T | F | if ($args{'DiscardSpacesIn'}) |
| 540 | 100 | T | F | unless $$self{'twig_keep_spaces'} |
| 543 | 100 | T | F | if ($args{'Comments'} eq 'drop') { } |
| 100 | T | F | elsif ($args{'Comments'} eq 'keep') { } |
| 100 | T | F | elsif ($args{'Comments'} eq 'process') { } |
| 550 | 100 | T | F | if ($args{'Pi'} eq 'drop') { } |
| 100 | T | F | elsif ($args{'Pi'} eq 'keep') { } |
| 100 | T | F | elsif ($args{'Pi'} eq 'process') { } |
| 556 | 100 | T | F | if ($args{'KeepEncoding'}) { } |
| 561 | 100 | T | F | if defined $args{'ParseStartTag'} |
| 566 | 100 | T | F | if ($args{'ParseStartTag'}) { } |
| 573 | 100 | T | F | if ($args{'OutputFilter'}) { } |
| 580 | 100 | T | F | if ($args{'RemoveCdata'}) { } |
| 587 | 100 | T | F | if ($args{'OutputTextFilter'}) { } |
| 595 | 100 | T | F | if (exists $args{'KeepAttsOrder'}) { } |
| 597 | 100 | T | F | if (_use('Tie::IxHash')) { } |
| 606 | 100 | T | F | if ($args{'PrettyPrint'}) |
| 607 | 50 | T | F | if ($args{'EscapeGt'}) |
| 608 | 100 | T | F | if ($args{'Quote'}) |
| 609 | 100 | T | F | if ($args{'EmptyTags'}) |
| 611 | 100 | T | F | if (exists $args{'Id'}) |
| 612 | 100 | T | F | if ($args{'NoProlog'}) |
| 613 | 100 | T | F | if ($args{'DoNotOutputDTD'}) |
| 614 | 100 | T | F | if ($args{'LoadDTD'}) |
| 615 | 100 | T | F | if ($args{'CharHandler'}) |
| 617 | 100 | T | F | if ($args{'InputFilter'}) |
| 618 | 100 | T | F | if ($args{'NoExpand'}) |
| 619 | 100 | T | F | if (my $output_encoding = $args{'OutputEncoding'}) |
| 621 | 100 | T | F | if (my $tdh = $args{'TopDownHandlers'}) |
| 624 | 100 | T | F | if ($$self{'twig_roots'}) { } |
| 625 | 100 | T | F | if ($$self{'twig_default_print'}) { } |
| 626 | 100 | T | F | if ($$self{'twig_keep_encoding'}) { } |
| 651 | 100 | T | F | if ($weakrefs) |
| 660 | 100 | T | F | if (not ref $t or not isa($t, 'XML::Twig')) |
| 665 | 50 | T | F | if ($] >= 5.008 and ${^UNICODE} and ${^UNICODE} & 24 and isa($_[0], 'GLOB') and -p $_[0]) |
| 682 | 100 | T | F | if (not $t) |
| 683 | 100 | T | F | if (isa($returned, 'XML::Twig') and $$returned{'twig_finish_now'}) { } |
| 706 | 50 | T | F | unless _use('File::Temp') |
| 714 | 50 | T | F | unless ($$t{'twig_keep_encoding'} or $] < 5.006) |
| 715 | 50 | T | F | if (grep /useperlio=define/, `$^X -V`) |
| 724 | 50 | T | F | unless chmod $mode, $tmpfile |
| 726 | 100 | T | F | if ($suffix) |
| 728 | 100 | T | F | if ($suffix =~ /\*/) { } |
| 731 | 50 | T | F | unless rename $file, $backup |
| 733 | 50 | T | F | unless rename $tmpfile, $file |
| 752 | 50 | T | F | $@ ? : |
| 757 | 50 | T | F | unless _use('LWP::Simple') |
| 759 | 50 | T | F | $@ ? : |
| 766 | 50 | T | F | $@ ? : |
| 772 | 100 | T | F | $$t{'ErrorContext'} ? : |
| 781 | 50 | T | F | $$t{'ErrorContext'} ? : |
| 783 | 100 | T | F | isa($content, 'GLOB') ? : |
| 790 | 100 | T | F | if (isa($to_parse, 'GLOB')) { } |
| 100 | T | F | elsif ($to_parse =~ /^\s*</) { } |
| 100 | T | F | elsif ($to_parse =~ m[^\w+://.*\.html?$]) { } |
| 100 | T | F | elsif ($to_parse =~ m[^\w+://]) { } |
| 100 | T | F | elsif ($to_parse =~ /\.html?$/) { } |
| 791 | 100 | T | F | $to_parse =~ /<html/i ? : |
| 794 | 100 | T | F | unless _use('LWP::Simple') |
| 797 | 100 | T | F | unless _use('LWP::Simple') |
| 800 | 50 | T | F | if ($xml_parse_ok) { } |
| 804 | 0 | T | F | if ($doc =~ /<html/i) { } |
| 818 | 100 | T | F | if (_is_well_formed_xml($_[0])) { } |
| 822 | 100 | T | F | if (_is_well_formed_xml($html)) { } |
| 833 | 100 | T | F | $@ ? : |
| 850 | 100 | T | F | unless _use('HTML::TreeBuilder', '3.13') |
| 863 | 100 | T | F | if ($$options{'indent'}) |
| 879 | 50 | T | F | if ($@ =~ /^\s*xml declaration not at start of external entity/) { } |
| 50 | T | F | elsif ($@ =~ /^\s*not well-formed \(invalid token\)/) { } |
| 885 | 100 | T | F | unless (keys %xml_parser_encoding) |
| 887 | 100 | T | F | if (not $add_decl) { } |
| 888 | 50 | T | F | if ($xml_parser_encoding{$encoding}) { } |
| 0 | T | F | elsif ($encoding eq 'euc-jp' and $xml_parser_encoding{'x-euc-jp-jisx0221'}) { } |
| 0 | T | F | elsif ($encoding eq 'shift-jis' and $xml_parser_encoding{'x-sjis-jisx0221'}) { } |
| 895 | 50 | T | F | if ($add_decl) { } |
| 934 | 50 | T | F | if ($$meta{'http-equiv'} and $$meta{'http-equiv'} =~ /^\s*content-type\s*/i and $$meta{'content'} and $$meta{'content'} =~ m[^\s*text/html\s*;\s*charset\s*=\s*(\S*)\s*]i) |
| 948 | 50 | T | F | if (_use('Encode')) { } |
| 0 | T | F | elsif (_use('Text::Iconv')) { } |
| 0 | T | F | elsif (_use('Unicode::Map8') and _use('Unicode::String')) { } |
| 952 | 0 | T | F | if ($converter) |
| 979 | 50 | T | F | if ($2 and $block_tag{$2}) { } |
| 0 | T | F | elsif ($3 and $block_tag{$3}) { } |
| 980 | 50 | T | F | unless $2 =~ m[/>] |
| 998 | 100 | T | F | if ($text_type{$type}) { } |
| 1023 | 100 | T | F | if ($disallowed{$module}) |
| 1024 | 100 | T | F | if ($used{$module}) |
| 1025 | 100 | T | F | if (eval "require $module") { } |
| 1027 | 50 | T | F | if (${"${module}::VERSION";} >= $version) { } |
| 1039 | 100 | T | F | if ($n > 0) { } |
| 100 | T | F | elsif ($n < 0) { } |
| 1040 | 100 | T | F | if $i == $n |
| 100 | T | F | if (&$coderef) |
| 1042 | 100 | T | F | if $i == $n |
| 100 | T | F | if (&$coderef) |
| 1050 | 100 | T | F | if ($uri =~ m[^\w+://]) { } |
| 1057 | 100 | T | F | if (defined $base and not $filename =~ m[^(?:[\\/]|\w+:)]) |
| 1068 | 100 | T | F | unless open TWIG_TO_SLURP, "<$filename" |
| 1091 | 50 | T | F | unless _use('LWP') |
| 1092 | 50 | T | F | if ($^O ne 'VMS') { } |
| 1093 | 50 | T | F | unless pipe README, WRITEME |
| 1094 | 100 | T | F | if (my $pid = fork) { } |
| 1097 | 100 | T | F | $safe ? : |
| 1099 | 100 | T | F | $@ ? : |
| 1111 | 100 | T | F | unless $response->is_success |
| 1121 | 0 | T | F | unless $response->is_success |
| 1122 | 0 | T | F | $safe ? : |
| 1123 | 0 | T | F | $@ ? : |
| 1147 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 1155 | 50 | T | F | if (@saved_default_handler and defined $saved_default_handler[1]) { } |
| 1169 | 100 | T | F | if ($$p{'twig'}{'twig_doctype'}{'has_internal'} and not $expat_1_95_2) |
| 1184 | 100 | T | F | unless $_[0] |
| 100 | T | F | if isa($_[0], 'GLOB') or isa($_[0], 'IO::Scalar') |
| 1191 | 100 | T | F | unless _set_special_handler($handlers, $path, $handler, $prev_handler) or _set_pi_handler($handlers, $path, $handler, $prev_handler) or _set_level_handler($handlers, $path, $handler, $prev_handler) or _set_regexp_handler($handlers, $path, $handler, $prev_handler) or _set_xpath_handler($handlers, $path, $handler, $prev_handler) |
| 1209 | 100 | T | F | if ($path =~ /^\s*($ALL|$DEFAULT|#COMMENT)\s*$/io) { } |
| 1219 | 100 | T | F | if (my $handler_data = _parse_xpath_handler($path, $handler)) { } |
| 1231 | 100 | T | F | $$handlers{'xpath_handler'}{$tag} ? : |
| 1233 | 100 | T | F | if ($prev_handler) |
| 1235 | 100 | T | F | if $$handler_data{'handler'} |
| 1238 | 100 | T | F | unless ($$a{'score'}{'type'} || 0) <=> ($$b{'score'}{'type'} || 0) or ($$b{'score'}{'anchored'} || 0) <=> ($$a{'score'}{'anchored'} || 0) or ($$b{'score'}{'steps'} || 0) <=> ($$a{'score'}{'steps'} || 0) or ($$b{'score'}{'predicates'} || 0) <=> ($$a{'score'}{'predicates'} || 0) or ($$b{'score'}{'tests'} || 0) <=> ($$a{'score'}{'tests'} || 0) |
| 1253 | 100 | T | F | if ($path =~ /^\s*(?:\?|#PI)\s*(?:([^\s]*)\s*)$/) { } |
| 1267 | 100 | T | F | if ($path =~ /^ \s* level \s* \( \s* ([0-9]+) \s* \) \s* $/ox) { } |
| 1283 | 100 | T | F | if ($path =~ /^\(\?([xism]*)(?:-[xism]*)?:(.*)\)$/) { } |
| 1302 | 50 | T | F | if ($DEBUG_HANDLER >= 1) |
| 1306 | 50 | T | F | if ($DEBUG_HANDLER and $path_to_check =~ /\S/) |
| 1307 | 100 | T | F | if $path_to_check =~ /\S/ |
| 1323 | 100 | T | F | if ($2) { } |
| 1324 | 100 | T | F | if ($last_token_is_sep) |
| 1328 | 100 | T | F | if (defined $last_token_is_sep and not $last_token_is_sep) |
| 1334 | 100 | T | F | if ($last_token_is_sep) |
| 1348 | 100 | T | F | $xpath_original =~ m[^\s*/(?!/)] ? : |
| 1357 | 50 | T | F | $DEBUG_HANDLER >= 2 ? : |
| 1359 | 100 | T | F | if ($predicate) |
| 1360 | 50 | T | F | if ($DEBUG_HANDLER >= 2) |
| 1363 | 50 | T | F | if ($DEBUG_HANDLER >= 2) |
| 1366 | 100 | T | F | $tag ne '*' ? : |
| 1372 | 100 | T | F | if ($sep eq '/') { } |
| 50 | T | F | elsif ($sep eq '//') { } |
| 1400 | 50 | T | F | $DEBUG_HANDLER >= 2 ? : |
| 1411 | 100 | T | F | if ($anchored) |
| 1413 | 50 | T | F | $DEBUG_HANDLER >= 2 ? : |
| 1417 | 50 | T | F | if $DEBUG_HANDLER >= 2 |
| 1419 | 50 | T | F | if $DEBUG_HANDLER >= 1 |
| 1421 | 50 | T | F | if ($@) |
| 1424 | 50 | T | F | if $DEBUG_HANDLER >= 1 |
| 1425 | 50 | T | F | if $DEBUG_HANDLER >= 1 |
| 1441 | 100 | T | F | if ($func or $string_regexp or $string_test_num or $string_test_alpha) |
| 1443 | 100 | T | F | if (defined $string) { } |
| 100 | T | F | elsif ($att) { } |
| 100 | T | F | elsif ($bare_att) { } |
| 100 | T | F | elsif ($num_test and $num_test eq '=') { } |
| 100 | T | F | elsif ($alpha_test) { } |
| 100 | T | F | elsif ($func and $func =~ /^string/) { } |
| 100 | T | F | elsif ($string_regexp and $string_regexp =~ /string\(\s*($REG_NAME)\s*\)\s*($REG_MATCH)\s*($REG_REGEXP)/) { } |
| 100 | T | F | elsif ($string_test_alpha and $string_test_alpha =~ /string\(\s*($REG_NAME)\s*\)\s*($REG_COMP)\s*($REG_STRING)/) { } |
| 50 | T | F | elsif ($string_test_num and $string_test_num =~ /string\(\s*($REG_NAME)\s*\)\s*($REG_COMP)\s*($REG_NUMBER)/) { } |
| 50 | T | F | elsif ($and_or) { } |
| 1444 | 100 | T | F | $att =~ /^#/ ? : |
| 1447 | 100 | T | F | $bare_att =~ /^#/ ? : |
| 1459 | 0 | T | F | $2 eq '=' ? : |
| 1462 | 0 | T | F | $and_or eq 'and' ? : |
| 1497 | 50 | T | F | if $$handlers{'attcond_handlers'} |
| 1577 | 100 | T | F | if ref $$handlers{$path} and isa($$handlers{$path}, 'CODE') |
| 1587 | 100 | T | F | if (my $type = $$handler_data{'test_on_text'}) |
| 1602 | 100 | T | F | if ($$t{'twig_parsing'}) |
| 1606 | 100 | T | F | if ($weakrefs) |
| 1623 | 100 | T | F | $@ ? : |
| 1629 | 100 | T | F | $@ ? : |
| 1643 | 100 | T | F | if $t->root |
| 1652 | 100 | T | F | unless $$t{'twig_current'} |
| 1653 | 100 | T | F | if ($$t{'twig_stored_spaces'} or $option{'force'} or $$t{'twig_preserve_space'}) |
| 1654 | 100 | T | F | if ($$t{'twig_current'}->is_pcdata) { } |
| 1658 | 100 | T | F | unless (defined $$t{'twig_space_policy'}{$current_gi}) |
| 1661 | 100 | T | F | if ($$t{'twig_space_policy'}{$current_gi} or not $$t{'twig_stored_spaces'} =~ /\n/ or $option{'force'} or $$t{'twig_preserve_space'}) |
| 1686 | 100 | T | F | if ($$t{'twig_in_pcdata'}) |
| 1693 | 100 | T | F | if (my $func = $$t{'parse_start_tag'}) { } |
| 50 | T | F | elsif ($$t{'twig_entities_in_attribute'}) { } |
| 1702 | 100 | T | F | if ($$t{'twig_read_external_dtd'}) |
| 1705 | 100 | T | F | if (my $filter = $$t{'twig_input_filter'}) |
| 1710 | 100 | T | F | if ($$t{'twig_map_xmlns'}) |
| 1717 | 100 | T | F | if ($weakrefs) |
| 1720 | 100 | T | F | if $parent |
| 1724 | 100 | T | F | if ($parent) { } |
| 1726 | 100 | T | F | if ($prev_sibling) |
| 1728 | 100 | T | F | if ($weakrefs) |
| 1731 | 100 | T | F | if ($weakrefs) |
| 1732 | 100 | T | F | unless ($$parent{'first_child'}) |
| 1733 | 100 | T | F | if ($weakrefs) |
| 1739 | 50 | T | F | if defined $$t{'twig_dtd_handler'} |
| 1744 | 100 | T | F | if ($$t{'twig_default_print'}) { } |
| 100 | T | F | elsif ($$t{'twig_roots'}) { } |
| 1752 | 100 | T | F | $p->recognized_string =~ m[/\s*>$]s ? : |
| 1754 | 100 | T | F | if $$t{'extra_data'} |
| 1759 | 100 | T | F | if (defined $id) |
| 1761 | 100 | T | F | if ($weakrefs) |
| 1765 | 100 | T | F | if ($$t{'twig_starttag_handlers'}) |
| 1772 | 100 | T | F | unless &$handler($t, $elt) |
| 1774 | 100 | T | F | if (my $all = $$t{'twig_starttag_handlers'}{'handlers'}{$ALL}) |
| 1779 | 100 | T | F | if ($$t{'twig_ignore_elts_handlers'}) |
| 1782 | 100 | T | F | if (@handlers) |
| 1785 | 100 | T | F | if ($$elt{'att'}{'xml:space'} and $$elt{'att'}{'xml:space'} eq 'preserve') |
| 1795 | 100 | T | F | if (not $$t{'twig_keep_original_prefix'} and my $mapped_prefix = $$t{'twig_map_xmlns'}{$uri}) |
| 1798 | 100 | T | F | if ($new_prefix eq '#default') { } |
| 1804 | 100 | T | F | if ($$t{'twig_keep_original_prefix'}) { } |
| 1809 | 100 | T | F | if ($$ns_info{'mapped_prefix'}) |
| 1815 | 100 | T | F | if ($att_name) { } |
| 1818 | 100 | T | F | if ($$ns_info{'mapped_prefix'}) |
| 1827 | 100 | T | F | if $map_att |
| 1833 | 100 | T | F | if ($att_name) { } |
| 1848 | 100 | T | F | unless $$ns_info{'uri'} |
| 1859 | 100 | T | F | if ($p->expand_ns_prefix($prefix) eq $uri) |
| 1871 | 100 | T | F | if (not exists $value{$att} and exists $$attlist{$att}{'default'} and $$attlist{$att}{'default'} ne '#IMPLIED') |
| 1893 | 100 | T | F | if ($string =~ s[^<\s*($REG_NAME)\s*[\s>/]][]s) { } |
| 1906 | 100 | T | F | if ($weakrefs) |
| 1916 | 100 | T | F | if ($$t{'twig_map_xmlns'}) |
| 1925 | 100 | T | F | if ($$t{'twig_in_pcdata'}) |
| 1927 | 50 | T | F | if $$elt{'parent'} |
| 1935 | 100 | T | F | if ($parent) |
| 1938 | 100 | T | F | if ($$parent{'twig_to_be_normalized'}) |
| 1941 | 100 | T | F | if ($$t{'extra_data'}) |
| 1946 | 100 | T | F | if ($$t{'twig_handlers'}) |
| 1950 | 100 | T | F | if ($$t{'twig_tdh'}) { } |
| 1951 | 100 | T | F | if (@handlers) |
| 1952 | 100 | T | F | if (my $all = $$t{'twig_handlers'}{'handlers'}{$ALL}) |
| 1960 | 100 | T | F | unless &$handler($t, $elt) |
| 1962 | 100 | T | F | if (my $all = $$t{'twig_handlers'}{'handlers'}{$ALL}) |
| 1968 | 100 | T | F | if ($$t{'twig_root_depth'} and $p->depth == $$t{'twig_root_depth'}) |
| 1969 | 100 | T | F | if ($$t{'twig_default_print'}) { } |
| 1972 | 100 | T | F | if ($$t{'twig_keep_encoding'}) { } |
| 1981 | 100 | T | F | if ($$elt{'att'}{'xml:space'} and $$elt{'att'}{'xml:space'} eq 'preserve') |
| 1990 | 50 | T | F | if (@{$$t{'twig_handlers_to_trigger'};}) |
| 1995 | 50 | T | F | unless &$handler($t, $handled_elt) |
| 2012 | 100 | T | F | if (my $found_path = &$trigger($$t{'_twig_context_stack'})) |
| 2019 | 100 | T | F | if (not @found_handlers and defined $$handlers{'handlers'}{$DEFAULT}) |
| 2022 | 100 | T | F | if (@found_handlers and $$t{'twig_do_not_chain_handlers'}) |
| 2036 | 100 | T | F | if (not $uri and not $name =~ /^xml/) |
| 2037 | 100 | T | F | if ($uri) { } |
| 2038 | 100 | T | F | if (my $mapped_prefix = $$t{'twig_map_xmlns'}{$uri}) { } |
| 2042 | 100 | T | F | if ($prefix eq '#default') |
| 2043 | 100 | T | F | $prefix ? : |
| 2057 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2058 | 100 | T | F | if (not $$t{'twig_in_cdata'}) { } |
| 2063 | 100 | T | F | if (length $string < 1024) { } |
| 2074 | 100 | T | F | if ($$t{'twig_input_filter'}) |
| 2075 | 100 | T | F | if ($$t{'twig_char_handler'}) |
| 2079 | 100 | T | F | if ($$t{'twig_in_cdata'}) { } |
| 100 | T | F | elsif ($$t{'twig_in_pcdata'}) { } |
| 2085 | 100 | T | F | if ($$t{'extra_data'}) |
| 2093 | 100 | T | F | if ($string =~ /\A\s*\Z/s) { } |
| 2095 | 100 | T | F | if ($$t{'extra_data'}) { } |
| 2110 | 100 | T | F | if ($$t{'extra_data'}) |
| 2129 | 100 | T | F | if ($$t{'twig_in_pcdata'}) { } |
| 2131 | 50 | T | F | if ($weakrefs) |
| 2134 | 50 | T | F | if ($weakrefs) |
| 2135 | 50 | T | F | if ($weakrefs) |
| 2140 | 100 | T | F | if ($t->_space_policy($XML::Twig::index2gi[$$twig_current{'gi'}]) and $$t{'twig_stored_spaces'}) |
| 2145 | 50 | T | F | if ($weakrefs) |
| 2146 | 100 | T | F | if (my $prev_sibling = $$twig_current{'last_child'}) { } |
| 2147 | 50 | T | F | if ($weakrefs) |
| 2152 | 50 | T | F | if ($weakrefs) |
| 2159 | 100 | T | F | if ($$t{'extra_data'}) |
| 2178 | 100 | T | F | if ($$t{'twig_handlers'}) |
| 2182 | 100 | T | F | unless &$handler($t, $elt) |
| 2199 | 50 | T | F | unless &$handler($t, $pi) |
| 100 | T | F | if ($handler) |
| 2204 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'pi_handlers'}{$target}) |
| 2206 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'pi_handlers'}{''}) |
| 2208 | 100 | T | F | defined $data && $data ne '' ? : |
| 2213 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'handlers'}{'#COMMENT'}) |
| 2219 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'handlers'}{'#COMMENT'}) |
| 2221 | 100 | T | F | if (not defined $comment or $comment eq '') |
| 2234 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2248 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2262 | 100 | T | F | if ($$t{'twig_input_filter'}) |
| 2266 | 100 | T | F | if ($keep) { } |
| 100 | T | F | elsif ($process) { } |
| 2268 | 100 | T | F | if ($$t{'twig_stored_spaces'}) |
| 2283 | 100 | T | F | if ($$t{'extra_data'}) |
| 2288 | 100 | T | F | if (not $t->root) { } |
| 100 | T | F | elsif ($$t{'twig_in_pcdata'}) { } |
| 100 | T | F | elsif ($twig_current) { } |
| 2298 | 100 | T | F | if ($t->_space_policy($XML::Twig::index2gi[$$twig_current{'gi'}]) and $$t{'twig_stored_spaces'}) |
| 2307 | 100 | T | F | if ($twig_current) |
| 2333 | 100 | T | F | $p->isa('XML::Twig') ? : |
| 2336 | 100 | T | F | if ($$t{'extra_data'}) |
| 2339 | 100 | T | F | if ($$t{'twig_stored_spaces'}) |
| 2344 | 100 | T | F | if $$t{'twig_tdh'} |
| 2346 | 100 | T | F | if $$t{'twig_original_selected_fh'} |
| 2348 | 100 | T | F | if (exists $$t{'twig_autoflush_data'}) |
| 2350 | 100 | T | F | if $$t{'twig_autoflush_data'}{'fh'} |
| 2351 | 100 | T | F | if $$t{'twig_autoflush_data'}{'args'} |
| 2373 | 100 | T | F | if ($prev_sibling) { } |
| 2375 | 50 | T | F | if ($weakrefs) |
| 2380 | 100 | T | F | if ($weakrefs) |
| 2381 | 100 | T | F | if ($weakrefs) |
| 2389 | 100 | T | F | if $$t{'twig_discard_spaces'} |
| 2390 | 100 | T | F | if $$t{'twig_keep_spaces'} |
| 2391 | 100 | T | F | if $$t{'twig_keep_spaces_in'} and $$t{'twig_keep_spaces_in'}{$gi} |
| 2393 | 100 | T | F | if $$t{'twig_discard_spaces_in'} and $$t{'twig_discard_spaces_in'}{$gi} |
| 2409 | 100 | T | F | if ($sysid) |
| 2410 | 100 | T | F | if ($ndata) { } |
| 2411 | 100 | T | F | if (not -f _based_filename($sysid, $p->base)) |
| 2414 | 100 | T | F | if ($$t{'twig_expand_external_ents'}) |
| 2416 | 100 | T | F | if (not defined $val) |
| 2417 | 100 | T | F | if ($$t{'twig_extern_ent_nofail'}) { } |
| 2427 | 100 | T | F | if ($missing_entity) |
| 2430 | 50 | T | F | if ($entity_list) |
| 2432 | 50 | T | F | if ($parser_version > 2.27) |
| 2436 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2437 | 50 | T | F | if (defined $$ent{'val'} and not $ent_decl =~ /["']/) |
| 2439 | 0 | T | F | $val =~ /"/ ? : |
| 2444 | 50 | T | F | unless $$t{'twig_doctype'}{'internal'} =~ /<!ENTITY\s+$name\s+/ |
| 2456 | 50 | T | F | if ($$t{'twig_no_expand'}) |
| 2457 | 0 | T | F | $$t{'twig_keep_encoding'} ? : |
| 2462 | 100 | T | F | if (not defined $ent_content) |
| 2467 | 50 | T | F | if ($$t{'twig_extern_ent_nofail'}) { } |
| 2502 | 50 | T | F | if ($parser_version > 2.27) { } |
| 2518 | 100 | T | F | if ($$t{'twig_read_external_dtd'} and $sysid) |
| 2527 | 50 | T | F | if $t_dtd->entity_list |
| 2543 | 50 | T | F | if ($parser_version > 2.27 and $$t{'twig_doctype'}{'internal'} =~ /(^|>)\s*$/) |
| 2544 | 50 | T | F | $XML::Twig::Elt::keep_encoding ? : |
| 2545 | 50 | T | F | unless ($text) |
| 2564 | 50 | T | F | if ($parser_version > 2.27 and $$t{'twig_doctype'}{'internal'} =~ /(^|>)\s*$/) |
| 2565 | 50 | T | F | $XML::Twig::Elt::keep_encoding ? : |
| 2566 | 50 | T | F | unless ($text) |
| 2570 | 100 | T | F | if $fixed |
| 2571 | 50 | T | F | if defined $default |
| 2573 | 100 | T | F | if ($$t{'twig_dtd'}{'att'}{$gi}) { } |
| 2586 | 50 | T | F | if defined $default |
| 2601 | 100 | T | F | if (not $$t{'twig_current'} and $$t{'twig_root'} and $string =~ /^\s+$/m) |
| 2604 | 100 | T | F | if ($string =~ /^&([^;]*);$/) |
| 2606 | 50 | T | F | if ($p->original_string =~ /^</ and $p->original_string =~ />$/) { } |
| 2608 | 0 | T | F | if $$t{'twig_do_not_escape_amp_in_atts'} |
| 2612 | 100 | T | F | if ($$t{'twig_keep_encoding'}) { } |
| 2637 | 100 | T | F | if ($$t{'twig_in_pcdata'}) { } |
| 2640 | 50 | T | F | if ($weakrefs) |
| 2643 | 50 | T | F | if ($weakrefs) |
| 2644 | 50 | T | F | if ($weakrefs) |
| 2653 | 50 | T | F | if ($weakrefs) |
| 2654 | 100 | T | F | if (my $prev_sibling = $$twig_current{'last_child'}) { } |
| 2655 | 50 | T | F | if ($weakrefs) |
| 2659 | 50 | T | F | if ($twig_current) |
| 2660 | 50 | T | F | if ($weakrefs) |
| 50 | T | F | if ($twig_current) |
| 2676 | 100 | T | F | unless $$t{'twig_xmldecl'} or $$t{'output_encoding'} |
| 2679 | 100 | T | F | if ($decl) { } |
| 2686 | 100 | T | F | if ($$t{'output_encoding'}) { } |
| 100 | T | F | elsif ($$decl{'encoding'}) { } |
| 2695 | 100 | T | F | if (defined $$decl{'standalone'}) |
| 2697 | 100 | T | F | $$decl{'standalone'} ? : |
| 2709 | 100 | T | F | $output_filter ? : |
| 2714 | 100 | T | F | unless defined $$t{'twig_doctype'} |
| 2716 | 50 | T | F | if defined $name |
| 2717 | 100 | T | F | if defined $system |
| 2718 | 100 | T | F | if defined $public |
| 2719 | 100 | T | F | if defined $internal |
| 2724 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2730 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2736 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2742 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2756 | 100 | T | F | if $elt |
| 2783 | 50 | T | F | _is_fh($_[0]) ? : |
| 2790 | 100 | T | F | if ($$t{'no_prolog'}) |
| 2792 | 100 | T | F | defined $$t{'no_dtd_output'} ? : |
| 50 | T | F | $$t{'no_prolog'} ? : |
| 2805 | 100 | T | F | if ($doctype) |
| 2806 | 50 | T | F | if $$doctype{'name'} |
| 2807 | 100 | T | F | if $$doctype{'pub'} |
| 2808 | 100 | T | F | if $$doctype{'sysid'} and not $$doctype{'pub'} |
| 2809 | 100 | T | F | if $$doctype{'sysid'} |
| 2812 | 100 | T | F | if ($update_dtd) { } |
| 100 | T | F | elsif ($doctype) { } |
| 2813 | 100 | T | F | if ($doctype) { } |
| 50 | T | F | elsif (not $$t{'twig_dtd'} and keys %{$t->entity_list;}) { } |
| 2816 | 100 | T | F | if ($internal) |
| 2821 | 50 | T | F | if $t->entity_list |
| 2822 | 100 | T | F | if ($internal) |
| 2832 | 100 | T | F | if (my $internal = $$doctype{'internal'}) |
| 2844 | 100 | T | F | if ($doctype_text) { } |
| 2851 | 50 | T | F | $output_filter ? : |
| 2876 | 100 | T | F | unless open TWIG_PRINT_TO_FILE, ">$filename" |
| 2877 | 50 | T | F | if ($] > 5.006 and not $$t{'twig_keep_encoding'}) |
| 2878 | 50 | T | F | if (grep /useperlio=define/, `$^X -V`) |
| 2888 | 100 | T | F | _is_fh($_[0]) ? : |
| 2891 | 100 | T | F | defined $fh ? : |
| 2892 | 100 | T | F | defined $args{'PrettyPrint'} ? : |
| 2893 | 100 | T | F | defined $args{'EmptyTags'} ? : |
| 2903 | 100 | T | F | if defined $old_pretty |
| 2904 | 100 | T | F | if defined $old_empty_tag |
| 2905 | 100 | T | F | if ($fh) |
| 2914 | 50 | T | F | if $$t{'twig_tdh'} |
| 2916 | 100 | T | F | if $$t{'twig_completely_flushed'} |
| 2918 | 100 | T | F | _is_fh($_[0]) ? : |
| 2919 | 100 | T | F | defined $fh ? : |
| 2920 | 100 | T | F | ref $_[0] ? : |
| 2924 | 100 | T | F | if (defined $args{'PrettyPrint'}) |
| 2930 | 100 | T | F | if ($args{'EmptyTags'}) |
| 2939 | 100 | T | F | if ($up_to) { } |
| 100 | T | F | elsif ($$t{'twig_current'}) { } |
| 2951 | 100 | T | F | unless ($elt->_flushed) |
| 2953 | 100 | T | F | if ($$t{'twig_autoflush'}) |
| 2955 | 100 | T | F | if $fh |
| 2956 | 100 | T | F | if @_ |
| 2964 | 100 | T | F | if ($last_elt and $last_elt->in($elt)) { } |
| 2966 | 100 | T | F | unless ($elt->_flushed) |
| 2978 | 100 | T | F | if $last_elt and $elt == $last_elt |
| 2983 | 100 | T | F | if ($flush_trailing_data) |
| 2988 | 100 | T | F | if defined $old_select |
| 2989 | 100 | T | F | if defined $old_pretty |
| 2990 | 100 | T | F | if defined $old_empty_tag_style |
| 2992 | 50 | T | F | if (my $ids = $$t{'twig_id_list'}) |
| 2993 | 0 | T | F | if (not defined $elt) |
| 3004 | 100 | T | F | if (_is_fh($_[0])) { } |
| 3021 | 100 | T | F | if (defined $args{'PrettyPrint'}) |
| 3027 | 100 | T | F | if (defined $args{'EmptyTags'}) |
| 3038 | 100 | T | F | if ($$t{'twig_keep_spaces'} and $$t{'trailing_spaces'}) |
| 3040 | 100 | T | F | if defined $old_pretty |
| 3041 | 100 | T | F | if defined $old_empty_tag_style |
| 3055 | 50 | T | F | if $$t{'twig_tdh'} |
| 3059 | 100 | T | F | if ($up_to) { } |
| 100 | T | F | elsif ($$t{'twig_current'}) { } |
| 3070 | 100 | T | F | if ($last_elt and $last_elt->in($elt)) { } |
| 3078 | 100 | T | F | if $last_elt and $elt == $last_elt |
| 3083 | 100 | T | F | if (my $ids = $$t{'twig_id_list'}) |
| 3084 | 100 | T | F | if (not defined $elt) |
| 3105 | 50 | T | F | if $] < 5.006 |
| 3108 | 100 | T | F | ref $twig_or_class ? : |
| 3113 | 100 | T | F | if $elt_class->can($att) and not $accessor{$att} |
| 3116 | 100 | T | F | if (not $accessor{$att}) |
| 3120 | 100 | T | F | if (@_) |
| 3134 | 100 | T | F | if $root->passes($cond) |
| 3146 | 100 | T | F | if $t->root->matches($cond) |
| 3152 | 100 | T | F | if (isa($_[0], 'ARRAY')) { } |
| 3165 | 100 | T | F | unless @unique and $unique[-1] == $current |
| 3171 | 100 | T | F | if (isa($_[0], 'ARRAY')) { } |
| 3188 | 100 | T | F | defined $index ? : |
| 3196 | 100 | T | F | if (not $cond && !$root->passes($cond)) { } |
| 3215 | 100 | T | F | if ($root->passes($cond)) { } |
| 3250 | 100 | T | F | unless $index = $XML::Twig::gi2index{$old_gi} |
| 3262 | 50 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 3269 | 100 | T | F | if ($$dtd{'att'}{$gi}) |
| 3274 | 100 | T | F | if ($$attlist{$att}{'fixed'}) { } |
| 3283 | 50 | T | F | if $t->entity_list |
| 3291 | 100 | T | F | _is_fh($_[0]) ? : |
| 3292 | 100 | T | F | if ($fh) { } |
| 3309 | 100 | T | F | unless $$t{'twig_parsing'} |
| 3317 | 50 | T | F | if ($$t{'twig_map_xmlns'}) { } |
| 3332 | 100 | T | F | if (not defined $fh) { } |
| 50 | T | F | elsif (defined $fh) { } |
| 3336 | 50 | T | F | if $old_fh |
| 3340 | 100 | T | F | if ($$t{'twig_keep_encoding'}) { } |
| 3358 | 100 | T | F | if (not $input_filter or isa($input_filter, 'CODE')) { } |
| 50 | T | F | elsif ($input_filter eq 'latin1') { } |
| 50 | T | F | elsif ($filter{$input_filter}) { } |
| 3418 | 50 | T | F | if ($$t{'twig_root'} and isa($$t{'twig_root'}, 'XML::Twig')) |
| 3423 | 100 | T | F | if $$t{'twig_root'} |
| 3443 | 50 | T | F | if ($string eq '<!DOCTYPE') { } |
| 3459 | 50 | T | F | if ($expat_1_95_2 and $p->recognized_string eq '[' and not $$p{'twig'}{'expat_1_95_2_seen_bracket'}) { } |
| 3483 | 50 | T | F | if ($string eq '<!DOCTYPE') { } |
| 3506 | 50 | T | F | if ($name) |
| 3510 | 50 | T | F | if $name |
| 3511 | 50 | T | F | if $pubid |
| 3512 | 100 | T | F | if $sysid and not $pubid |
| 3513 | 100 | T | F | if $sysid |
| 3514 | 100 | T | F | if $internal and not $expat_1_95_2 |
| 3515 | 100 | T | F | unless $internal or $expat_1_95_2 |
| 3526 | 50 | T | F | if ($name) |
| 3530 | 50 | T | F | if $name |
| 3531 | 50 | T | F | if $pubid |
| 3532 | 100 | T | F | if $sysid and not $pubid |
| 3533 | 100 | T | F | if $sysid |
| 3534 | 100 | T | F | if $internal |
| 3535 | 100 | T | F | unless $internal or $expat_1_95_2 |
| 3568 | 100 | T | F | unless ($p->depth == 0) |
| 3569 | 100 | T | F | if ($$t{'twig_map_xmlns'}) |
| 3575 | 100 | T | F | if (_handler($t, $$t{'twig_roots'}, $gi)) |
| 3584 | 100 | T | F | $$t{'twig_keep_encoding'} ? : |
| 100 | T | F | $$t{'twig_default_print'} ? : |
| 3588 | 100 | T | F | if ($p->depth == 0) { } |
| 100 | T | F | elsif ($$t{'twig_starttag_handlers'}) { } |
| 3590 | 100 | T | F | if $tag |
| 3602 | 50 | T | F | unless $last_handler_res |
| 3605 | 100 | T | F | if $tag and !@handlers || $last_handler_res |
| 3609 | 100 | T | F | if $tag |
| 3620 | 100 | T | F | $$t{'twig_keep_encoding'} ? : |
| 100 | T | F | $$t{'twig_default_print'} ? : |
| 3625 | 100 | T | F | if ($$t{'twig_endtag_handlers'}) |
| 3631 | 50 | T | F | if (not $last_handler_res) |
| 3638 | 100 | T | F | if defined $tag |
| 3640 | 100 | T | F | if ($p->depth == 0) |
| 3654 | 50 | T | F | $$t{'twig_keep_encoding'} ? : |
| 100 | T | F | $$t{'twig_default_print'} ? : |
| 3659 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'pi_handlers'}{$target} || $$t{'twig_handlers'}{'pi_handlers'}{''}) { } |
| 3671 | 50 | T | F | if defined $pi |
| 3684 | 50 | T | F | if ($action eq 'print') |
| 3698 | 50 | T | F | if ($action eq 'print') |
| 3705 | 100 | T | F | if (not $$t{'twig_ignore_level'}) |
| 3719 | 100 | T | F | if ($$t{'twig_endtag_handlers'}) |
| 3737 | 100 | T | F | if (not $elt && ref $elt && isa($elt, 'XML::Twig::Elt')) |
| 3743 | 100 | T | F | unless ($elt == $current or $$current{'last_child'} and $elt == $$current{'last_child'} or $current->in($elt)) |
| 3746 | 100 | T | F | $current == $elt ? : |
| 3755 | 50 | T | F | if ($action eq 'print') |
| 3770 | 100 | T | F | if ($$elt_in_stack{'_elt'} and $elt == $$elt_in_stack{'_elt'}) |
| 3781 | 100 | T | F | if ($output_fh and not $$t{'twig_output_fh_selected'}) |
| 3793 | 100 | T | F | unless $$t{'twig_output_fh'} |
| 3802 | 50 | T | F | if $_[0]{'twig_xmldecl'} |
| 3807 | 50 | T | F | unless $t->xml_version |
| 3819 | 100 | T | F | if ($encoding and not $encoding =~ /^utf-?8$/i or $$t{'twig_keep_encoding'} or $output_filter) |
| 3827 | 50 | T | F | if $_[0]{'twig_xmldecl'} |
| 3837 | 50 | T | F | if $_[0]{'twig_xmldecl'} |
| 3842 | 50 | T | F | unless $t->xml_version |
| 3851 | 100 | T | F | if defined $_[0]{'twig_parser'} |
| 3858 | 100 | T | F | if defined $_[0]{'twig_parser'} |
| 3868 | 100 | T | F | if (my $start_document = $handler->can('start_document')) |
| 3873 | 50 | T | F | if ($t->root) |
| 3874 | 50 | T | F | if (my $end_document = $handler->can('end_document')) |
| 3896 | 100 | T | F | if ($$t{'twig_current'}) { } |
| 3902 | 100 | T | F | unless ($elt->_flushed) |
| 3904 | 50 | T | F | if (my $start_document = $handler->can('start_document')) |
| 3912 | 100 | T | F | if ($last_elt and $last_elt->in($elt)) { } |
| 3914 | 100 | T | F | unless ($elt->_flushed) |
| 3916 | 50 | T | F | if (my $start_element = $handler->can('start_element')) |
| 3917 | 50 | T | F | if (my $tag_data = &$start_tag_data($elt)) |
| 3929 | 100 | T | F | if $last_elt and $elt == $last_elt |
| 3933 | 100 | T | F | if (not $$t{'twig_parsing'}) |
| 3934 | 50 | T | F | if (my $end_document = $handler->can('end_document')) |
| 3953 | 100 | T | F | if (my $xml_decl = $handler->can('xml_decl')) |
| 3960 | 100 | T | F | unless $doctype |
| 3966 | 50 | T | F | if (my $start_dtd = $handler->can('start_dtd')) |
| 3971 | 50 | T | F | if (my $end_dtd = $handler->can('end_dtd')) |
| 3979 | 50 | T | F | if (_use('Encode')) { } |
| 0 | T | F | elsif (_use('Text::Iconv')) { } |
| 0 | T | F | elsif (_use('Unicode::Map8') and _use('Unicode::String')) { } |
| 3993 | 50 | T | F | if (_use('Encode')) { } |
| 0 | T | F | elsif (_use('Text::Iconv')) { } |
| 0 | T | F | elsif (_use('Unicode::Map8') and _use('Unicode::String')) { } |
| 4017 | 50 | T | F | unless _use('HTML::Entities') |
| 4023 | 50 | T | F | if ($] < 5.008) { } |
| 4035 | 50 | T | F | if ($] < 5.008) { } |
| 4052 | 50 | T | F | if ($len == 2) { } |
| 0 | T | F | elsif ($len == 3) { } |
| 0 | T | F | elsif ($len == 4) { } |
| 0 | T | F | elsif ($len == 1) { } |
| 4070 | 100 | T | F | $hex ? : |
| 4076 | 50 | T | F | $_[1] ? : |
| 4077 | 50 | T | F | unless _use('Unicode::Map8') |
| 4078 | 50 | T | F | unless _use('Unicode::String') |
| 4080 | 50 | T | F | unless $cnv = 'Unicode::Map8'->new($enc) |
| 4088 | 50 | T | F | unless ($sub) |
| 4093 | 50 | T | F | $_[1] ? : |
| 4094 | 50 | T | F | unless _use('Text::Iconv') |
| 4095 | 50 | T | F | unless $cnv = 'Text::Iconv'->new('utf8', $enc) |
| 50 | T | F | unless $cnv = 'Text::Iconv'->new('utf8', $enc) |
| 4103 | 100 | T | F | unless ($sub) |
| 4104 | 50 | T | F | if ($@ =~ /^Unsupported conversion: Invalid argument/) { } |
| 4114 | 50 | T | F | $_[1] ? : |
| 4116 | 50 | T | F | unless $sub |
| 4124 | 100 | T | F | wantarray ? : |
| 4134 | 50 | T | F | if ($t->root) |
| 4167 | 100 | T | F | unless $ents_to_add and %$ents_to_add |
| 4188 | 100 | T | F | if (isa(ref $_[0], 'XML::Twig::Entity')) { } |
| 4204 | 50 | T | F | defined $fh ? : |
| 4209 | 50 | T | F | if (isa($ent, 'XML::Twig::Entity')) |
| 4211 | 50 | T | F | if defined $old_select |
| 4246 | 100 | T | F | if defined $val |
| 4247 | 100 | T | F | if defined $sysid |
| 4248 | 100 | T | F | if defined $pubid |
| 4249 | 100 | T | F | if defined $ndata |
| 4250 | 100 | T | F | if defined $param |
| 4259 | 100 | T | F | defined $_[0]{'sysid'} ? : |
| 4260 | 50 | T | F | defined $_[0]{'pubid'} ? : |
| 4261 | 100 | T | F | defined $_[0]{'ndata'} ? : |
| 4262 | 100 | T | F | defined $_[0]{'param'} ? : |
| 4268 | 50 | T | F | if (not defined $text) |
| 4269 | 50 | T | F | if ($fh) { } |
| 4276 | 50 | T | F | if (not defined $text) |
| 4282 | 100 | T | F | if not $$ent{'name'} |
| 4286 | 100 | T | F | if $$ent{'param'} |
| 4289 | 100 | T | F | if (defined $$ent{'val'} and not defined $$ent{'sysid'} and not defined $$ent{'pubid'}) { } |
| 50 | T | F | elsif (defined $$ent{'sysid'}) { } |
| 4293 | 100 | T | F | if $$ent{'pubid'} |
| 4294 | 100 | T | F | unless $$ent{'pubid'} |
| 4296 | 100 | T | F | if $$ent{'ndata'} |
| 4302 | 50 | T | F | $_[0] =~ /"/ ? : |
| 4402 | 50 | T | F | if (eval 'require Scalar::Util' and defined &Scalar::Util::weaken) { } |
| 0 | T | F | elsif (eval 'require WeakRef') { } |
| 4421 | 100 | T | F | unless @_ |
| 4428 | 100 | T | F | ref $_[0] eq 'HASH' ? : |
| 4430 | 100 | T | F | if ($atts and defined $$atts{'#CDATA'}) |
| 4437 | 100 | T | F | if ($gi eq '#PCDATA') { } |
| 100 | T | F | elsif ($gi eq '#ENT') { } |
| 100 | T | F | elsif ($gi eq '#CDATA') { } |
| 100 | T | F | elsif ($gi eq '#COMMENT') { } |
| 100 | T | F | elsif ($gi eq '#PI') { } |
| 4438 | 100 | T | F | if (grep {ref $_;} @_) |
| 4444 | 100 | T | F | if (grep {ref $_;} @_) |
| 4448 | 100 | T | F | if (grep {ref $_;} @_) |
| 4452 | 100 | T | F | if (grep {ref $_;} @_) |
| 4457 | 100 | T | F | if (@_) { } |
| 4463 | 100 | T | F | if ($atts) |
| 4465 | 100 | T | F | if (defined $$atts{'#ASIS'}) |
| 4466 | 100 | T | F | if (defined $$atts{'#EMPTY'}) |
| 4467 | 100 | T | F | if (keys %$atts) |
| 4468 | 100 | T | F | if $$atts{$ID} |
| 4481 | 100 | T | F | if (ref $class) |
| 4490 | 100 | T | F | if ($$t{'twig_id_list'}) |
| 4507 | 100 | T | F | if ($elt->tag eq 'head') { } |
| 100 | T | F | elsif ($elt->tag ne 'html') { } |
| 4524 | 100 | T | F | unless (defined $XML::Twig::gi2index{$gi}) |
| 4548 | 100 | T | F | if ($qname =~ /^([^:]*):/) { } |
| 4569 | 100 | T | F | defined $_[0] ? : |
| 4570 | 100 | T | F | $prefix ? : |
| 4581 | 0 | T | F | $prefix eq '#default' ? : |
| 4582 | 0 | T | F | if (not $$root{'att'}{$prefix_att}) |
| 4595 | 0 | T | F | $att =~ /^xmlns:(.*)$/ ? : |
| 0 | T | F | $att eq 'xmlns' ? : |
| 4599 | 0 | T | F | if (not exists $$map{$prefix}) |
| 4608 | 0 | T | F | $prefix ? : |
| 4617 | 0 | T | F | if ($elt->_ns_prefix and $elt->namespace eq $uri) |
| 4620 | 0 | T | F | if $_ =~ /xmlns(:|$)/ |
| 4639 | 100 | T | F | if $gi_nb >= $XML::Twig::SPECIAL_GI |
| 4645 | 100 | T | F | if ($_[0]{'gi'} >= $XML::Twig::SPECIAL_GI) { } |
| 4687 | 50 | T | F | defined $_[1] ? : |
| 4690 | 50 | T | F | if $_[0]{'empty'} or 0 |
| 4698 | 100 | T | F | if (exists $$descendant{'cdata'}) |
| 4710 | 50 | T | F | if $$descendant{'asis'} |
| 4721 | 100 | T | F | unless $curr_elt |
| 4728 | 100 | T | F | if ($elt->_extra_data_in_pcdata) |
| 4747 | 100 | T | F | if ($$elt{'extra_data_before_end_tag'}) { } |
| 4763 | 100 | T | F | if ((my $offset = index($modified, $initial)) != -1) { } |
| 100 | T | F | elsif (($offset = index($initial, $modified)) != -1) { } |
| 4771 | 100 | T | F | if $$_{'offset'} >= 0 |
| 4774 | 100 | T | F | unless _match_extra_data_words($elt, $initial, $modified) or _match_extra_data_chars($elt, $initial, $modified) |
| 4801 | 100 | T | F | if (@$initial <= @$modified) { } |
| 4804 | 100 | T | F | if ($ok) |
| 4819 | 100 | T | F | if ($ok) |
| 4833 | 50 | T | F | if ($$cpi{'offset'} < $prev_pos) |
| 4850 | 100 | T | F | if ($s_word ne $l_word) |
| 4855 | 100 | T | F | if (not @$long and $s_word ne $l_word) |
| 4901 | 50 | T | F | unless ($$elt{'gi'} == $XML::Twig::gi2index{'#PI'}) |
| 4916 | 50 | T | F | if (defined $data and $data ne '') |
| 4923 | 100 | T | F | unless ($$elt{'gi'} == $XML::Twig::gi2index{'#COMMENT'}) |
| 4940 | 100 | T | F | unless ($$elt{'gi'} == $XML::Twig::gi2index{'#CDATA'}) |
| 4963 | 100 | T | F | unless $elt->is_elt |
| 4965 | 100 | T | F | if $child->is_elt |
| 4973 | 100 | T | F | unless $child->is($exp) |
| 4979 | 100 | T | F | unless my $child = $$elt{'first_child'} |
| 4980 | 100 | T | F | unless $child->passes($exp) |
| 4981 | 100 | T | F | if $$child{'next_sibling'} |
| 5034 | 100 | T | F | $cond =~ s/^\s*!// ? : |
| 5036 | 100 | T | F | if (ref $cond eq 'CODE') |
| 5038 | 100 | T | F | if (ref $cond eq 'Regexp') { } |
| 5042 | 100 | T | F | if ($cond eq '#ELT') { } |
| 100 | T | F | elsif ($cond eq '#TEXT') { } |
| 100 | T | F | elsif ($cond =~ /^\s*($REG_NAME_W)\s*$/o) { } |
| 100 | T | F | elsif ($cond =~ /^\s*($REG_REGEXP)\s*$/o) { } |
| 100 | T | F | elsif ($cond =~ /^\s*($REG_NAME_W)?\s* # $1
\[\s*(-?)\s*(\d+)\s*\] # [$2]
\s*$/ox) { } |
| 100 | T | F | elsif ($cond =~ /^\s*\.([\w-]+)\s*$/o) { } |
| 100 | T | F | elsif ($cond =~ /^\s*($REG_NAME_W?)\s*($REG_PREDICATE)\s*$/) { } |
| 100 | T | F | elsif ($cond =~ /^\s*($REG_NAKED_PREDICATE)\s*$/) { } |
| 5048 | 100 | T | F | if ($1 ne '*') { } |
| 5052 | 100 | T | F | if ($gi) { } |
| 5074 | 100 | T | F | $neg ? : |
| 5075 | 100 | T | F | if ($gi and $gi ne '*') { } |
| 5087 | 100 | T | F | $tag && $tag ne '*' ? : |
| 5101 | 100 | T | F | if ($@) |
| 5115 | 100 | T | F | if (defined $string) { } |
| 100 | T | F | elsif ($att) { } |
| 100 | T | F | elsif ($bare_att) { } |
| 50 | T | F | elsif ($num_test and $num_test eq '=') { } |
| 100 | T | F | elsif ($alpha_test) { } |
| 100 | T | F | elsif ($func and $func =~ /^(?:string|text)/) { } |
| 100 | T | F | elsif ($string_regexp and $string_regexp =~ /(?:string|text)\(\s*($REG_NAME)\s*\)\s*($REG_MATCH)\s*($REG_REGEXP)/) { } |
| 100 | T | F | elsif ($string_eq and $string_eq =~ /(?:string|text)\(\s*($REG_NAME)\s*\)\s*(!?=)\s*($REG_VALUE)/) { } |
| 50 | T | F | elsif ($string_test and $string_test =~ /(?:string|text)\(\s*($REG_NAME)\s*\)\s*([<>]=?)\s*($REG_VALUE)/) { } |
| 100 | T | F | elsif ($and_or) { } |
| 5124 | 100 | T | F | $and_or eq 'and' ? : |
| 5151 | 100 | T | F | if ($op eq '=') { } |
| 100 | T | F | elsif ($op eq '!=') { } |
| 5158 | 100 | T | F | unless $cond |
| 5166 | 0 | T | F | if ($XML::Twig::weakrefs) |
| 5205 | 100 | T | F | if ($child) { } |
| 5208 | 100 | T | F | if ($cond =~ /^\s*($REG_NAME)/) { } |
| 5221 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 5237 | 0 | T | F | if ($XML::Twig::weakrefs) |
| 5269 | 100 | T | F | unless $new_class |
| 5271 | 50 | T | F | $class ? : |
| 5287 | 100 | T | F | unless $elt->tag eq 'span' and $elt->class |
| 5293 | 100 | T | F | unless $elt->tag eq 'div' and $elt->class |
| 5300 | 50 | T | F | unless defined $elt_class |
| 5301 | 100 | T | F | $elt->class =~ /(?:^|\s)\Q$class\E(?:\s|$)/ ? : |
| 5310 | 100 | T | F | if keep_atts_order() |
| 5311 | 100 | T | F | isa($_[0] || '', 'HASH') ? : |
| 5313 | 100 | T | F | if (exists $atts{$ID}) |
| 5325 | 50 | T | F | if ($_[0] and ref $_[0] and not $_[1]) |
| 5328 | 100 | T | F | unless ($$elt{'att'}) |
| 5330 | 100 | T | F | if keep_atts_order() |
| 5336 | 100 | T | F | if ($att eq $ID) |
| 5360 | 100 | T | F | unless defined $value |
| 5369 | 0 | T | F | if ($att ne lc $att) |
| 5380 | 100 | T | F | if exists $$elt{'att'}{$ID} |
| 5391 | 100 | T | F | if ($XML::Twig::weakrefs) |
| 5407 | 100 | T | F | if (defined $$elt{'att'}{$ID}) { } |
| 5410 | 50 | T | F | $_[0] && ref $_[0] && isa($_[0], 'CODE') ? : |
| 5419 | 50 | T | F | unless (exists $$elt{'att'}) |
| 5420 | 100 | T | F | unless (exists $$elt{'att'}{$ID}) |
| 5426 | 100 | T | F | unless ($t) |
| 5427 | 50 | T | F | if (exists $$t{'twig_id_list'}{$id}) |
| 5473 | 100 | T | F | if $child->passes($cond) |
| 5482 | 100 | T | F | wantarray ? : |
| 5489 | 100 | T | F | wantarray ? : |
| 5496 | 100 | T | F | unless $child->passes($cond) |
| 5506 | 100 | T | F | if $elt->passes($cond) |
| 5515 | 100 | T | F | if $elt->passes($cond) |
| 5524 | 100 | T | F | $include_self ? : |
| 5536 | 100 | T | F | if (defined $$elt{'att'}{$att} and !%tags || $tags{$XML::Twig::index2gi[$$elt{'gi'}]}) |
| 5550 | 100 | T | F | if (defined $$elt{'att'}{$att} and !%tags || $tags{$XML::Twig::index2gi[$$elt{'gi'}]}) |
| 5562 | 100 | T | F | if $elt->namespace('') |
| 5584 | 100 | T | F | if defined $_[0] and (ref $_[0] and isa($_[0], 'XML::Twig::Elt')) |
| 5590 | 100 | T | F | if ($cond) |
| 5591 | 100 | T | F | unless (defined($ind = $XML::Twig::gi2index{$cond})) |
| 5596 | 100 | T | F | if ($next_elt = $$elt{'first_child'}) { } |
| 100 | T | F | elsif ($next_elt = $$elt{'next_sibling'}) { } |
| 5603 | 100 | T | F | if $subtree_root and $elt == $subtree_root |
| 5611 | 100 | T | F | if $subtree_root and $elt == $subtree_root |
| 5616 | 100 | T | F | if $subtree_root and $subtree_root == $next_elt |
| 5619 | 100 | T | F | if $subtree_root and $subtree_root == $next_elt |
| 5640 | 100 | T | F | if (not $cond or $last_descendant->matches($cond)) { } |
| 5661 | 100 | T | F | if (defined $_[0] and (ref $_[0] and isa($_[0], 'XML::Twig::Elt'))) |
| 5663 | 100 | T | F | if $elt == $subtree_root |
| 5669 | 100 | T | F | if $elt == $subtree_root |
| 5670 | 100 | T | F | if ($prev_elt = $$elt{'prev_sibling'}) { } |
| 5686 | 100 | T | F | $elt ? : |
| 5692 | 100 | T | F | if not $cond or $elt->matches($cond) |
| 5698 | 100 | T | F | if (not $cond) |
| 5700 | 100 | T | F | if ($following) { } |
| 5714 | 100 | T | F | $elt ? : |
| 5720 | 100 | T | F | if not $cond or $elt->matches($cond) |
| 5726 | 100 | T | F | if (not $cond) |
| 5728 | 100 | T | F | if ($preceding) { } |
| 5741 | 100 | T | F | $cond ? : |
| 5755 | 100 | T | F | if (ref $ancestor and isa($ancestor, 'XML::Twig::Elt')) { } |
| 5757 | 100 | T | F | if $elt == $ancestor |
| 5761 | 100 | T | F | if $elt->matches($ancestor) |
| 5768 | 100 | T | F | unless my $dest = $elt->first_child(@_) |
| 5779 | 100 | T | F | unless my $dest = $elt->first_child(@_) |
| 5785 | 100 | T | F | unless my $dest = $$elt{'first_child'} |
| 5791 | 100 | T | F | unless my $dest = $elt->last_child(@_) |
| 5797 | 100 | T | F | unless my $dest = $elt->last_child(@_) |
| 5803 | 100 | T | F | unless my $dest = $$elt{'last_child'} |
| 5809 | 100 | T | F | unless my $dest = $elt->child(@_) |
| 5815 | 100 | T | F | unless my $dest = $elt->child(@_) |
| 5822 | 100 | T | F | unless my $dest = $elt->child($nb) |
| 5828 | 100 | T | F | unless my $dest = $elt->_prev_sibling(@_) |
| 5834 | 100 | T | F | unless my $dest = $elt->_prev_sibling(@_) |
| 5840 | 100 | T | F | unless my $dest = $$elt{'prev_sibling'} |
| 5846 | 100 | T | F | unless my $dest = $elt->next_sibling(@_) |
| 5852 | 100 | T | F | unless my $dest = $elt->next_sibling(@_) |
| 5858 | 100 | T | F | unless my $dest = $$elt{'next_sibling'} |
| 5864 | 100 | T | F | unless my $dest = $elt->prev_elt(@_) |
| 5870 | 100 | T | F | unless my $dest = $elt->prev_elt(@_) |
| 5876 | 100 | T | F | unless my $dest = $elt->prev_elt |
| 5882 | 100 | T | F | unless my $dest = $elt->next_elt(@_) |
| 5888 | 100 | T | F | unless my $dest = $elt->next_elt(@_) |
| 5894 | 100 | T | F | unless my $dest = $elt->next_elt |
| 5900 | 100 | T | F | unless my $dest = $elt->parent(@_) |
| 5906 | 100 | T | F | unless my $dest = $elt->parent(@_) |
| 5912 | 100 | T | F | unless my $dest = $$elt{'parent'} |
| 5918 | 100 | T | F | unless my $parent = $$elt{'parent'} |
| 5919 | 100 | T | F | unless my $first_child = $parent->first_child(@_) |
| 5920 | 100 | T | F | $first_child == $elt ? : |
| 5925 | 100 | T | F | unless my $parent = $$elt{'parent'} |
| 5926 | 100 | T | F | unless my $last_child = $parent->last_child(@_) |
| 5927 | 100 | T | F | $last_child == $elt ? : |
| 5937 | 100 | T | F | if not $cond or $elt->matches($cond) |
| 5944 | 100 | T | F | unless $level |
| 5947 | 100 | T | F | unless $elt = $$elt{'parent'} |
| 5948 | 100 | T | F | if ($elt->matches($cond)) |
| 5956 | 100 | T | F | $include_self ? : |
| 5962 | 100 | T | F | if ($next_elt = $$elt{'first_child'}) { } |
| 100 | T | F | elsif ($next_elt = $$elt{'next_sibling'}) { } |
| 5969 | 100 | T | F | if $elt == $subtree_root |
| 5976 | 100 | T | F | if $elt == $subtree_root |
| 5981 | 100 | T | F | if $subtree_root == $next_elt |
| 5984 | 100 | T | F | if $subtree_root == $next_elt |
| 6003 | 100 | T | F | if (not $cond or defined($ind = $XML::Twig::gi2index{$cond})) { } |
| 6008 | 100 | T | F | if ($next_elt = $$elt{'first_child'}) { } |
| 100 | T | F | elsif ($next_elt = $$elt{'next_sibling'}) { } |
| 6015 | 50 | T | F | if $subtree_root and $elt == $subtree_root |
| 6022 | 100 | T | F | if $subtree_root and $elt == $subtree_root |
| 6027 | 100 | T | F | if $subtree_root and $subtree_root == $next_elt |
| 6030 | 100 | T | F | if $subtree_root and $subtree_root == $next_elt |
| 6034 | 100 | T | F | if not $cond or $$elt{'gi'} eq $ind |
| 6049 | 100 | T | F | $elt->passes($cond) ? : |
| 6057 | 100 | T | F | if ($nb > 0) { } |
| 100 | T | F | elsif ($nb < 0) { } |
| 6059 | 100 | T | F | unless $elt = $elt->next_sibling(@_) |
| 6063 | 100 | T | F | unless $elt = $elt->prev_sibling(@_) |
| 6072 | 100 | T | F | $elt ? : |
| 6079 | 100 | T | F | if ($nb >= 0) { } |
| 6080 | 100 | T | F | unless $elt = $elt->first_child(@_) |
| 6082 | 100 | T | F | unless $elt = $elt->next_sibling(@_) |
| 6085 | 100 | T | F | unless $elt = $elt->last_child(@_) |
| 6087 | 100 | T | F | unless $elt = $elt->prev_sibling(@_) |
| 6102 | 100 | T | F | if $_[0] and not $elt->matches(@_) |
| 6141 | 100 | T | F | if ($xpath_exp =~ s[^/][]) { } |
| 100 | T | F | elsif ($xpath_exp =~ s[^\./][]) { } |
| 6160 | 100 | T | F | if ($sub_exp eq '..') { } |
| 100 | T | F | elsif ($sub_exp =~ /^\.(.*)$/s) { } |
| 6161 | 50 | T | F | if $wildcard |
| 6170 | 100 | T | F | if (not $axis) |
| 6171 | 100 | T | F | $wildcard ? : |
| 6172 | 100 | T | F | if (not $gi or $gi eq '*') |
| 6176 | 100 | T | F | if ($predicates and $predicates =~ /^\s*\[\s*((-\s*)?\d+)\s*\]\s*$/) { } |
| 100 | T | F | elsif ($predicates and $predicates =~ /^\s*\[\s*last\s*\(\s*\)\s*\]\s*$/) { } |
| 6179 | 100 | T | F | if $offset > 0 |
| 6180 | 50 | T | F | $axis eq 'child' ? : |
| 50 | T | F | $axis eq 'descendant' ? : |
| 6188 | 50 | T | F | if $wildcard |
| 6205 | 100 | T | F | if ($pred =~ /^(-?\s*\d+)$/) { } |
| 6207 | 100 | T | F | if ($step =~ /^\s*grep(.*) (\$_->\w+\(\s*'[^']*'\s*\))/) { } |
| 6210 | 50 | T | F | if ($pos > 0) |
| 6218 | 100 | T | F | if ($pred =~ s/^string\(\s*\)\s*=\s*($REG_STRING)\s*//o) { } |
| 100 | T | F | elsif ($pred =~ s/^string\(\s*\)\s*($REG_MATCH)\s*($REG_REGEXP)\s*//o) { } |
| 100 | T | F | elsif ($pred =~ s/^@($REG_NAME)\s*($REG_OP)\s*($REG_STRING|$REG_NUMBER)//o) { } |
| 100 | T | F | elsif ($pred =~ s/^@($REG_NAME)\s*($REG_MATCH)\s*($REG_REGEXP)\s*//o) { } |
| 100 | T | F | elsif ($pred =~ s/^@($REG_NAME)\s*//o) { } |
| 100 | T | F | elsif ($pred =~ s/^\s*(?:not|!)\s*@($REG_NAME)\s*//o) { } |
| 100 | T | F | elsif ($pred =~ s/^\s*([()])//) { } |
| 100 | T | F | elsif ($pred =~ s/^\s*(and|or)\s*//) { } |
| 6244 | 100 | T | F | if $pred |
| 6254 | 100 | T | F | if ($xpath_exp) |
| 6260 | 50 | T | F | if ($@) |
| 6269 | 50 | T | F | if ($XML::Twig::XPath::VERSION or 0) |
| 6271 | 0 | T | F | if (eval {
do {
$$check_twig{'twig_xp'}->_parse($xpath_expression)
}
}) |
| 6287 | 100 | T | F | unless defined $offset |
| 6302 | 100 | T | F | wantarray ? : |
| 6313 | 100 | T | F | unless ($parent = $$elt{'parent'}) |
| 6318 | 100 | T | F | if ($XML::Twig::weakrefs) |
| 6322 | 100 | T | F | if ($$elt{'twig_current'}) |
| 6330 | 100 | T | F | if ($$parent{'first_child'} == $elt) |
| 6332 | 100 | T | F | unless ($$elt{'next_sibling'}) |
| 6334 | 100 | T | F | if ($XML::Twig::weakrefs) |
| 100 | T | F | if ($$parent{'last_child'} == $elt) |
| 6336 | 100 | T | F | if ($prev_sibling = $$elt{'prev_sibling'}) |
| 6338 | 100 | T | F | if ($next_sibling = $$elt{'next_sibling'}) |
| 6339 | 100 | T | F | if ($XML::Twig::weakrefs) |
| 6342 | 100 | T | F | if ($XML::Twig::weakrefs) |
| 6343 | 100 | T | F | if ($XML::Twig::weakrefs) |
| 6346 | 100 | T | F | if ($prev_sibling and $next_sibling and $prev_sibling->is_text and $XML::Twig::index2gi[$$prev_sibling{'gi'}] eq $XML::Twig::index2gi[$$next_sibling{'gi'}]) |
| 6368 | 100 | T | F | if ($$elt{'twig_current'}) |
| 6370 | 100 | T | F | if (not $$elt{'parent'}) { } |
| 6373 | 100 | T | F | unless (@children == 1) |
| 6377 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 6385 | 100 | T | F | if (@children) |
| 6390 | 100 | T | F | if ($prev_sibling) { } |
| 6392 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 6402 | 100 | T | F | if ($next_sibling) { } |
| 6405 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 6413 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 6416 | 100 | T | F | if ($prev_sibling and $prev_sibling->is_text and $XML::Twig::index2gi[$$first_child{'gi'}] eq $XML::Twig::index2gi[$$prev_sibling{'gi'}]) |
| 6418 | 100 | T | F | if ($next_sibling and $next_sibling->is_text and $XML::Twig::index2gi[$$last_child{'gi'}] eq $XML::Twig::index2gi[$$next_sibling{'gi'}]) |
| 6422 | 100 | T | F | if ($$elt{'parent'}{'twig_current'} and $$elt{'last_child'}->is_text) |
| 6445 | 100 | T | F | if (my $extra_data = $$elt{'extra_data'}) |
| 6447 | 100 | T | F | if ($target) { } |
| 6449 | 100 | T | F | if ($target->is('#ELT')) { } |
| 50 | T | F | elsif ($target->is('#TEXT')) { } |
| 6461 | 100 | T | F | if (my $extra_data = $elt->_extra_data_before_end_tag) |
| 6462 | 100 | T | F | if (my $target = $$elt{'next_sibling'}) { } |
| 50 | T | F | elsif (my $parent = $$elt{'parent'}) { } |
| 6463 | 100 | T | F | if ($target->is('#ELT')) { } |
| 50 | T | F | elsif ($target->is('#TEXT')) { } |
| 6489 | 100 | T | F | if ($$elt{'parent'}) |
| 6493 | 100 | T | F | if (ref $_[0]) { } |
| 6495 | 100 | T | F | if $_[1] |
| 6500 | 100 | T | F | if (my $method = $method{$pos}) { } |
| 6502 | 100 | T | F | unless (ref $_[0] and isa($_[0], 'XML::Twig::Elt')) |
| 6503 | 100 | T | F | if (not defined $_[0]) { } |
| 100 | T | F | elsif (not ref $_[0]) { } |
| 6514 | 100 | T | F | if (not $$ref{'parent'} and $pos =~ /^(before|after)$/ and not exists $$elt{'target'} and not exists $$elt{'comment'}) |
| 6523 | 100 | T | F | if (my $ids = $$elt{'twig_id_list'} and my $t = $ref->twig) |
| 6527 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 6539 | 100 | T | F | unless ($$ref{'parent'}) |
| 6540 | 50 | T | F | if (my $t = $ref->twig) { } |
| 6541 | 100 | T | F | if (exists $$elt{'comment'} or exists $$elt{'target'}) { } |
| 6553 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 6554 | 100 | T | F | if ($$parent{'first_child'} == $ref) |
| 6556 | 100 | T | F | if ($prev_sibling) |
| 6557 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 6559 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 6569 | 100 | T | F | unless ($$ref{'parent'}) |
| 6570 | 50 | T | F | if (my $t = $ref->twig) { } |
| 6571 | 100 | T | F | if (exists $$elt{'comment'} or exists $$elt{'target'}) { } |
| 6583 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 6584 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 100 | T | F | if ($$parent{'last_child'} == $ref) |
| 6587 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 6589 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 100 | T | F | if ($next_sibling) |
| 6602 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 6604 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 100 | T | F | unless ($$parent{'last_child'}) |
| 6606 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 6608 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 100 | T | F | if ($next_sibling) |
| 6620 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 6621 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 6622 | 100 | T | F | unless ($$parent{'first_child'}) |
| 6624 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 6625 | 100 | T | F | if ($prev_sibling) |
| 6633 | 100 | T | F | $ref->is_text ? : |
| 6659 | 50 | T | F | unless $allowed_options{$option} |
| 6664 | 100 | T | F | if ($options{'content_key'} =~ /^-/) { } |
| 6673 | 100 | T | F | if (isa($options{'forcearray'}, 'ARRAY')) |
| 6680 | 100 | T | F | if (ref $options{'keyattr'} eq 'ARRAY') { } |
| 50 | T | F | elsif (ref $options{'keyattr'} eq 'HASH') { } |
| 6685 | 50 | T | F | unless $prefix eq '+' |
| 6686 | 50 | T | F | if $prefix eq '-' |
| 6694 | 100 | T | F | unless $prefix |
| 6695 | 100 | T | F | if $prefix eq '-' |
| 6701 | 100 | T | F | if ($options{'var'}) { } |
| 6704 | 100 | T | F | if ($options{'variables'}) |
| 6709 | 50 | T | F | if ($options{'var_regexp'} and not $options{'var'}) |
| 6724 | 100 | T | F | $$options{'noattr'} || !$elt->atts ? : |
| 6737 | 100 | T | F | if ($child->is_text) { } |
| 6740 | 100 | T | F | if ($$options{'normalise_space'} >= 2) |
| 6741 | 100 | T | F | if ($$options{'force_content'} or $nb_atts or scalar @children > 1) { } |
| 6757 | 100 | T | F | if (my $grouped_tag = $$options{'group_tags'}{$child_gi}) |
| 6759 | 100 | T | F | if (not ref $child_data eq 'HASH' && keys %$child_data == 1 && defined(my $grouped_child_data = $$child_data{$grouped_tag})) { } |
| 6768 | 100 | T | F | if ($$options{'extra_folding'}) |
| 6769 | 100 | T | F | if (ref $child_data eq 'HASH' and keys %$child_data == 1 and defined(my $content = $$child_data{$$options{'content_key'}})) |
| 6776 | 100 | T | F | if (my $keyatt = $child->_key_attr($options)) { } |
| 100 | T | F | elsif ($$options{'forcearray'} or $$options{'forcearray_tags'}{$child_gi} or $nb_children{$child_gi} > 1) { } |
| 6779 | 100 | T | F | if ($$options{'normalise_space'} >= 1) |
| 6801 | 100 | T | F | if ($$options{'remove_key_for_all'}{$att} or $$options{'remove_key_for_elt'}{"$gi#$att"}) |
| 6806 | 100 | T | F | $$options{'var'} ? : |
| 6807 | 100 | T | F | if ($$options{'normalise_space'} >= 2) |
| 6809 | 100 | T | F | if ($$options{'prefix_key_for_all'}{$att} or $$options{'prefix_key_for_elt'}{"$gi#$att"}) { } |
| 6826 | 100 | T | F | if $$options{'noattr'} |
| 6827 | 100 | T | F | if ($$options{'key_for_all'}) { } |
| 50 | T | F | elsif ($$options{'key_for_elt'}) { } |
| 6829 | 100 | T | F | if ($$options{'key_for_all'}{$att}) |
| 6834 | 100 | T | F | if (my $key_for_elt = $$options{'key_for_elt'}{$XML::Twig::index2gi[$$elt{'gi'}]}) |
| 6835 | 100 | T | F | if defined $$elt{'att'}{$key_for_elt} |
| 6843 | 100 | T | F | if ($$options{'var'}) { } |
| 6863 | 50 | T | F | unless my $atts = $_[0]->atts |
| 6868 | 50 | T | F | unless my $atts = $_[0]->atts |
| 6869 | 100 | T | F | scalar keys %$atts ? : |
| 6875 | 100 | T | F | if (defined(my $value = $$options{'var_values'}{$2})) { } |
| 6888 | 100 | T | F | if (defined(my $var_name = $$elt{'att'}{$$options{'var'}})) |
| 6897 | 100 | T | F | $elt->is_text ? : |
| 6914 | 100 | T | F | if ($elt->is_text) { } |
| 6927 | 100 | T | F | if ($elt->is_text) { } |
| 6948 | 100 | T | F | if (ref $_[0]) { } |
| 6954 | 100 | T | F | unless (@tags) |
| 6967 | 100 | T | F | if ($previous_match) { } |
| 6971 | 100 | T | F | if $return_all |
| 6978 | 100 | T | F | if $return_all |
| 6982 | 100 | T | F | if (@matches) { } |
| 7003 | 100 | T | F | if ($previous_match and $text) |
| 7008 | 100 | T | F | if $return_all |
| 7017 | 50 | T | F | if ($] >= 5.008 and not _keep_encoding()) |
| 7018 | 100 | T | F | unless ($encode_is_loaded) |
| 7034 | 100 | T | F | if ($is_string) { } |
| 7052 | 50 | T | F | if ($next_sibling = $$text_elt{'next_sibling'} and $XML::Twig::index2gi[$$text_elt{'gi'}] eq $XML::Twig::index2gi[$$next_sibling{'gi'}]) |
| 7058 | 100 | T | F | if (not $text_elt->text) |
| 7067 | 50 | T | F | if ($prev_sibling = $$post_match{'prev_sibling'} and $XML::Twig::index2gi[$$post_match{'gi'}] eq $XML::Twig::index2gi[$$prev_sibling{'gi'}]) |
| 7075 | 100 | T | F | if (not $text_elt->text) |
| 7086 | 100 | T | F | $_[0] =~ /&e[ln]t/ ? : |
| 7101 | 100 | T | F | if ($item =~ /^&elt\s*\(([^)]*)\)/) { } |
| 100 | T | F | elsif ($item =~ /^&ent\s*\(\s*([^\s)]*)\s*\)/) { } |
| 7115 | 50 | T | F | if ($@) |
| 7124 | 100 | T | F | unless isa($e2, 'XML::Twig::Elt') |
| 7126 | 100 | T | F | unless $e1->is_text and $e2->is_text and $e1->gi eq $e2->gi |
| 7133 | 50 | T | F | if ($extra_data) |
| 7138 | 100 | T | F | if ($extra_data = $e2->_extra_data_in_pcdata) |
| 7141 | 50 | T | F | if (my $extra_data_before_end_tag = $e2->_extra_data_before_end_tag) |
| 7152 | 50 | T | F | if ($e1->_last_child and $e1->_last_child->is_pcdata and @e2_children and $e2_children[0]->is_pcdata) |
| 7167 | 100 | T | F | if ($elt->extra_data) |
| 7168 | 100 | T | F | if ($elt->_extra_data_before_end_tag) |
| 7170 | 100 | T | F | if ($elt->is_asis) |
| 7173 | 100 | T | F | if (exists $$elt{'pcdata'}) { } |
| 100 | T | F | elsif (exists $$elt{'cdata'}) { } |
| 100 | T | F | elsif (exists $$elt{'target'}) { } |
| 100 | T | F | elsif (exists $$elt{'comment'}) { } |
| 100 | T | F | elsif (exists $$elt{'ent'}) { } |
| 7175 | 100 | T | F | if ($elt->_extra_data_in_pcdata) |
| 7179 | 50 | T | F | if ($elt->_extra_data_in_pcdata) |
| 7189 | 100 | T | F | if (my $atts = $elt->atts) |
| 7191 | 50 | T | F | if keep_atts_order() |
| 7203 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 7213 | 50 | T | F | unless $XML::Twig::weakrefs |
| 7220 | 100 | T | F | if $XML::Twig::weakrefs |
| 7227 | 50 | T | F | if $ID and $t and defined $$elt{'att'} and exists $$elt{'att'}{$ID} |
| 7360 | 100 | T | F | defined $_[1] ? : |
| 7362 | 100 | T | F | if ($style =~ /^\d+$/) { } |
| 7363 | 100 | T | F | unless $style < keys %pretty_print_style |
| 7367 | 100 | T | F | unless exists $pretty_print_style{$style} |
| 7370 | 100 | T | F | if ($pretty == $WRAPPED or $pretty == $INDENTEDA) |
| 7371 | 50 | T | F | unless XML::Twig::_use('Text::Wrap') |
| 7383 | 100 | T | F | defined $_[1] ? : |
| 7385 | 100 | T | F | if ($style =~ /^\d+$/) { } |
| 7386 | 100 | T | F | unless $style < keys %empty_tag_style |
| 7391 | 100 | T | F | unless exists $empty_tag_style{$style} |
| 7399 | 0 | T | F | unless $pretty_print_style{$a} <=> $pretty_print_style{$b} |
| 7404 | 100 | T | F | unless exists $quote_style{$style} |
| 7410 | 50 | T | F | defined $_[1] ? : |
| 7418 | 100 | T | F | defined $_[1] ? : |
| 7425 | 100 | T | F | defined $_[1] ? : |
| 7433 | 50 | T | F | defined $_[1] ? : |
| 7440 | 0 | T | F | defined $_[1] ? : |
| 7461 | 50 | T | F | defined $_[1] ? : |
| 7471 | 50 | T | F | defined $_[1] ? : |
| 7473 | 100 | T | F | if (isa($new_value, 'XML::Twig::Elt') or isa($new_value, 'XML::Twig')) |
| 7475 | 100 | T | F | if (not $new_value or isa($new_value, 'CODE')) { } |
| 100 | T | F | elsif ($new_value eq 'latin1') { } |
| 100 | T | F | elsif ($XML::Twig::filter{$new_value}) { } |
| 7489 | 100 | T | F | defined $_[1] ? : |
| 7491 | 100 | T | F | if (isa($new_value, 'XML::Twig::Elt') or isa($new_value, 'XML::Twig')) |
| 7493 | 100 | T | F | if (not $new_value or isa($new_value, 'CODE')) { } |
| 50 | T | F | elsif ($new_value eq 'latin1') { } |
| 100 | T | F | elsif ($XML::Twig::filter{$new_value}) { } |
| 7507 | 100 | T | F | defined $_[1] ? : |
| 7514 | 50 | T | F | defined $_[1] ? : |
| 7529 | 100 | T | F | if $$elt{'gi'} < $XML::Twig::SPECIAL_GI |
| 7536 | 50 | T | F | $att ? : |
| 7537 | 100 | T | F | if ($ns_map) |
| 7540 | 100 | T | F | if ($output_text_filter) |
| 7543 | 100 | T | F | $pretty == $INDENTEDA ? : |
| 100 | T | F | $pretty == $NSGMLS ? : |
| 7549 | 100 | T | F | if ($$option{'escape_gt'} and not $replaced_ents =~ />/) |
| 7552 | 100 | T | F | $keep_atts_order ? : |
| 7553 | 100 | T | F | if (@att_names) { } |
| 7554 | 100 | T | F | $ns_map ? : |
| 7555 | 100 | T | F | if ($output_text_filter) |
| 7565 | 100 | T | F | if ($pretty == $INDENTEDA and @att_names == 1) |
| 7571 | 100 | T | F | if $pretty == $NSGMLS |
| 7574 | 100 | T | F | if ($empty_tag_style eq $HTML and not $$elt{'first_child'} and not $elt->_extra_data_before_end_tag and $html_empty_elt{$gi}) |
| 7577 | 100 | T | F | $empty_tag_style ? : |
| 100 | T | F | $pretty == $INDENTEDA && @att_names == 1 ? : |
| 100 | T | F | $pretty == $INDENTEDA && @att_names > 1 ? : |
| 100 | T | F | $empty_tag_style eq $HTML && $html_empty_elt{$gi} ? : |
| 100 | T | F | !$$elt{'empty'} || $elt->_extra_data_before_end_tag ? : |
| 7586 | 100 | T | F | if (substr($XML::Twig::index2gi[$$elt{'gi'}], 0, 1) eq '#' and substr($XML::Twig::index2gi[$$elt{'gi'}], 0, 9) ne '#default:') |
| 7588 | 50 | T | F | defined $extra_data ? : |
| 100 | T | F | unless ($pretty) |
| 7594 | 100 | T | F | if ($pretty == $RECORD1) { } |
| 100 | T | F | elsif ($pretty == $RECORD2) { } |
| 100 | T | F | elsif ($pretty == $NICE) { } |
| 100 | T | F | elsif ($KEEP_TEXT_TAG_ON_ONE_LINE{$pretty}) { } |
| 7596 | 100 | T | F | if $level < 2 |
| 7597 | 100 | T | F | if $level == 1 |
| 7607 | 100 | T | F | unless (not $parent or $$parent{'contains_text'}) |
| 7609 | 100 | T | F | if $parent and $$parent{'contains_text'} or $elt->contains_text |
| 7615 | 100 | T | F | unless (not $parent or $$parent{'contains_text'}) |
| 7619 | 100 | T | F | if $parent and $$parent{'contains_text'} or $elt->contains_text |
| 7623 | 100 | T | F | if ($return or $indent) |
| 7626 | 50 | T | F | if $xml_space_preserve |
| 7627 | 100 | T | F | if ($t and $$t{'twig_keep_spaces_in'}) |
| 7629 | 50 | T | F | if $$t{'twig_keep_spaces_in'}{$XML::Twig::index2gi[$$ancestor{'gi'}]} |
| 7633 | 100 | T | F | if ($extra_data) |
| 7646 | 100 | T | F | if $$elt{'gi'} < $XML::Twig::SPECIAL_GI or $$elt{'empty'} || 0 and not $elt->_extra_data_before_end_tag |
| 7652 | 100 | T | F | if (my $map = $$elt{'att'}{'#original_gi'}) |
| 7655 | 100 | T | F | if ($output_text_filter) |
| 7660 | 100 | T | F | if (substr($XML::Twig::index2gi[$$elt{'gi'}], 0, 1) eq '#' and substr($XML::Twig::index2gi[$$elt{'gi'}], 0, 9) ne '#default:') |
| 7662 | 100 | T | F | unless $pretty |
| 7668 | 100 | T | F | if ($pretty == $RECORD1) { } |
| 100 | T | F | elsif ($pretty == $RECORD2) { } |
| 100 | T | F | elsif ($pretty == $NICE) { } |
| 100 | T | F | elsif ($KEEP_TEXT_TAG_ON_ONE_LINE{$pretty}) { } |
| 7669 | 100 | T | F | if $elt->level == 0 |
| 7673 | 100 | T | F | unless ($elt->contains_text) |
| 7681 | 100 | T | F | if ($parent && !$$parent{'contains_text'} || !$parent and (not $$elt{'contains_text'} and $$elt{'has_flushed_child'} || $elt->_first_child)) |
| 7691 | 100 | T | F | if ($parent && !$$parent{'contains_text'} || !$parent and (not $$elt{'contains_text'} and $$elt{'has_flushed_child'} || $elt->_first_child)) |
| 7701 | 100 | T | F | if ($return or $indent) |
| 7704 | 50 | T | F | if $xml_space_preserve |
| 7705 | 100 | T | F | if ($t and $$t{'twig_keep_spaces_in'}) |
| 7707 | 50 | T | F | if $$t{'twig_keep_spaces_in'}{$XML::Twig::index2gi[$$ancestor{'gi'}]} |
| 7710 | 50 | T | F | $pretty == $INDENTEDCT ? : |
| 50 | T | F | if ($return) |
| 7715 | 100 | T | F | unless $$elt{'parent'} |
| 7723 | 100 | T | F | if (my $original_prefix = $$map{$prefix}) |
| 7724 | 100 | T | F | if ($original_prefix eq '#default') { } |
| 7743 | 100 | T | F | _is_fh($_[0]) ? : |
| 7744 | 100 | T | F | defined $fh ? : |
| 7745 | 100 | T | F | defined($pretty = shift @_) ? : |
| 7756 | 50 | T | F | if ($output_filter or $pretty == $WRAPPED || $pretty == $INDENTEDC and not $xml_space_preserve) { } |
| 7758 | 0 | T | F | if ($output_filter) |
| 7760 | 0 | T | F | if ($pretty == $WRAPPED || $pretty == $INDENTEDC and not $xml_space_preserve) |
| 7770 | 100 | T | F | if defined $old_select |
| 7771 | 100 | T | F | if defined $old_pretty |
| 7779 | 50 | T | F | $_[0] && isa($_[0], 'XML::Twig::Elt') ? : |
| 7784 | 100 | T | F | $_[0] && isa($_[0], 'XML::Twig::Elt') ? : |
| 7792 | 50 | T | F | _is_fh($_[0]) ? : |
| 7793 | 50 | T | F | defined $fh ? : |
| 7794 | 100 | T | F | defined($pretty = shift @_) ? : |
| 7796 | 50 | T | F | if ($elt->inherit_att('xml:space') || '') eq 'preserve' |
| 7802 | 50 | T | F | if defined $old_select |
| 7803 | 100 | T | F | if defined $old_pretty |
| 7809 | 100 | T | F | if ($$elt{'gi'} >= $XML::Twig::SPECIAL_GI) { } |
| 7811 | 50 | T | F | if $preserve |
| 7812 | 100 | T | F | unless ($elt->_flushed) |
| 7820 | 50 | T | F | unless ($$elt{'end_tag_flushed'}) |
| 7821 | 50 | T | F | if $preserve |
| 7823 | 100 | T | F | if (my $parent = $$elt{'parent'}) |
| 7827 | 100 | T | F | if (exists $$elt{'pcdata'}) { } |
| 100 | T | F | elsif (exists $$elt{'cdata'}) { } |
| 100 | T | F | elsif (exists $$elt{'target'}) { } |
| 50 | T | F | elsif (exists $$elt{'comment'}) { } |
| 0 | T | F | elsif (exists $$elt{'ent'}) { } |
| 7828 | 50 | T | F | if (my $parent = $$elt{'parent'}) |
| 7832 | 50 | T | F | if (my $parent = $$elt{'parent'}) |
| 7839 | 50 | T | F | $output_filter ? : |
| 7847 | 100 | T | F | if (@options and grep {lc $_ eq 'no_recurse';} @options) |
| 7851 | 100 | T | F | if ($$elt{'gi'} >= $XML::Twig::SPECIAL_GI) { } |
| 100 | T | F | elsif (exists $$elt{'pcdata'}) { } |
| 100 | T | F | elsif (exists $$elt{'cdata'}) { } |
| 50 | T | F | elsif (exists $$elt{'ent'}) { } |
| 7858 | 100 | T | F | $output_filter ? : |
| 7861 | 50 | T | F | $output_filter ? : |
| 7870 | 100 | T | F | if $_->is_text or exists $$_{'ent'} |
| 7881 | 100 | T | F | if ($_[0] and isa($_[0], 'HASH')) |
| 7883 | 100 | T | F | if (defined $args{'PrettyPrint'}) |
| 7884 | 100 | T | F | if (defined $args{'EmptyTags'}) |
| 7887 | 100 | T | F | if ($elt->inherit_att('xml:space') || '') eq 'preserve' |
| 7892 | 100 | T | F | if ($output_filter) |
| 7894 | 100 | T | F | if ($pretty == $WRAPPED || $pretty == $INDENTEDC and not $xml_space_preserve) |
| 7899 | 100 | T | F | if (defined $old_pretty) |
| 7900 | 100 | T | F | if (defined $old_empty_tag_style) |
| 7928 | 100 | T | F | if ($$elt{'gi'} >= $XML::Twig::SPECIAL_GI) { } |
| 7931 | 100 | T | F | if $preserve |
| 7933 | 100 | T | F | unless $no_tag |
| 7941 | 100 | T | F | unless $no_tag |
| 7942 | 100 | T | F | if $preserve |
| 7945 | 100 | T | F | if $$elt{'extra_data'} |
| 7946 | 100 | T | F | if (exists $$elt{'pcdata'}) { } |
| 100 | T | F | elsif (exists $$elt{'cdata'}) { } |
| 100 | T | F | elsif (exists $$elt{'target'}) { } |
| 100 | T | F | elsif (exists $$elt{'comment'}) { } |
| 50 | T | F | elsif (exists $$elt{'ent'}) { } |
| 7949 | 50 | T | F | if ($pretty >= $INDENTED and not $$elt{'parent'}{'contains_text'}) |
| 7952 | 50 | T | F | if ($pretty >= $INDENTED and not $$elt{'parent'}{'contains_text'}) |
| 7963 | 100 | T | F | isa($_[0], 'HASH') ? : |
| 7968 | 100 | T | F | if (defined(my $string = $$elt{'pcdata'})) { } |
| 7970 | 100 | T | F | if ($elt->_extra_data_in_pcdata) { } |
| 7974 | 100 | T | F | if ($keep_encoding or $$elt{'asis'}) { } |
| 7979 | 100 | T | F | unless ($keep_encoding or $$elt{'asis'}) |
| 7988 | 100 | T | F | unless $keep_encoding or $$elt{'asis'} |
| 7991 | 100 | T | F | $output_text_filter ? : |
| 8025 | 100 | T | F | unless (defined $cdata) |
| 8026 | 100 | T | F | if ($remove_cdata) { } |
| 8038 | 50 | T | F | if ($_[0] and $_[0]{'escape_gt'} and not $replace =~ />/) |
| 8040 | 50 | T | F | if (defined(my $string = $$elt{'att'}{$att})) { } |
| 8049 | 100 | T | F | if (not defined $string) |
| 8050 | 100 | T | F | unless ($keep_encoding) |
| 8052 | 100 | T | F | if ($do_not_escape_amp_in_atts) { } |
| 8063 | 100 | T | F | $output_text_filter ? : |
| 8070 | 100 | T | F | if ($expand_external_entities and $t = $ent->twig and $el = $t->entity_list and $ent_string = $$el{'entities'}{$ent->ent_name}{'val'}) { } |
| 8084 | 100 | T | F | if (@options and grep {lc $_ eq 'no_recurse';} @options) |
| 8088 | 100 | T | F | if (exists $$elt{'pcdata'}) { } |
| 100 | T | F | elsif (exists $$elt{'cdata'}) { } |
| 100 | T | F | elsif (exists $$elt{'target'}) { } |
| 100 | T | F | elsif (exists $$elt{'comment'}) { } |
| 100 | T | F | elsif (exists $$elt{'ent'}) { } |
| 8098 | 50 | T | F | defined $child_text ? : |
| 8101 | 100 | T | F | unless (defined $string) |
| 8103 | 50 | T | F | $output_text_filter ? : |
| 8107 | 100 | T | F | if $_->is_text or exists $$_{'ent'} |
| 8138 | 100 | T | F | if ($keep_encoding) { } |
| 8178 | 100 | T | F | if ($$elt{'gi'} >= $XML::Twig::SPECIAL_GI) { } |
| 8181 | 100 | T | F | if ($data and my $start_element = $handler->can('start_element')) |
| 8182 | 100 | T | F | unless ($elt->_flushed) |
| 8187 | 100 | T | F | if (my $data = &$end_tag_data($elt) and my $end_element = $handler->can('end_element')) |
| 8192 | 100 | T | F | if (exists $$elt{'pcdata'} and my $characters = $handler->can('characters')) { } |
| 100 | T | F | elsif (exists $$elt{'cdata'}) { } |
| 100 | T | F | elsif (exists $$elt{'target'} and my $pi = $handler->can('processing_instruction')) { } |
| 100 | T | F | elsif (exists $$elt{'comment'} and my $comment = $handler->can('comment')) { } |
| 100 | T | F | elsif (exists $$elt{'ent'}) { } |
| 8195 | 50 | T | F | if (my $start_cdata = $handler->can('start_cdata')) |
| 8197 | 50 | T | F | if (my $characters = $handler->can('characters')) |
| 8199 | 50 | T | F | if (my $end_cdata = $handler->can('end_cdata')) |
| 8208 | 50 | T | F | if (my $se = $handler->can('skipped_entity')) { } |
| 0 | T | F | elsif (my $characters = $handler->can('characters')) { } |
| 8211 | 0 | T | F | if (defined $elt->ent_string) { } |
| 8224 | 100 | T | F | if substr($XML::Twig::index2gi[$$elt{'gi'}], 0, 1) eq '#' and substr($XML::Twig::index2gi[$$elt{'gi'}], 0, 9) ne '#default:' |
| 8228 | 100 | T | F | unless substr($att, 0, 1) eq '#' and substr($att, 0, 9) ne '#default:' |
| 8235 | 100 | T | F | if substr($XML::Twig::index2gi[$$elt{'gi'}], 0, 1) eq '#' and substr($XML::Twig::index2gi[$$elt{'gi'}], 0, 9) ne '#default:' |
| 8244 | 100 | T | F | if substr($XML::Twig::index2gi[$$elt{'gi'}], 0, 1) eq '#' and substr($XML::Twig::index2gi[$$elt{'gi'}], 0, 9) ne '#default:' |
| 8265 | 100 | T | F | if substr($att, 0, 1) eq '#' and substr($att, 0, 9) ne '#default:' |
| 8281 | 100 | T | F | unless /^\{[^}]*\}xmlns/ |
| 100 | T | F | if (my $start_prefix_mapping = $handler->can('start_prefix_mapping') and my(@new_prefix_mappings) = grep({/^\{$XMLNS_URI\}/ unless /^\{[^}]*\}xmlns/;} keys %{$$data{'Attributes'};})) |
| 8286 | 100 | T | F | if ($prefix_string eq 'xmlns') |
| 8300 | 100 | T | F | if (my $end_prefix_mapping = $handler->can('end_prefix_mapping')) |
| 8308 | 100 | T | F | if substr($XML::Twig::index2gi[$$elt{'gi'}], 0, 1) eq '#' and substr($XML::Twig::index2gi[$$elt{'gi'}], 0, 9) ne '#default:' |
| 8316 | 100 | T | F | if $child->is_text or exists $$child{'ent'} |
| 8329 | 100 | T | F | if ($XML::Twig::index2gi[$$elt{'gi'}] eq '#PCDATA') { } |
| 100 | T | F | elsif ($XML::Twig::index2gi[$$elt{'gi'}] eq '#CDATA') { } |
| 100 | T | F | elsif ($elt->contains_a_single('#PCDATA')) { } |
| 8332 | 100 | T | F | if ($option{'force_pcdata'}) { } |
| 8361 | 100 | T | F | unless defined $_[0] |
| 8364 | 100 | T | F | if (ref $_[0] eq 'HASH') |
| 8368 | 50 | T | F | unless defined $_[0] |
| 8372 | 100 | T | F | if (not ref $_[0] and $_[0] eq '#EMPTY') |
| 8377 | 100 | T | F | if ($XML::Twig::index2gi[$$elt{'gi'}] eq '#PCDATA' || $elt->contains_a_single('#PCDATA') and @_ == 1 and not ref $_[0]) { } |
| 100 | T | F | elsif ($XML::Twig::index2gi[$$elt{'gi'}] eq '#CDATA' and @_ == 1 and not ref $_[0]) { } |
| 8394 | 100 | T | F | if (ref $child and isa($child, 'XML::Twig::Elt')) { } |
| 8400 | 100 | T | F | if (my $pcdata = $$elt{'last_child'} and $$elt{'last_child'}->is_pcdata) { } |
| 8430 | 100 | T | F | if (defined $args[0] and isa($args[0], 'HASH')) |
| 8450 | 100 | T | F | if ($position eq 'before' or $position eq 'after' or $position eq 'first_child' or $position eq 'last_child') { } |
| 8472 | 100 | T | F | if ($$elt{'twig_current'}) |
| 8479 | 100 | T | F | if (my $parent = $$elt{'parent'}) { } |
| 8480 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 8481 | 100 | T | F | if ($$parent{'first_child'} == $elt) |
| 8482 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 100 | T | F | if ($$parent{'last_child'} == $elt) |
| 8487 | 50 | T | F | if ($twig and $twig->root and $twig->root eq $elt) |
| 8491 | 100 | T | F | if (my $prev_sibling = $$elt{'prev_sibling'}) |
| 8492 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 8496 | 100 | T | F | if (my $next_sibling = $$elt{'next_sibling'}) |
| 8498 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 8501 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 8503 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 8504 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 8508 | 100 | T | F | if (defined $_[0] and isa($_[0], 'HASH')) |
| 8520 | 50 | T | F | if ($$elt{'parent'}) |
| 8522 | 50 | T | F | if (my $parent = $$ref{'parent'}) |
| 8523 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 8524 | 100 | T | F | if ($$parent{'first_child'} == $ref) |
| 8525 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 100 | T | F | if ($$parent{'last_child'} == $ref) |
| 8527 | 100 | T | F | if (my $prev_sibling = $$ref{'prev_sibling'}) |
| 8528 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 8531 | 100 | T | F | if (my $next_sibling = $$ref{'next_sibling'}) |
| 8533 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 8536 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 8537 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 8564 | 100 | T | F | $option && $option eq 'asis' ? : |
| 8565 | 100 | T | F | if (exists $$elt{'pcdata'} and $asis && $$elt{'asis'} || !$asis && !$$elt{'asis'}) { } |
| 100 | T | F | elsif ($$elt{'first_child'} and $$elt{'first_child'}->is_pcdata and $asis && $$elt{'first_child'}{'asis'} || !$asis && !$$elt{'first_child'}{'asis'}) { } |
| 8579 | 100 | T | F | if ($asis) |
| 8587 | 100 | T | F | $option && $option eq 'asis' ? : |
| 8588 | 100 | T | F | if (exists $$elt{'pcdata'} and $asis && $$elt{'asis'} || !$asis && !$$elt{'asis'}) { } |
| 100 | T | F | elsif ($$elt{'last_child'} and $$elt{'last_child'}->is_pcdata and $asis && $$elt{'last_child'}{'asis'} || !$asis && !$$elt{'last_child'}{'asis'}) { } |
| 8600 | 100 | T | F | if ($asis) |
| 8619 | 100 | T | F | unless ($index == 1 and not $ancestor->next_sibling($gi)) |
| 8644 | 50 | T | F | isa($_[0], 'HASH') ? : |
| 8654 | 50 | T | F | unless @to_wrap |
| 8698 | 100 | T | F | unless my $child = $elt->first_child($cond) |
| 8740 | 100 | T | F | $opt{'order'} eq 'reverse' ? : |
| 8741 | 100 | T | F | $opt{'type'} eq 'numeric' ? : |
| 8743 | 100 | T | F | if ($opt{'type'} eq 'numeric') { } |
| 100 | T | F | elsif ($opt{'type'} eq 'alpha') { } |
| 8756 | 100 | T | F | if $opt{'order'} eq 'reverse' |
| 8765 | 100 | T | F | if ($a->cmp($b) == -1) { } |
| 8770 | 100 | T | F | if ($a->cmp($b) == 1) { } |
| 8775 | 100 | T | F | if $a->cmp($b) == -1 |
| 8781 | 100 | T | F | unless $a->cmp($b) == 1 |
| 8787 | 100 | T | F | if $a->cmp($b) == 1 |
| 8793 | 100 | T | F | unless $a->cmp($b) == -1 |
| 8802 | 100 | T | F | if $a == $b |
| 8803 | 100 | T | F | if $a->in($b) |
| 8804 | 100 | T | F | if $b->in($a) |
| 8811 | 100 | T | F | unless $a_pile[-1] == $b_pile[-1] |
| 8826 | 100 | T | F | if $a_prev == $b_next |
| 8828 | 100 | T | F | if $a_next == $b_prev |
| 8830 | 100 | T | F | if $b_prev == $a_next |
| 8832 | 100 | T | F | if $b_next == $a_prev |
| 8839 | 100 | T | F | defined $$option{'atts'} ? : |
| 8840 | 100 | T | F | defined $$option{'extra'} ? : |
| 8841 | 50 | T | F | defined $$option{'short_text'} ? : |
| 8848 | 100 | T | F | if ($elt->is_elt) { } |
| 8852 | 100 | T | F | if ($atts and my(@atts) = $elt->att_names) |
| 8856 | 100 | T | F | if ($extra) |
| 8861 | 100 | T | F | if (exists $$elt{'pcdata'}) { } |
| 50 | T | F | elsif (exists $$elt{'ent'}) { } |
| 100 | T | F | elsif (exists $$elt{'cdata'}) { } |
| 100 | T | F | elsif (exists $$elt{'comment'}) { } |
| 50 | T | F | elsif (exists $$elt{'target'}) { } |
| 8871 | 100 | T | F | if ($extra) |
| 8879 | 100 | T | F | if ($elt->extra_data) |
| 8884 | 50 | T | F | if ($elt->_extra_data_in_pcdata) |
| 8891 | 50 | T | F | if ($elt->_extra_data_before_end_tag) |
| 8902 | 100 | T | F | if (not $length or length $string < $length) |