| line | % | coverage | branch |
|---|
| 115 | 50 | T | F | unless $parser_version >= $needVersion |
| 117 | 50 | T | F | if ($] >= 5.008) |
| 126 | 50 | T | F | if (eval 'require Scalar::Util' and defined \&Scalar::Util::weaken) { } |
| 0 | T | F | elsif (eval 'require WeakRef') { } |
| 384 | 100 | T | F | unless ($args{'MoreOptions'}) |
| 386 | 100 | T | F | unless $valid_option{$arg} |
| 398 | 100 | T | F | if (exists $args{'TwigHandlers'}) |
| 405 | 100 | T | F | if (exists $args{'StartTagHandlers'}) |
| 410 | 100 | T | F | if (exists $args{'DoNotChainHandlers'}) |
| 413 | 100 | T | F | if (exists $args{'IgnoreElts'}) |
| 415 | 50 | T | F | if (isa($args{'IgnoreElts'}, 'ARRAY')) |
| 420 | 100 | T | F | if (exists $args{'Index'}) |
| 423 | 100 | T | F | if (ref $index eq 'ARRAY') |
| 432 | 100 | T | F | if (exists $args{'EltClass'}) |
| 434 | 100 | T | F | if (exists $args{'MapXmlns'}) |
| 440 | 100 | T | F | if (exists $args{'KeepOriginalPrefix'}) |
| 448 | 100 | T | F | if ($args{'ExpandExternalEnts'}) { } |
| 452 | 100 | T | F | if ($args{'ExpandExternalEnts'} == -1) |
| 462 | 50 | T | F | if (not $args{'NoLWP'} and not _use('URI') and not _use('URI::File') and not _use('LWP')) { } |
| 467 | 100 | T | F | if ($args{'DoNotEscapeAmpInAtts'}) { } |
| 479 | 100 | T | F | if ($args{'TwigRoots'}) |
| 484 | 100 | T | F | if ($args{'EndTagHandlers'}) |
| 485 | 100 | T | F | unless ($$self{'twig_roots'} or $args{'ForceEndTagHandlersUsage'}) |
| 498 | 100 | T | F | if ($args{'TwigPrintOutsideRoots'}) |
| 499 | 100 | T | F | unless $$self{'twig_roots'} |
| 502 | 100 | T | F | if (_is_fh($args{'TwigPrintOutsideRoots'})) |
| 508 | 100 | T | F | if ($args{'KeepSpaces'}) |
| 509 | 100 | T | F | if $args{'DiscardSpaces'} |
| 510 | 100 | T | F | if $args{'KeepSpacesIn'} |
| 514 | 100 | T | F | if ($args{'DiscardSpaces'}) |
| 515 | 100 | T | F | if $args{'KeepSpacesIn'} |
| 519 | 100 | T | F | if ($args{'KeepSpacesIn'}) |
| 520 | 100 | T | F | if $args{'DiscardSpacesIn'} |
| 527 | 100 | T | F | if ($args{'DiscardSpacesIn'}) |
| 535 | 100 | T | F | unless $$self{'twig_keep_spaces'} |
| 538 | 100 | T | F | if ($args{'Comments'} eq 'drop') { } |
| 100 | T | F | elsif ($args{'Comments'} eq 'keep') { } |
| 100 | T | F | elsif ($args{'Comments'} eq 'process') { } |
| 545 | 100 | T | F | if ($args{'Pi'} eq 'drop') { } |
| 100 | T | F | elsif ($args{'Pi'} eq 'keep') { } |
| 100 | T | F | elsif ($args{'Pi'} eq 'process') { } |
| 551 | 100 | T | F | if ($args{'KeepEncoding'}) { } |
| 556 | 100 | T | F | if defined $args{'ParseStartTag'} |
| 561 | 100 | T | F | if $args{'ParseStartTag'} |
| 564 | 100 | T | F | if ($args{'OutputFilter'}) { } |
| 571 | 100 | T | F | if ($args{'RemoveCdata'}) { } |
| 578 | 100 | T | F | if ($args{'OutputTextFilter'}) { } |
| 586 | 100 | T | F | if (exists $args{'KeepAttsOrder'}) { } |
| 588 | 100 | T | F | if (_use('Tie::IxHash')) { } |
| 597 | 100 | T | F | if ($args{'PrettyPrint'}) |
| 598 | 100 | T | F | if ($args{'Quote'}) |
| 599 | 100 | T | F | if ($args{'EmptyTags'}) |
| 601 | 100 | T | F | if (exists $args{'Id'}) |
| 602 | 100 | T | F | if ($args{'NoProlog'}) |
| 603 | 100 | T | F | if ($args{'DoNotOutputDTD'}) |
| 604 | 100 | T | F | if ($args{'LoadDTD'}) |
| 605 | 100 | T | F | if ($args{'CharHandler'}) |
| 607 | 100 | T | F | if ($args{'InputFilter'}) |
| 608 | 100 | T | F | if ($args{'NoExpand'}) |
| 609 | 100 | T | F | if (my $output_encoding = $args{'OutputEncoding'}) |
| 611 | 100 | T | F | if (my $tdh = $args{'TopDownHandlers'}) |
| 614 | 100 | T | F | if ($$self{'twig_roots'}) { } |
| 615 | 100 | T | F | if ($$self{'twig_default_print'}) { } |
| 616 | 100 | T | F | if ($$self{'twig_keep_encoding'}) { } |
| 641 | 100 | T | F | if $weakrefs |
| 650 | 100 | T | F | if (not ref $t or not isa($t, 'XML::Twig')) |
| 655 | 50 | T | F | if ($] >= 5.008 and ${^UNICODE} and ${^UNICODE} & 24 and isa($_[0], 'GLOB') and -p $_[0]) |
| 672 | 100 | T | F | if (not $t) |
| 673 | 100 | T | F | if (isa($returned, 'XML::Twig') and $$returned{'twig_finish_now'}) { } |
| 696 | 50 | T | F | unless _use('File::Temp') |
| 704 | 50 | T | F | unless ($$t{'twig_keep_encoding'} or $] < 5.006) |
| 711 | 50 | T | F | unless chmod $mode, $tmpfile |
| 713 | 100 | T | F | if ($suffix) |
| 715 | 100 | T | F | if ($suffix =~ /\*/) { } |
| 718 | 50 | T | F | unless rename $file, $backup |
| 720 | 50 | T | F | unless rename $tmpfile, $file |
| 739 | 50 | T | F | $@ ? : |
| 744 | 50 | T | F | unless _use('LWP::Simple') |
| 746 | 50 | T | F | $@ ? : |
| 753 | 50 | T | F | $@ ? : |
| 759 | 100 | T | F | $$t{'ErrorContext'} ? : |
| 768 | 50 | T | F | $$t{'ErrorContext'} ? : |
| 770 | 100 | T | F | isa($content, 'GLOB') ? : |
| 777 | 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?$/) { } |
| 778 | 100 | T | F | $to_parse =~ /<html/i ? : |
| 781 | 100 | T | F | unless _use('LWP::Simple') |
| 784 | 100 | T | F | unless _use('LWP::Simple') |
| 787 | 50 | T | F | if ($xml_parse_ok) { } |
| 791 | 0 | T | F | if ($doc =~ /<html/i) { } |
| 805 | 100 | T | F | if (_is_well_formed_xml($_[0])) { } |
| 809 | 100 | T | F | if (_is_well_formed_xml($html)) { } |
| 820 | 100 | T | F | $@ ? : |
| 837 | 100 | T | F | unless _use('HTML::TreeBuilder', '3.13') |
| 850 | 100 | T | F | if ($$options{'indent'}) |
| 865 | 50 | T | F | if ($@ =~ /^\s*xml declaration not at start of external entity/) { } |
| 50 | T | F | elsif ($@ =~ /^\s*not well-formed \(invalid token\)/) { } |
| 871 | 100 | T | F | unless (keys %xml_parser_encoding) |
| 873 | 100 | T | F | if (not $add_decl) { } |
| 874 | 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'}) { } |
| 881 | 50 | T | F | if ($add_decl) { } |
| 920 | 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) |
| 934 | 50 | T | F | if (_use('Encode')) { } |
| 0 | T | F | elsif (_use('Text::Iconv')) { } |
| 0 | T | F | elsif (_use('Unicode::Map8') and _use('Unicode::String')) { } |
| 938 | 0 | T | F | if ($converter) |
| 965 | 50 | T | F | if ($2 and $block_tag{$2}) { } |
| 0 | T | F | elsif ($3 and $block_tag{$3}) { } |
| 966 | 50 | T | F | unless $2 =~ m[/>] |
| 984 | 100 | T | F | if ($text_type{$type}) { } |
| 1009 | 100 | T | F | if ($disallowed{$module}) |
| 1010 | 100 | T | F | if ($used{$module}) |
| 1011 | 100 | T | F | if (eval "require $module") { } |
| 1013 | 50 | T | F | if (${"${module}::VERSION";} >= $version) { } |
| 1025 | 100 | T | F | if ($n > 0) { } |
| 100 | T | F | elsif ($n < 0) { } |
| 1026 | 100 | T | F | if $i == $n |
| 100 | T | F | if (&$coderef) |
| 1028 | 100 | T | F | if $i == $n |
| 100 | T | F | if (&$coderef) |
| 1036 | 100 | T | F | if ($uri =~ m[^\w+://]) { } |
| 1043 | 100 | T | F | if (defined $base and not $filename =~ m[^(?:[\\/]|\w+:)]) |
| 1054 | 100 | T | F | unless open TWIG_TO_SLURP, "<$filename" |
| 1077 | 50 | T | F | unless _use('LWP') |
| 1078 | 50 | T | F | if ($^O ne 'VMS') { } |
| 1079 | 50 | T | F | unless pipe README, WRITEME |
| 1080 | 100 | T | F | if (my $pid = fork) { } |
| 1083 | 100 | T | F | $safe ? : |
| 1085 | 100 | T | F | $@ ? : |
| 1097 | 100 | T | F | unless $response->is_success |
| 1107 | 0 | T | F | unless $response->is_success |
| 1108 | 0 | T | F | $safe ? : |
| 1109 | 0 | T | F | $@ ? : |
| 1133 | 100 | T | F | if $$t{'twig_keep_encoding'} |
| 1141 | 50 | T | F | if (@saved_default_handler and defined $saved_default_handler[1]) { } |
| 1155 | 100 | T | F | if ($$p{'twig'}{'twig_doctype'}{'has_internal'} and not $expat_1_95_2) |
| 1170 | 100 | T | F | unless $_[0] |
| 100 | T | F | if isa($_[0], 'GLOB') or isa($_[0], 'IO::Scalar') |
| 1177 | 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) |
| 1195 | 100 | T | F | if ($path =~ /^\s*($ALL|$DEFAULT|#COMMENT)\s*$/io) { } |
| 1205 | 100 | T | F | if (my $handler_data = _parse_xpath_handler($path, $handler)) { } |
| 1217 | 100 | T | F | $$handlers{'xpath_handler'}{$tag} ? : |
| 1219 | 100 | T | F | if ($prev_handler) |
| 1221 | 100 | T | F | if $$handler_data{'handler'} |
| 1224 | 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) |
| 1239 | 100 | T | F | if ($path =~ /^\s*(?:\?|#PI)\s*(?:([^\s]*)\s*)$/) { } |
| 1253 | 100 | T | F | if ($path =~ /^ \s* level \s* \( \s* ([0-9]+) \s* \) \s* $/ox) { } |
| 1269 | 100 | T | F | if ($path =~ /^\(\?([xism]*)(?:-[xism]*)?:(.*)\)$/) { } |
| 1288 | 50 | T | F | if ($DEBUG_HANDLER >= 1) |
| 1292 | 50 | T | F | if ($DEBUG_HANDLER and $path_to_check =~ /\S/) |
| 1293 | 100 | T | F | if $path_to_check =~ /\S/ |
| 1309 | 100 | T | F | if ($2) { } |
| 1310 | 100 | T | F | if ($last_token_is_sep) |
| 1314 | 100 | T | F | if (defined $last_token_is_sep and not $last_token_is_sep) |
| 1320 | 100 | T | F | if ($last_token_is_sep) |
| 1334 | 100 | T | F | $xpath_original =~ m[^\s*/(?!/)] ? : |
| 1343 | 50 | T | F | $DEBUG_HANDLER >= 2 ? : |
| 1345 | 100 | T | F | if ($predicate) |
| 1346 | 50 | T | F | if ($DEBUG_HANDLER >= 2) |
| 1349 | 50 | T | F | if ($DEBUG_HANDLER >= 2) |
| 1352 | 100 | T | F | $tag ne '*' ? : |
| 1358 | 100 | T | F | if ($sep eq '/') { } |
| 50 | T | F | elsif ($sep eq '//') { } |
| 1386 | 50 | T | F | $DEBUG_HANDLER >= 2 ? : |
| 1397 | 100 | T | F | if ($anchored) |
| 1399 | 50 | T | F | $DEBUG_HANDLER >= 2 ? : |
| 1403 | 50 | T | F | if $DEBUG_HANDLER >= 2 |
| 1405 | 50 | T | F | if $DEBUG_HANDLER >= 1 |
| 1407 | 50 | T | F | if ($@) |
| 1410 | 50 | T | F | if $DEBUG_HANDLER >= 1 |
| 1411 | 50 | T | F | if $DEBUG_HANDLER >= 1 |
| 1427 | 100 | T | F | if ($func or $string_regexp or $string_test_num or $string_test_alpha) |
| 1429 | 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) { } |
| 1430 | 100 | T | F | $att =~ /^#/ ? : |
| 1433 | 100 | T | F | $bare_att =~ /^#/ ? : |
| 1445 | 0 | T | F | $2 eq '=' ? : |
| 1448 | 0 | T | F | $and_or eq 'and' ? : |
| 1483 | 50 | T | F | if $$handlers{'attcond_handlers'} |
| 1563 | 100 | T | F | if isa($$handlers{$path}, 'CODE') |
| 1573 | 100 | T | F | if (my $type = $$handler_data{'test_on_text'}) |
| 1588 | 100 | T | F | if ($$t{'twig_parsing'}) |
| 1592 | 100 | T | F | if $weakrefs |
| 1609 | 100 | T | F | $@ ? : |
| 1615 | 100 | T | F | $@ ? : |
| 1629 | 100 | T | F | if $t->root |
| 1638 | 100 | T | F | unless $$t{'twig_current'} |
| 1639 | 100 | T | F | if ($$t{'twig_stored_spaces'} or $option{'force'} or $$t{'twig_preserve_space'}) |
| 1640 | 100 | T | F | if ($$t{'twig_current'}->is_pcdata) { } |
| 1644 | 100 | T | F | unless (defined $$t{'twig_space_policy'}{$current_gi}) |
| 1647 | 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'}) |
| 1672 | 100 | T | F | if ($$t{'twig_in_pcdata'}) |
| 1679 | 100 | T | F | if (my $func = $$t{'parse_start_tag'}) { } |
| 50 | T | F | elsif ($$t{'twig_entities_in_attribute'}) { } |
| 1688 | 100 | T | F | if ($$t{'twig_read_external_dtd'}) |
| 1691 | 100 | T | F | if (my $filter = $$t{'twig_input_filter'}) |
| 1696 | 100 | T | F | if $$t{'twig_map_xmlns'} |
| 1703 | 100 | T | F | if $weakrefs |
| 1706 | 100 | T | F | if $parent |
| 1710 | 100 | T | F | if ($parent) { } |
| 1712 | 100 | T | F | if ($prev_sibling) |
| 1718 | 100 | T | F | unless $$parent{'first_child'} |
| 1725 | 50 | T | F | if defined $$t{'twig_dtd_handler'} |
| 1730 | 100 | T | F | if ($$t{'twig_default_print'}) { } |
| 100 | T | F | elsif ($$t{'twig_roots'}) { } |
| 1738 | 100 | T | F | $p->recognized_string =~ m[/\s*>$]s ? : |
| 1740 | 100 | T | F | if $$t{'extra_data'} |
| 1745 | 100 | T | F | if (defined $id) |
| 1747 | 100 | T | F | if $weakrefs |
| 1751 | 100 | T | F | if ($$t{'twig_starttag_handlers'}) |
| 1758 | 100 | T | F | unless &$handler($t, $elt) |
| 1760 | 100 | T | F | if (my $all = $$t{'twig_starttag_handlers'}{'handlers'}{$ALL}) |
| 1765 | 100 | T | F | if ($$t{'twig_ignore_elts_handlers'}) |
| 1768 | 100 | T | F | if (@handlers) |
| 1771 | 100 | T | F | if ($$elt{'att'}{'xml:space'} and $$elt{'att'}{'xml:space'} eq 'preserve') |
| 1781 | 100 | T | F | if (not $$t{'twig_keep_original_prefix'} and my $mapped_prefix = $$t{'twig_map_xmlns'}{$uri}) |
| 1784 | 100 | T | F | if ($new_prefix eq '#default') { } |
| 1790 | 100 | T | F | if ($$t{'twig_keep_original_prefix'}) { } |
| 1795 | 100 | T | F | if ($$ns_info{'mapped_prefix'}) |
| 1801 | 100 | T | F | if ($att_name) { } |
| 1804 | 100 | T | F | if ($$ns_info{'mapped_prefix'}) |
| 1813 | 100 | T | F | if $map_att |
| 1819 | 100 | T | F | if ($att_name) { } |
| 1834 | 100 | T | F | unless $$ns_info{'uri'} |
| 1845 | 100 | T | F | if ($p->expand_ns_prefix($prefix) eq $uri) |
| 1857 | 100 | T | F | if (not exists $value{$att} and exists $$attlist{$att}{'default'} and $$attlist{$att}{'default'} ne '#IMPLIED') |
| 1879 | 100 | T | F | if ($string =~ s[^<\s*($REG_NAME)\s*[\s>/]][]s) { } |
| 1892 | 100 | T | F | if $weakrefs |
| 1902 | 100 | T | F | if ($$t{'twig_map_xmlns'}) |
| 1911 | 100 | T | F | if ($$t{'twig_in_pcdata'}) |
| 1913 | 50 | T | F | if $$elt{'parent'} |
| 1919 | 100 | T | F | if $parent |
| 1923 | 100 | T | F | if ($$parent{'twig_to_be_normalized'}) |
| 1925 | 100 | T | F | if $$t{'extra_data'} |
| 1928 | 100 | T | F | if ($$t{'twig_handlers'}) |
| 1932 | 100 | T | F | if ($$t{'twig_tdh'}) { } |
| 1933 | 100 | T | F | if (@handlers) |
| 1934 | 100 | T | F | if (my $all = $$t{'twig_handlers'}{'handlers'}{$ALL}) |
| 1942 | 100 | T | F | unless &$handler($t, $elt) |
| 1944 | 100 | T | F | if (my $all = $$t{'twig_handlers'}{'handlers'}{$ALL}) |
| 1950 | 100 | T | F | if ($$t{'twig_root_depth'} and $p->depth == $$t{'twig_root_depth'}) |
| 1951 | 100 | T | F | if ($$t{'twig_default_print'}) { } |
| 1954 | 100 | T | F | if ($$t{'twig_keep_encoding'}) { } |
| 1963 | 100 | T | F | if ($$elt{'att'}{'xml:space'} and $$elt{'att'}{'xml:space'} eq 'preserve') |
| 1972 | 50 | T | F | if (@{$$t{'twig_handlers_to_trigger'};}) |
| 1977 | 50 | T | F | unless &$handler($t, $handled_elt) |
| 2001 | 100 | T | F | if (my $found_path = &$trigger($$t{'_twig_context_stack'})) |
| 2008 | 100 | T | F | if (not @found_handlers and defined $$handlers{'handlers'}{$DEFAULT}) |
| 2011 | 100 | T | F | if (@found_handlers and $$t{'twig_do_not_chain_handlers'}) |
| 2025 | 100 | T | F | if (not $uri and not $name =~ /^xml/) |
| 2026 | 100 | T | F | if ($uri) { } |
| 2027 | 100 | T | F | if (my $mapped_prefix = $$t{'twig_map_xmlns'}{$uri}) { } |
| 2031 | 100 | T | F | if ($prefix eq '#default') |
| 2032 | 100 | T | F | $prefix ? : |
| 2046 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2047 | 100 | T | F | if (not $$t{'twig_in_cdata'}) { } |
| 2052 | 100 | T | F | if (length $string < 1024) { } |
| 2062 | 100 | T | F | if ($$t{'twig_input_filter'}) |
| 2065 | 100 | T | F | if ($$t{'twig_char_handler'}) |
| 2070 | 100 | T | F | if ($$t{'twig_in_cdata'}) { } |
| 100 | T | F | elsif ($$t{'twig_in_pcdata'}) { } |
| 2076 | 100 | T | F | if ($$t{'extra_data'}) |
| 2084 | 100 | T | F | if ($string =~ /\A\s*\Z/s) { } |
| 2085 | 100 | T | F | if ($$t{'extra_data'}) { } |
| 2100 | 100 | T | F | if ($$t{'extra_data'}) |
| 2119 | 100 | T | F | if ($$t{'twig_in_pcdata'}) { } |
| 2130 | 100 | T | F | if ($t->_space_policy($XML::Twig::index2gi[$$twig_current{'gi'}]) and $$t{'twig_stored_spaces'}) |
| 2136 | 100 | T | F | if (my $prev_sibling = $$twig_current{'last_child'}) { } |
| 2149 | 100 | T | F | if ($$t{'extra_data'}) |
| 2168 | 100 | T | F | if ($$t{'twig_handlers'}) |
| 2172 | 100 | T | F | unless &$handler($t, $elt) |
| 2189 | 50 | T | F | unless &$handler($t, $pi) |
| 100 | T | F | if ($handler) |
| 2194 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'pi_handlers'}{$target}) |
| 2196 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'pi_handlers'}{''}) |
| 2198 | 100 | T | F | defined $data && $data ne '' ? : |
| 2203 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'handlers'}{'#COMMENT'}) |
| 2209 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'handlers'}{'#COMMENT'}) |
| 2211 | 100 | T | F | if (not defined $comment or $comment eq '') |
| 2224 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2238 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2252 | 100 | T | F | if ($$t{'twig_input_filter'}) |
| 2256 | 100 | T | F | if ($keep) { } |
| 100 | T | F | elsif ($process) { } |
| 2258 | 100 | T | F | if ($$t{'twig_stored_spaces'}) |
| 2273 | 100 | T | F | if ($$t{'extra_data'}) |
| 2278 | 100 | T | F | if (not $t->root) { } |
| 100 | T | F | elsif ($$t{'twig_in_pcdata'}) { } |
| 100 | T | F | elsif ($twig_current) { } |
| 2288 | 100 | T | F | if ($t->_space_policy($XML::Twig::index2gi[$$twig_current{'gi'}]) and $$t{'twig_stored_spaces'}) |
| 2297 | 100 | T | F | if ($twig_current) |
| 2323 | 100 | T | F | $p->isa('XML::Twig') ? : |
| 2326 | 100 | T | F | if ($$t{'extra_data'}) |
| 2331 | 100 | T | F | if $$t{'twig_tdh'} |
| 2333 | 100 | T | F | if $$t{'twig_original_selected_fh'} |
| 2335 | 100 | T | F | if (exists $$t{'twig_autoflush_data'}) |
| 2337 | 100 | T | F | if $$t{'twig_autoflush_data'}{'fh'} |
| 2338 | 100 | T | F | if $$t{'twig_autoflush_data'}{'args'} |
| 2360 | 100 | T | F | if ($prev_sibling) { } |
| 2376 | 100 | T | F | if $$t{'twig_discard_spaces'} |
| 2377 | 100 | T | F | if $$t{'twig_keep_spaces'} |
| 2378 | 100 | T | F | if $$t{'twig_keep_spaces_in'} and $$t{'twig_keep_spaces_in'}{$gi} |
| 2380 | 100 | T | F | if $$t{'twig_discard_spaces_in'} and $$t{'twig_discard_spaces_in'}{$gi} |
| 2396 | 100 | T | F | if ($sysid) |
| 2397 | 100 | T | F | if ($ndata) { } |
| 2398 | 100 | T | F | if (not -f _based_filename($sysid, $p->base)) |
| 2401 | 100 | T | F | if ($$t{'twig_expand_external_ents'}) |
| 2403 | 100 | T | F | if (not defined $val) |
| 2404 | 100 | T | F | if ($$t{'twig_extern_ent_nofail'}) { } |
| 2414 | 100 | T | F | if ($missing_entity) |
| 2417 | 50 | T | F | if ($entity_list) |
| 2419 | 50 | T | F | if ($parser_version > 2.27) |
| 2423 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2424 | 50 | T | F | if (defined $$ent{'val'} and not $ent_decl =~ /["']/) |
| 2426 | 0 | T | F | $val =~ /"/ ? : |
| 2431 | 50 | T | F | unless $$t{'twig_doctype'}{'internal'} =~ /<!ENTITY\s+$name\s+/ |
| 2443 | 50 | T | F | if ($$t{'twig_no_expand'}) |
| 2444 | 0 | T | F | $$t{'twig_keep_encoding'} ? : |
| 2449 | 100 | T | F | if (not defined $ent_content) |
| 2454 | 50 | T | F | if ($$t{'twig_extern_ent_nofail'}) { } |
| 2489 | 50 | T | F | if ($parser_version > 2.27) { } |
| 2505 | 100 | T | F | if ($$t{'twig_read_external_dtd'} and $sysid) |
| 2514 | 50 | T | F | if $t_dtd->entity_list |
| 2530 | 50 | T | F | if ($parser_version > 2.27 and $$t{'twig_doctype'}{'internal'} =~ /(^|>)\s*$/) |
| 2531 | 50 | T | F | $XML::Twig::Elt::keep_encoding ? : |
| 2532 | 50 | T | F | unless ($text) |
| 2551 | 50 | T | F | if ($parser_version > 2.27 and $$t{'twig_doctype'}{'internal'} =~ /(^|>)\s*$/) |
| 2552 | 50 | T | F | $XML::Twig::Elt::keep_encoding ? : |
| 2553 | 50 | T | F | unless ($text) |
| 2557 | 100 | T | F | if $fixed |
| 2558 | 50 | T | F | if defined $default |
| 2560 | 100 | T | F | if ($$t{'twig_dtd'}{'att'}{$gi}) { } |
| 2573 | 50 | T | F | if defined $default |
| 2586 | 100 | T | F | unless $string =~ /^&([^;]*);$/ |
| 2588 | 50 | T | F | if ($p->original_string =~ /^</ and $p->original_string =~ />$/) { } |
| 2590 | 0 | T | F | if $$t{'twig_do_not_escape_amp_in_atts'} |
| 2594 | 100 | T | F | if ($$t{'twig_keep_encoding'}) { } |
| 2617 | 100 | T | F | if ($$t{'twig_in_pcdata'}) { } |
| 2634 | 100 | T | F | if (my $prev_sibling = $$twig_current{'last_child'}) { } |
| 2639 | 50 | T | F | if $twig_current |
| 2640 | 50 | T | F | if $twig_current |
| 2656 | 100 | T | F | unless $$t{'twig_xmldecl'} or $$t{'output_encoding'} |
| 2659 | 100 | T | F | if ($decl) { } |
| 2666 | 100 | T | F | if ($$t{'output_encoding'}) { } |
| 100 | T | F | elsif ($$decl{'encoding'}) { } |
| 2675 | 100 | T | F | if (defined $$decl{'standalone'}) |
| 2677 | 100 | T | F | $$decl{'standalone'} ? : |
| 2689 | 100 | T | F | $output_filter ? : |
| 2694 | 100 | T | F | unless defined $$t{'twig_doctype'} |
| 2696 | 50 | T | F | if defined $name |
| 2697 | 100 | T | F | if defined $system |
| 2698 | 100 | T | F | if defined $public |
| 2699 | 100 | T | F | if defined $internal |
| 2704 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2710 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2716 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2722 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2736 | 100 | T | F | if $elt |
| 2763 | 50 | T | F | _is_fh($_[0]) ? : |
| 2770 | 100 | T | F | if ($$t{'no_prolog'}) |
| 2772 | 100 | T | F | defined $$t{'no_dtd_output'} ? : |
| 50 | T | F | $$t{'no_prolog'} ? : |
| 2785 | 100 | T | F | if ($doctype) |
| 2786 | 50 | T | F | if $$doctype{'name'} |
| 2787 | 100 | T | F | if $$doctype{'pub'} |
| 2788 | 100 | T | F | if $$doctype{'sysid'} and not $$doctype{'pub'} |
| 2789 | 100 | T | F | if $$doctype{'sysid'} |
| 2792 | 100 | T | F | if ($update_dtd) { } |
| 100 | T | F | elsif ($doctype) { } |
| 2793 | 100 | T | F | if ($doctype) { } |
| 50 | T | F | elsif (not $$t{'twig_dtd'} and keys %{$t->entity_list;}) { } |
| 2796 | 100 | T | F | if ($internal) |
| 2801 | 50 | T | F | if $t->entity_list |
| 2802 | 100 | T | F | if ($internal) |
| 2812 | 100 | T | F | if (my $internal = $$doctype{'internal'}) |
| 2824 | 100 | T | F | if ($doctype_text) { } |
| 2831 | 50 | T | F | $output_filter ? : |
| 2856 | 100 | T | F | unless open TWIG_PRINT_TO_FILE, ">$filename" |
| 2857 | 50 | T | F | if ($] > 5.006 and not $$t{'twig_keep_encoding'}) |
| 2865 | 100 | T | F | _is_fh($_[0]) ? : |
| 2868 | 100 | T | F | defined $fh ? : |
| 2869 | 100 | T | F | defined $args{'PrettyPrint'} ? : |
| 2870 | 100 | T | F | defined $args{'EmptyTags'} ? : |
| 2879 | 100 | T | F | if defined $old_pretty |
| 2880 | 100 | T | F | if defined $old_empty_tag |
| 2881 | 100 | T | F | if ($fh) |
| 2890 | 50 | T | F | if $$t{'twig_tdh'} |
| 2892 | 100 | T | F | if $$t{'twig_completely_flushed'} |
| 2894 | 100 | T | F | _is_fh($_[0]) ? : |
| 2895 | 100 | T | F | defined $fh ? : |
| 2896 | 100 | T | F | ref $_[0] ? : |
| 2900 | 100 | T | F | if (defined $args{'PrettyPrint'}) |
| 2906 | 100 | T | F | if ($args{'EmptyTags'}) |
| 2915 | 100 | T | F | if ($up_to) { } |
| 100 | T | F | elsif ($$t{'twig_current'}) { } |
| 2927 | 100 | T | F | unless ($elt->_flushed) |
| 2929 | 100 | T | F | if ($$t{'twig_autoflush'}) |
| 2931 | 100 | T | F | if $fh |
| 2932 | 100 | T | F | if @_ |
| 2940 | 100 | T | F | if ($last_elt and $last_elt->in($elt)) { } |
| 2942 | 100 | T | F | unless ($elt->_flushed) |
| 2954 | 100 | T | F | if $last_elt and $elt == $last_elt |
| 2959 | 100 | T | F | if ($flush_trailing_data) |
| 2964 | 100 | T | F | if defined $old_select |
| 2965 | 100 | T | F | if defined $old_pretty |
| 2966 | 100 | T | F | if defined $old_empty_tag_style |
| 2977 | 100 | T | F | if (_is_fh($_[0])) { } |
| 2994 | 100 | T | F | if (defined $args{'PrettyPrint'}) |
| 3000 | 100 | T | F | if (defined $args{'EmptyTags'}) |
| 3012 | 100 | T | F | if defined $old_pretty |
| 3013 | 100 | T | F | if defined $old_empty_tag_style |
| 3027 | 50 | T | F | if $$t{'twig_tdh'} |
| 3031 | 100 | T | F | if ($up_to) { } |
| 100 | T | F | elsif ($$t{'twig_current'}) { } |
| 3042 | 100 | T | F | if ($last_elt and $last_elt->in($elt)) { } |
| 3050 | 100 | T | F | if $last_elt and $elt == $last_elt |
| 3074 | 50 | T | F | if $] < 5.006 |
| 3077 | 100 | T | F | ref $twig_or_class ? : |
| 3082 | 100 | T | F | if $elt_class->can($att) and not $accessor{$att} |
| 3085 | 100 | T | F | if (not $accessor{$att}) |
| 3089 | 100 | T | F | if (@_) |
| 3103 | 100 | T | F | if $root->passes($cond) |
| 3115 | 100 | T | F | if $t->root->matches($cond) |
| 3121 | 100 | T | F | if (isa($_[0], 'ARRAY')) { } |
| 3134 | 100 | T | F | unless @unique and $unique[-1] == $current |
| 3140 | 100 | T | F | if (isa($_[0], 'ARRAY')) { } |
| 3157 | 100 | T | F | defined $index ? : |
| 3165 | 100 | T | F | if (not $cond && !$root->passes($cond)) { } |
| 3184 | 100 | T | F | if ($root->passes($cond)) { } |
| 3213 | 100 | T | F | unless $index = $XML::Twig::gi2index{$old_gi} |
| 3225 | 50 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 3232 | 100 | T | F | if ($$dtd{'att'}{$gi}) |
| 3237 | 100 | T | F | if ($$attlist{$att}{'fixed'}) { } |
| 3246 | 50 | T | F | if $t->entity_list |
| 3254 | 100 | T | F | _is_fh($_[0]) ? : |
| 3255 | 100 | T | F | if ($fh) { } |
| 3272 | 100 | T | F | unless $$t{'twig_parsing'} |
| 3280 | 50 | T | F | if ($$t{'twig_map_xmlns'}) { } |
| 3295 | 100 | T | F | if (not defined $fh) { } |
| 50 | T | F | elsif (defined $fh) { } |
| 3299 | 50 | T | F | if $old_fh |
| 3303 | 100 | T | F | if ($$t{'twig_keep_encoding'}) { } |
| 3321 | 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}) { } |
| 3381 | 50 | T | F | if ($$t{'twig_root'} and isa($$t{'twig_root'}, 'XML::Twig')) |
| 3386 | 100 | T | F | if $$t{'twig_root'} |
| 3406 | 50 | T | F | if ($string eq '<!DOCTYPE') { } |
| 3422 | 50 | T | F | if ($expat_1_95_2 and $p->recognized_string eq '[' and not $$p{'twig'}{'expat_1_95_2_seen_bracket'}) { } |
| 3446 | 50 | T | F | if ($string eq '<!DOCTYPE') { } |
| 3469 | 50 | T | F | if ($name) |
| 3473 | 50 | T | F | if $name |
| 3474 | 50 | T | F | if $pubid |
| 3475 | 100 | T | F | if $sysid and not $pubid |
| 3476 | 100 | T | F | if $sysid |
| 3477 | 100 | T | F | if $internal and not $expat_1_95_2 |
| 3478 | 100 | T | F | unless $internal or $expat_1_95_2 |
| 3489 | 50 | T | F | if ($name) |
| 3493 | 50 | T | F | if $name |
| 3494 | 50 | T | F | if $pubid |
| 3495 | 100 | T | F | if $sysid and not $pubid |
| 3496 | 100 | T | F | if $sysid |
| 3497 | 100 | T | F | if $internal |
| 3498 | 100 | T | F | unless $internal or $expat_1_95_2 |
| 3528 | 100 | T | F | $$t{'twig_keep_encoding'} ? : |
| 100 | T | F | $$t{'twig_default_print'} ? : |
| 3533 | 100 | T | F | unless ($p->depth == 0) |
| 3534 | 100 | T | F | if ($$t{'twig_map_xmlns'}) |
| 3539 | 100 | T | F | if (_handler($t, $$t{'twig_roots'}, $gi, \%att)) { } |
| 100 | T | F | elsif ($p->depth == 0) { } |
| 100 | T | F | elsif ($$t{'twig_starttag_handlers'}) { } |
| 3547 | 100 | T | F | if $tag |
| 3559 | 50 | T | F | unless $last_handler_res |
| 3562 | 100 | T | F | if $tag and !@handlers || $last_handler_res |
| 3566 | 100 | T | F | if $tag |
| 3577 | 100 | T | F | $$t{'twig_keep_encoding'} ? : |
| 100 | T | F | $$t{'twig_default_print'} ? : |
| 3582 | 100 | T | F | if ($$t{'twig_endtag_handlers'}) |
| 3588 | 50 | T | F | if (not $last_handler_res) |
| 3595 | 100 | T | F | if defined $tag |
| 3597 | 100 | T | F | if ($p->depth == 0) |
| 3607 | 50 | T | F | $$t{'twig_keep_encoding'} ? : |
| 100 | T | F | $$t{'twig_default_print'} ? : |
| 3612 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'pi_handlers'}{$target} || $$t{'twig_handlers'}{'pi_handlers'}{''}) { } |
| 3624 | 50 | T | F | if defined $pi |
| 3637 | 50 | T | F | if ($action eq 'print') |
| 3651 | 50 | T | F | if ($action eq 'print') |
| 3658 | 100 | T | F | if (not $$t{'twig_ignore_level'}) |
| 3672 | 100 | T | F | if ($$t{'twig_endtag_handlers'}) |
| 3690 | 100 | T | F | if (not $elt && isa($elt, 'XML::Twig::Elt')) |
| 3696 | 100 | T | F | unless ($elt == $current or $$current{'last_child'} and $elt == $$current{'last_child'} or $current->in($elt)) |
| 3699 | 100 | T | F | $current == $elt ? : |
| 3708 | 50 | T | F | if ($action eq 'print') |
| 3723 | 100 | T | F | if ($$elt_in_stack{'_elt'} and $elt == $$elt_in_stack{'_elt'}) |
| 3734 | 100 | T | F | if ($output_fh and not $$t{'twig_output_fh_selected'}) |
| 3746 | 100 | T | F | unless $$t{'twig_output_fh'} |
| 3755 | 50 | T | F | if $_[0]{'twig_xmldecl'} |
| 3760 | 50 | T | F | unless $t->xml_version |
| 3770 | 100 | T | F | if $encoding |
| 3775 | 50 | T | F | if $_[0]{'twig_xmldecl'} |
| 3784 | 50 | T | F | if $_[0]{'twig_xmldecl'} |
| 3789 | 50 | T | F | unless $t->xml_version |
| 3797 | 100 | T | F | if defined $_[0]{'twig_parser'} |
| 3803 | 100 | T | F | if defined $_[0]{'twig_parser'} |
| 3812 | 100 | T | F | if (my $start_document = $handler->can('start_document')) |
| 3817 | 50 | T | F | if $t->root |
| 3818 | 50 | T | F | if (my $end_document = $handler->can('end_document')) |
| 3840 | 100 | T | F | if ($$t{'twig_current'}) { } |
| 3846 | 100 | T | F | unless ($elt->_flushed) |
| 3848 | 50 | T | F | if (my $start_document = $handler->can('start_document')) |
| 3856 | 100 | T | F | if ($last_elt and $last_elt->in($elt)) { } |
| 3858 | 100 | T | F | unless ($elt->_flushed) |
| 3860 | 50 | T | F | if (my $start_element = $handler->can('start_element')) |
| 3861 | 50 | T | F | if (my $tag_data = &$start_tag_data($elt)) |
| 3873 | 100 | T | F | if $last_elt and $elt == $last_elt |
| 3877 | 100 | T | F | if (not $$t{'twig_parsing'}) |
| 3878 | 50 | T | F | if (my $end_document = $handler->can('end_document')) |
| 3897 | 100 | T | F | if (my $xml_decl = $handler->can('xml_decl')) |
| 3904 | 100 | T | F | unless $doctype |
| 3910 | 50 | T | F | if (my $start_dtd = $handler->can('start_dtd')) |
| 3915 | 50 | T | F | if (my $end_dtd = $handler->can('end_dtd')) |
| 3923 | 50 | T | F | if (_use('Encode')) { } |
| 0 | T | F | elsif (_use('Text::Iconv')) { } |
| 0 | T | F | elsif (_use('Unicode::Map8') and _use('Unicode::String')) { } |
| 3937 | 50 | T | F | if (_use('Encode')) { } |
| 0 | T | F | elsif (_use('Text::Iconv')) { } |
| 0 | T | F | elsif (_use('Unicode::Map8') and _use('Unicode::String')) { } |
| 3961 | 50 | T | F | unless _use('HTML::Entities') |
| 3967 | 50 | T | F | if ($] < 5.008) { } |
| 3979 | 50 | T | F | if ($] < 5.008) { } |
| 3996 | 50 | T | F | if ($len == 2) { } |
| 0 | T | F | elsif ($len == 3) { } |
| 0 | T | F | elsif ($len == 4) { } |
| 0 | T | F | elsif ($len == 1) { } |
| 4014 | 100 | T | F | $hex ? : |
| 4020 | 50 | T | F | $_[1] ? : |
| 4021 | 50 | T | F | unless _use('Unicode::Map8') |
| 4022 | 50 | T | F | unless _use('Unicode::String') |
| 4024 | 50 | T | F | unless $cnv = 'Unicode::Map8'->new($enc) |
| 4032 | 50 | T | F | unless ($sub) |
| 4037 | 50 | T | F | $_[1] ? : |
| 4038 | 50 | T | F | unless _use('Text::Iconv') |
| 4039 | 50 | T | F | unless $cnv = 'Text::Iconv'->new('utf8', $enc) |
| 50 | T | F | unless $cnv = 'Text::Iconv'->new('utf8', $enc) |
| 4047 | 100 | T | F | unless ($sub) |
| 4048 | 50 | T | F | if ($@ =~ /^Unsupported conversion: Invalid argument/) { } |
| 4058 | 50 | T | F | $_[1] ? : |
| 4060 | 50 | T | F | unless $sub |
| 4068 | 100 | T | F | wantarray ? : |
| 4078 | 50 | T | F | if $t->root |
| 4110 | 100 | T | F | unless $ents_to_add and %$ents_to_add |
| 4131 | 100 | T | F | if (isa(ref $_[0], 'XML::Twig::Entity')) { } |
| 4147 | 50 | T | F | defined $fh ? : |
| 4152 | 50 | T | F | if isa($ent, 'XML::Twig::Entity') |
| 4154 | 50 | T | F | if defined $old_select |
| 4189 | 100 | T | F | if defined $val |
| 4190 | 100 | T | F | if defined $sysid |
| 4191 | 100 | T | F | if defined $pubid |
| 4192 | 100 | T | F | if defined $ndata |
| 4193 | 100 | T | F | if defined $param |
| 4202 | 100 | T | F | defined $_[0]{'sysid'} ? : |
| 4203 | 50 | T | F | defined $_[0]{'pubid'} ? : |
| 4204 | 100 | T | F | defined $_[0]{'ndata'} ? : |
| 4205 | 100 | T | F | defined $_[0]{'param'} ? : |
| 4211 | 50 | T | F | if (not defined $text) |
| 4212 | 50 | T | F | if ($fh) { } |
| 4219 | 50 | T | F | if (not defined $text) |
| 4225 | 100 | T | F | if not $$ent{'name'} |
| 4229 | 100 | T | F | if $$ent{'param'} |
| 4232 | 100 | T | F | if (defined $$ent{'val'} and not defined $$ent{'sysid'} and not defined $$ent{'pubid'}) { } |
| 50 | T | F | elsif (defined $$ent{'sysid'}) { } |
| 4236 | 100 | T | F | if $$ent{'pubid'} |
| 4237 | 100 | T | F | unless $$ent{'pubid'} |
| 4239 | 100 | T | F | if $$ent{'ndata'} |
| 4245 | 50 | T | F | $_[0] =~ /"/ ? : |
| 4345 | 50 | T | F | if (eval 'require Scalar::Util' and defined &Scalar::Util::weaken) { } |
| 0 | T | F | elsif (eval 'require WeakRef') { } |
| 4364 | 100 | T | F | unless @_ |
| 4371 | 100 | T | F | ref $_[0] eq 'HASH' ? : |
| 4373 | 100 | T | F | if ($atts and defined $$atts{'#CDATA'}) |
| 4380 | 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') { } |
| 4381 | 100 | T | F | if (grep {ref $_;} @_) |
| 4387 | 100 | T | F | if (grep {ref $_;} @_) |
| 4391 | 100 | T | F | if (grep {ref $_;} @_) |
| 4395 | 100 | T | F | if (grep {ref $_;} @_) |
| 4400 | 100 | T | F | if (@_) { } |
| 4406 | 100 | T | F | if ($atts) |
| 4408 | 100 | T | F | if (defined $$atts{'#ASIS'}) |
| 4409 | 100 | T | F | if (defined $$atts{'#EMPTY'}) |
| 4410 | 100 | T | F | if keys %$atts |
| 4411 | 100 | T | F | if $$atts{$ID} |
| 4424 | 100 | T | F | if (ref $class) |
| 4433 | 100 | T | F | if ($$t{'twig_id_list'}) |
| 4450 | 100 | T | F | if ($elt->tag eq 'head') { } |
| 100 | T | F | elsif ($elt->tag ne 'html') { } |
| 4467 | 100 | T | F | unless (defined $XML::Twig::gi2index{$gi}) |
| 4491 | 100 | T | F | if ($qname =~ /^([^:]*):/) { } |
| 4512 | 100 | T | F | defined $_[0] ? : |
| 4513 | 100 | T | F | $prefix ? : |
| 4523 | 0 | T | F | if (my $prefix = $elt->ns_prefix) |
| 4525 | 0 | T | F | if (not $missing_prefix{$prefix} and not $elt->namespace) |
| 4530 | 0 | T | F | if (not $root->_inherits_declared_prefix($prefix)) |
| 4541 | 0 | T | F | if ($elt->_declares_prefix($prefix)) { } |
| 4551 | 0 | T | F | if $att eq "xmlns:$prefix" |
| 4557 | 0 | T | F | $prefix ? : |
| 4565 | 0 | T | F | if ($elt->_ns_prefix and $elt->namespace eq $uri) |
| 4580 | 100 | T | F | if $gi_nb >= $XML::Twig::SPECIAL_GI |
| 4586 | 100 | T | F | if $_[0]{'gi'} >= $XML::Twig::SPECIAL_GI |
| 4626 | 50 | T | F | defined $_[1] ? : |
| 4629 | 50 | T | F | if $_[0]{'empty'} or 0 |
| 4637 | 100 | T | F | if (exists $$descendant{'cdata'}) |
| 4649 | 50 | T | F | if $$descendant{'asis'} |
| 4660 | 100 | T | F | unless $curr_elt |
| 4667 | 100 | T | F | if ($elt->_extra_data_in_pcdata) |
| 4686 | 100 | T | F | if ($$elt{'extra_data_before_end_tag'}) { } |
| 4702 | 100 | T | F | if ((my $offset = index($modified, $initial)) != -1) { } |
| 100 | T | F | elsif (($offset = index($initial, $modified)) != -1) { } |
| 4710 | 100 | T | F | if $$_{'offset'} >= 0 |
| 4713 | 100 | T | F | unless _match_extra_data_words($elt, $initial, $modified) or _match_extra_data_chars($elt, $initial, $modified) |
| 4740 | 100 | T | F | if (@$initial <= @$modified) { } |
| 4743 | 100 | T | F | if ($ok) |
| 4758 | 100 | T | F | if ($ok) |
| 4772 | 50 | T | F | if ($$cpi{'offset'} < $prev_pos) |
| 4789 | 100 | T | F | if ($s_word ne $l_word) |
| 4794 | 100 | T | F | if (not @$long and $s_word ne $l_word) |
| 4840 | 50 | T | F | unless ($$elt{'gi'} == $XML::Twig::gi2index{'#PI'}) |
| 4855 | 50 | T | F | if (defined $data and $data ne '') |
| 4862 | 100 | T | F | unless ($$elt{'gi'} == $XML::Twig::gi2index{'#COMMENT'}) |
| 4879 | 100 | T | F | unless ($$elt{'gi'} == $XML::Twig::gi2index{'#CDATA'}) |
| 4902 | 100 | T | F | unless $elt->is_elt |
| 4904 | 100 | T | F | if $child->is_elt |
| 4912 | 100 | T | F | unless $child->is($exp) |
| 4918 | 100 | T | F | unless my $child = $$elt{'first_child'} |
| 4919 | 100 | T | F | unless $child->passes($exp) |
| 4920 | 100 | T | F | if $$child{'next_sibling'} |
| 4973 | 100 | T | F | $cond =~ s/^\s*!// ? : |
| 4975 | 100 | T | F | if (ref $cond eq 'CODE') |
| 4977 | 100 | T | F | if (ref $cond eq 'Regexp') { } |
| 4981 | 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*$/) { } |
| 4987 | 100 | T | F | if ($1 ne '*') { } |
| 4991 | 100 | T | F | if ($gi) { } |
| 5013 | 100 | T | F | $neg ? : |
| 5014 | 100 | T | F | if ($gi and $gi ne '*') { } |
| 5026 | 100 | T | F | $tag && $tag ne '*' ? : |
| 5040 | 100 | T | F | if ($@) |
| 5054 | 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) { } |
| 5063 | 100 | T | F | $and_or eq 'and' ? : |
| 5090 | 100 | T | F | if ($op eq '=') { } |
| 100 | T | F | elsif ($op eq '!=') { } |
| 5097 | 100 | T | F | unless $cond |
| 5105 | 100 | T | F | if $XML::Twig::weakrefs |
| 5144 | 100 | T | F | if ($child) { } |
| 5147 | 100 | T | F | if ($cond =~ /^\s*($REG_NAME)/) { } |
| 5160 | 100 | T | F | if $XML::Twig::weakrefs |
| 5176 | 100 | T | F | if $XML::Twig::weakrefs |
| 5208 | 100 | T | F | unless $new_class |
| 5210 | 50 | T | F | $class ? : |
| 5226 | 100 | T | F | unless $elt->tag eq 'span' and $elt->class |
| 5232 | 100 | T | F | unless $elt->tag eq 'div' and $elt->class |
| 5239 | 50 | T | F | unless defined $elt_class |
| 5240 | 100 | T | F | $elt->class =~ /(?:^|\s)\Q$class\E(?:\s|$)/ ? : |
| 5249 | 100 | T | F | if keep_atts_order() |
| 5250 | 100 | T | F | isa($_[0] || '', 'HASH') ? : |
| 5252 | 100 | T | F | if (exists $atts{$ID}) |
| 5264 | 100 | T | F | unless ($$elt{'att'}) |
| 5266 | 100 | T | F | if keep_atts_order() |
| 5272 | 100 | T | F | if ($att eq $ID) |
| 5294 | 100 | T | F | unless defined $value |
| 5303 | 0 | T | F | if ($att ne lc $att) |
| 5314 | 100 | T | F | if exists $$elt{'att'}{$ID} |
| 5325 | 100 | T | F | if $XML::Twig::weakrefs |
| 5341 | 100 | T | F | if (defined $$elt{'att'}{$ID}) { } |
| 5344 | 50 | T | F | $_[0] && isa($_[0], 'CODE') ? : |
| 5353 | 50 | T | F | unless (exists $$elt{'att'}) |
| 5354 | 100 | T | F | unless (exists $$elt{'att'}{$ID}) |
| 5360 | 100 | T | F | unless ($t) |
| 5361 | 50 | T | F | if (exists $$t{'twig_id_list'}{$id}) |
| 5407 | 100 | T | F | if $child->passes($cond) |
| 5416 | 100 | T | F | wantarray ? : |
| 5423 | 100 | T | F | wantarray ? : |
| 5430 | 100 | T | F | unless $child->passes($cond) |
| 5440 | 100 | T | F | if $elt->passes($cond) |
| 5449 | 100 | T | F | if $elt->passes($cond) |
| 5458 | 100 | T | F | $include_self ? : |
| 5470 | 100 | T | F | if (defined $$elt{'att'}{$att} and !%tags || $tags{$XML::Twig::index2gi[$$elt{'gi'}]}) |
| 5484 | 100 | T | F | if (defined $$elt{'att'}{$att} and !%tags || $tags{$XML::Twig::index2gi[$$elt{'gi'}]}) |
| 5496 | 100 | T | F | if $elt->namespace('') |
| 5518 | 100 | T | F | if defined $_[0] and isa($_[0], 'XML::Twig::Elt') |
| 5524 | 100 | T | F | if ($cond) |
| 5525 | 100 | T | F | unless (defined($ind = $XML::Twig::gi2index{$cond})) |
| 5530 | 100 | T | F | if ($next_elt = $$elt{'first_child'}) { } |
| 100 | T | F | elsif ($next_elt = $$elt{'next_sibling'}) { } |
| 5537 | 100 | T | F | if $subtree_root and $elt == $subtree_root |
| 5545 | 100 | T | F | if $subtree_root and $elt == $subtree_root |
| 5550 | 100 | T | F | if $subtree_root and $subtree_root == $next_elt |
| 5553 | 100 | T | F | if $subtree_root and $subtree_root == $next_elt |
| 5574 | 100 | T | F | if (not $cond or $last_descendant->matches($cond)) { } |
| 5595 | 100 | T | F | if (defined $_[0] and isa($_[0], 'XML::Twig::Elt')) |
| 5597 | 100 | T | F | if $elt == $subtree_root |
| 5603 | 100 | T | F | if $elt == $subtree_root |
| 5604 | 100 | T | F | if ($prev_elt = $$elt{'prev_sibling'}) { } |
| 5620 | 100 | T | F | $elt ? : |
| 5626 | 100 | T | F | if not $cond or $elt->matches($cond) |
| 5632 | 100 | T | F | if (not $cond) |
| 5634 | 100 | T | F | if ($following) { } |
| 5648 | 100 | T | F | $elt ? : |
| 5654 | 100 | T | F | if not $cond or $elt->matches($cond) |
| 5660 | 100 | T | F | if (not $cond) |
| 5662 | 100 | T | F | if ($preceding) { } |
| 5675 | 100 | T | F | $cond ? : |
| 5689 | 100 | T | F | if (isa($ancestor, 'XML::Twig::Elt')) { } |
| 5691 | 100 | T | F | if $elt == $ancestor |
| 5695 | 100 | T | F | if $elt->matches($ancestor) |
| 5702 | 100 | T | F | unless my $dest = $elt->first_child(@_) |
| 5713 | 100 | T | F | unless my $dest = $elt->first_child(@_) |
| 5719 | 100 | T | F | unless my $dest = $$elt{'first_child'} |
| 5725 | 100 | T | F | unless my $dest = $elt->last_child(@_) |
| 5731 | 100 | T | F | unless my $dest = $elt->last_child(@_) |
| 5737 | 100 | T | F | unless my $dest = $$elt{'last_child'} |
| 5743 | 100 | T | F | unless my $dest = $elt->child(@_) |
| 5749 | 100 | T | F | unless my $dest = $elt->child(@_) |
| 5756 | 100 | T | F | unless my $dest = $elt->child($nb) |
| 5762 | 100 | T | F | unless my $dest = $elt->_prev_sibling(@_) |
| 5768 | 100 | T | F | unless my $dest = $elt->_prev_sibling(@_) |
| 5774 | 100 | T | F | unless my $dest = $$elt{'prev_sibling'} |
| 5780 | 100 | T | F | unless my $dest = $elt->next_sibling(@_) |
| 5786 | 100 | T | F | unless my $dest = $elt->next_sibling(@_) |
| 5792 | 100 | T | F | unless my $dest = $$elt{'next_sibling'} |
| 5798 | 100 | T | F | unless my $dest = $elt->prev_elt(@_) |
|