| line | % | coverage | branch |
|---|
| 113 | 50 | T | F | unless $parser_version >= $needVersion |
| 115 | 50 | T | F | if ($] >= 5.008) |
| 124 | 50 | T | F | if (eval 'require Scalar::Util' and defined \&Scalar::Util::weaken) { } |
| 0 | T | F | elsif (eval 'require WeakRef') { } |
| 382 | 100 | T | F | unless ($args{'MoreOptions'}) |
| 384 | 100 | T | F | unless $valid_option{$arg} |
| 396 | 100 | T | F | if (exists $args{'TwigHandlers'}) |
| 403 | 100 | T | F | if (exists $args{'StartTagHandlers'}) |
| 408 | 100 | T | F | if (exists $args{'DoNotChainHandlers'}) |
| 411 | 100 | T | F | if (exists $args{'IgnoreElts'}) |
| 413 | 50 | T | F | if (isa($args{'IgnoreElts'}, 'ARRAY')) |
| 418 | 100 | T | F | if (exists $args{'Index'}) |
| 421 | 100 | T | F | if (ref $index eq 'ARRAY') |
| 430 | 100 | T | F | if (exists $args{'EltClass'}) |
| 432 | 100 | T | F | if (exists $args{'MapXmlns'}) |
| 438 | 100 | T | F | if (exists $args{'KeepOriginalPrefix'}) |
| 446 | 100 | T | F | if ($args{'ExpandExternalEnts'}) { } |
| 450 | 100 | T | F | if ($args{'ExpandExternalEnts'} == -1) |
| 460 | 50 | T | F | if (not $args{'NoLWP'} and not _use('URI') and not _use('URI::File') and not _use('LWP')) { } |
| 465 | 100 | T | F | if ($args{'DoNotEscapeAmpInAtts'}) { } |
| 477 | 100 | T | F | if ($args{'TwigRoots'}) |
| 482 | 100 | T | F | if ($args{'EndTagHandlers'}) |
| 483 | 100 | T | F | unless ($$self{'twig_roots'} or $args{'ForceEndTagHandlersUsage'}) |
| 496 | 100 | T | F | if ($args{'TwigPrintOutsideRoots'}) |
| 497 | 100 | T | F | unless $$self{'twig_roots'} |
| 500 | 100 | T | F | if (_is_fh($args{'TwigPrintOutsideRoots'})) |
| 506 | 100 | T | F | if ($args{'KeepSpaces'}) |
| 507 | 100 | T | F | if $args{'DiscardSpaces'} |
| 508 | 100 | T | F | if $args{'KeepSpacesIn'} |
| 512 | 100 | T | F | if ($args{'DiscardSpaces'}) |
| 513 | 100 | T | F | if $args{'KeepSpacesIn'} |
| 517 | 100 | T | F | if ($args{'KeepSpacesIn'}) |
| 518 | 100 | T | F | if $args{'DiscardSpacesIn'} |
| 525 | 100 | T | F | if ($args{'DiscardSpacesIn'}) |
| 533 | 100 | T | F | unless $$self{'twig_keep_spaces'} |
| 536 | 100 | T | F | if ($args{'Comments'} eq 'drop') { } |
| 100 | T | F | elsif ($args{'Comments'} eq 'keep') { } |
| 100 | T | F | elsif ($args{'Comments'} eq 'process') { } |
| 543 | 100 | T | F | if ($args{'Pi'} eq 'drop') { } |
| 100 | T | F | elsif ($args{'Pi'} eq 'keep') { } |
| 100 | T | F | elsif ($args{'Pi'} eq 'process') { } |
| 549 | 100 | T | F | if ($args{'KeepEncoding'}) { } |
| 554 | 100 | T | F | if defined $args{'ParseStartTag'} |
| 559 | 100 | T | F | if $args{'ParseStartTag'} |
| 562 | 100 | T | F | if ($args{'OutputFilter'}) { } |
| 569 | 100 | T | F | if ($args{'RemoveCdata'}) { } |
| 576 | 100 | T | F | if ($args{'OutputTextFilter'}) { } |
| 584 | 100 | T | F | if (exists $args{'KeepAttsOrder'}) { } |
| 586 | 100 | T | F | if (_use('Tie::IxHash')) { } |
| 595 | 100 | T | F | if ($args{'PrettyPrint'}) |
| 596 | 100 | T | F | if ($args{'Quote'}) |
| 597 | 100 | T | F | if ($args{'EmptyTags'}) |
| 599 | 100 | T | F | if (exists $args{'Id'}) |
| 600 | 100 | T | F | if ($args{'NoProlog'}) |
| 601 | 100 | T | F | if ($args{'DoNotOutputDTD'}) |
| 602 | 100 | T | F | if ($args{'LoadDTD'}) |
| 603 | 100 | T | F | if ($args{'CharHandler'}) |
| 605 | 100 | T | F | if ($args{'InputFilter'}) |
| 606 | 100 | T | F | if ($args{'NoExpand'}) |
| 607 | 100 | T | F | if (my $output_encoding = $args{'OutputEncoding'}) |
| 609 | 100 | T | F | if (my $tdh = $args{'TopDownHandlers'}) |
| 612 | 100 | T | F | if ($$self{'twig_roots'}) { } |
| 613 | 100 | T | F | if ($$self{'twig_default_print'}) { } |
| 614 | 100 | T | F | if ($$self{'twig_keep_encoding'}) { } |
| 639 | 100 | T | F | if $weakrefs |
| 648 | 100 | T | F | if (not ref $t or not isa($t, 'XML::Twig')) |
| 653 | 50 | T | F | if ($] >= 5.008 and ${^UNICODE} and ${^UNICODE} & 24 and isa($_[0], 'GLOB') and -p $_[0]) |
| 670 | 100 | T | F | if (not $t) |
| 671 | 100 | T | F | if (isa($returned, 'XML::Twig') and $$returned{'twig_finish_now'}) { } |
| 694 | 50 | T | F | unless _use('File::Temp') |
| 707 | 50 | T | F | unless chmod $mode, $tmpfile |
| 709 | 100 | T | F | if ($suffix) |
| 711 | 100 | T | F | if ($suffix =~ /\*/) { } |
| 714 | 50 | T | F | unless rename $file, $backup |
| 716 | 50 | T | F | unless rename $tmpfile, $file |
| 735 | 50 | T | F | $@ ? : |
| 740 | 50 | T | F | unless _use('LWP::Simple') |
| 742 | 50 | T | F | $@ ? : |
| 749 | 50 | T | F | $@ ? : |
| 755 | 100 | T | F | $$t{'ErrorContext'} ? : |
| 764 | 50 | T | F | $$t{'ErrorContext'} ? : |
| 766 | 100 | T | F | isa($content, 'GLOB') ? : |
| 773 | 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?$/) { } |
| 774 | 100 | T | F | $to_parse =~ /<html/i ? : |
| 777 | 100 | T | F | unless _use('LWP::Simple') |
| 780 | 100 | T | F | unless _use('LWP::Simple') |
| 783 | 50 | T | F | if ($xml_parse_ok) { } |
| 787 | 0 | T | F | if ($doc =~ /<html/i) { } |
| 801 | 100 | T | F | if (_is_well_formed_xml($_[0])) { } |
| 805 | 100 | T | F | if (_is_well_formed_xml($html)) { } |
| 816 | 100 | T | F | $@ ? : |
| 833 | 100 | T | F | unless _use('HTML::TreeBuilder', '3.13') |
| 846 | 100 | T | F | if ($$options{'indent'}) |
| 861 | 50 | T | F | if ($@ =~ /^\s*xml declaration not at start of external entity/) { } |
| 50 | T | F | elsif ($@ =~ /^\s*not well-formed \(invalid token\)/) { } |
| 867 | 100 | T | F | unless (keys %xml_parser_encoding) |
| 869 | 100 | T | F | if (not $add_decl) { } |
| 870 | 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'}) { } |
| 877 | 50 | T | F | if ($add_decl) { } |
| 916 | 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) |
| 930 | 50 | T | F | if (_use('Encode')) { } |
| 0 | T | F | elsif (_use('Text::Iconv')) { } |
| 0 | T | F | elsif (_use('Unicode::Map8') and _use('Unicode::String')) { } |
| 934 | 0 | T | F | if ($converter) |
| 961 | 50 | T | F | if ($2 and $block_tag{$2}) { } |
| 0 | T | F | elsif ($3 and $block_tag{$3}) { } |
| 962 | 50 | T | F | unless $2 =~ m[/>] |
| 980 | 100 | T | F | if ($text_type{$type}) { } |
| 1005 | 100 | T | F | if ($disallowed{$module}) |
| 1006 | 100 | T | F | if ($used{$module}) |
| 1007 | 100 | T | F | if (eval "require $module") { } |
| 1009 | 50 | T | F | if (${"${module}::VERSION";} >= $version) { } |
| 1021 | 100 | T | F | if ($n > 0) { } |
| 100 | T | F | elsif ($n < 0) { } |
| 1022 | 100 | T | F | if $i == $n |
| 100 | T | F | if (&$coderef) |
| 1024 | 100 | T | F | if $i == $n |
| 100 | T | F | if (&$coderef) |
| 1032 | 100 | T | F | if ($uri =~ m[^\w+://]) { } |
| 1039 | 100 | T | F | if (defined $base and not $filename =~ m[^(?:[\\/]|\w+:)]) |
| 1050 | 100 | T | F | unless open TWIG_TO_SLURP, "<$filename" |
| 1073 | 50 | T | F | unless _use('LWP') |
| 1074 | 50 | T | F | if ($^O ne 'VMS') { } |
| 1075 | 50 | T | F | unless pipe README, WRITEME |
| 1076 | 100 | T | F | if (my $pid = fork) { } |
| 1079 | 100 | T | F | $safe ? : |
| 1081 | 100 | T | F | $@ ? : |
| 1093 | 100 | T | F | unless $response->is_success |
| 1103 | 0 | T | F | unless $response->is_success |
| 1104 | 0 | T | F | $safe ? : |
| 1105 | 0 | T | F | $@ ? : |
| 1127 | 100 | T | F | if $$t{'twig_keep_encoding'} |
| 1134 | 50 | T | F | if (@saved_default_handler and defined $saved_default_handler[1]) { } |
| 1147 | 100 | T | F | if ($$p{'twig'}{'twig_doctype'}{'has_internal'} and not $$p{'twig'}{'expat_1_95_2'}) |
| 1161 | 100 | T | F | unless $_[0] |
| 100 | T | F | if isa($_[0], 'GLOB') or isa($_[0], 'IO::Scalar') |
| 1168 | 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) |
| 1186 | 100 | T | F | if ($path =~ /^\s*($ALL|$DEFAULT|#COMMENT)\s*$/io) { } |
| 1196 | 100 | T | F | if (my $handler_data = _parse_xpath_handler($path, $handler)) { } |
| 1208 | 100 | T | F | $$handlers{'xpath_handler'}{$tag} ? : |
| 1210 | 100 | T | F | if ($prev_handler) |
| 1212 | 100 | T | F | if $$handler_data{'handler'} |
| 1215 | 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) |
| 1230 | 100 | T | F | if ($path =~ /^\s*(?:\?|#PI)\s*(?:([^\s]*)\s*)$/) { } |
| 1244 | 100 | T | F | if ($path =~ /^ \s* level \s* \( \s* ([0-9]+) \s* \) \s* $/ox) { } |
| 1260 | 100 | T | F | if ($path =~ /^\(\?([xism]*)(?:-[xism]*)?:(.*)\)$/) { } |
| 1279 | 50 | T | F | if ($DEBUG_HANDLER >= 1) |
| 1283 | 50 | T | F | if ($DEBUG_HANDLER and $path_to_check =~ /\S/) |
| 1284 | 100 | T | F | if $path_to_check =~ /\S/ |
| 1300 | 100 | T | F | if ($2) { } |
| 1301 | 100 | T | F | if ($last_token_is_sep) |
| 1305 | 100 | T | F | if (defined $last_token_is_sep and not $last_token_is_sep) |
| 1311 | 100 | T | F | if ($last_token_is_sep) |
| 1325 | 100 | T | F | $xpath_original =~ m[^\s*/(?!/)] ? : |
| 1334 | 50 | T | F | $DEBUG_HANDLER >= 2 ? : |
| 1336 | 100 | T | F | if ($predicate) |
| 1337 | 50 | T | F | if ($DEBUG_HANDLER >= 2) |
| 1340 | 50 | T | F | if ($DEBUG_HANDLER >= 2) |
| 1343 | 100 | T | F | $tag ne '*' ? : |
| 1349 | 100 | T | F | if ($sep eq '/') { } |
| 50 | T | F | elsif ($sep eq '//') { } |
| 1377 | 50 | T | F | $DEBUG_HANDLER >= 2 ? : |
| 1388 | 100 | T | F | if ($anchored) |
| 1390 | 50 | T | F | $DEBUG_HANDLER >= 2 ? : |
| 1394 | 50 | T | F | if $DEBUG_HANDLER >= 2 |
| 1396 | 50 | T | F | if $DEBUG_HANDLER >= 1 |
| 1398 | 50 | T | F | if ($@) |
| 1401 | 50 | T | F | if $DEBUG_HANDLER >= 1 |
| 1402 | 50 | T | F | if $DEBUG_HANDLER >= 1 |
| 1418 | 100 | T | F | if ($func or $string_regexp or $string_test_num or $string_test_alpha) |
| 1420 | 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) { } |
| 1421 | 100 | T | F | $att =~ /^#/ ? : |
| 1424 | 100 | T | F | $bare_att =~ /^#/ ? : |
| 1436 | 0 | T | F | $2 eq '=' ? : |
| 1439 | 0 | T | F | $and_or eq 'and' ? : |
| 1474 | 50 | T | F | if $$handlers{'attcond_handlers'} |
| 1554 | 100 | T | F | if isa($$handlers{$path}, 'CODE') |
| 1564 | 100 | T | F | if (my $type = $$handler_data{'test_on_text'}) |
| 1578 | 100 | T | F | if ($$t{'twig_parsing'}) |
| 1582 | 100 | T | F | if $weakrefs |
| 1598 | 100 | T | F | $@ ? : |
| 1604 | 100 | T | F | $@ ? : |
| 1618 | 100 | T | F | if $t->root |
| 1627 | 100 | T | F | unless $$t{'twig_current'} |
| 1628 | 100 | T | F | if ($$t{'twig_stored_spaces'} or $option{'force'} or $$t{'twig_preserve_space'}) |
| 1629 | 100 | T | F | if ($$t{'twig_current'}->is_pcdata) { } |
| 1633 | 100 | T | F | unless (defined $$t{'twig_space_policy'}{$current_gi}) |
| 1636 | 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'}) |
| 1660 | 100 | T | F | if ($$t{'twig_in_pcdata'}) |
| 1667 | 100 | T | F | if (my $func = $$t{'parse_start_tag'}) { } |
| 100 | T | F | elsif ($$t{'twig_entities_in_attribute'}) { } |
| 1676 | 100 | T | F | if ($$t{'twig_read_external_dtd'}) |
| 1679 | 100 | T | F | if (my $filter = $$t{'twig_input_filter'}) |
| 1684 | 100 | T | F | if $$t{'twig_map_xmlns'} |
| 1691 | 100 | T | F | if $weakrefs |
| 1694 | 100 | T | F | if $parent |
| 1698 | 100 | T | F | if ($parent) { } |
| 1700 | 100 | T | F | if ($prev_sibling) |
| 1706 | 100 | T | F | unless $$parent{'first_child'} |
| 1713 | 50 | T | F | if defined $$t{'twig_dtd_handler'} |
| 1718 | 100 | T | F | if ($$t{'twig_default_print'}) { } |
| 100 | T | F | elsif ($$t{'twig_roots'}) { } |
| 1726 | 100 | T | F | $p->recognized_string =~ m[/\s*>$]s ? : |
| 1728 | 100 | T | F | if $$t{'extra_data'} |
| 1733 | 100 | T | F | if (defined $id) |
| 1735 | 100 | T | F | if $weakrefs |
| 1739 | 100 | T | F | if ($$t{'twig_starttag_handlers'}) |
| 1746 | 100 | T | F | unless &$handler($t, $elt) |
| 1748 | 100 | T | F | if (my $all = $$t{'twig_starttag_handlers'}{'handlers'}{$ALL}) |
| 1753 | 100 | T | F | if ($$t{'twig_ignore_elts_handlers'}) |
| 1756 | 100 | T | F | if (@handlers) |
| 1759 | 100 | T | F | if ($$elt{'att'}{'xml:space'} and $$elt{'att'}{'xml:space'} eq 'preserve') |
| 1768 | 100 | T | F | if (not $$t{'twig_keep_original_prefix'} and my $mapped_prefix = $$t{'twig_map_xmlns'}{$uri}) |
| 1771 | 100 | T | F | if ($new_prefix eq '#default') { } |
| 1777 | 100 | T | F | if ($$t{'twig_keep_original_prefix'}) { } |
| 1782 | 100 | T | F | if ($$ns_info{'mapped_prefix'}) |
| 1788 | 100 | T | F | if ($att_name) { } |
| 1791 | 100 | T | F | if ($$ns_info{'mapped_prefix'}) |
| 1800 | 100 | T | F | if $map_att |
| 1806 | 100 | T | F | if ($att_name) { } |
| 1820 | 100 | T | F | unless $$ns_info{'uri'} |
| 1831 | 100 | T | F | if ($p->expand_ns_prefix($prefix) eq $uri) |
| 1842 | 100 | T | F | if (not exists $value{$att} and exists $$attlist{$att}{'default'} and $$attlist{$att}{'default'} ne '#IMPLIED') |
| 1863 | 100 | T | F | if ($string =~ s[^<\s*($REG_NAME)\s*[\s>/]][]s) { } |
| 1876 | 100 | T | F | if $weakrefs |
| 1886 | 100 | T | F | if ($$t{'twig_map_xmlns'}) |
| 1895 | 100 | T | F | if ($$t{'twig_in_pcdata'}) |
| 1897 | 50 | T | F | if $$elt{'parent'} |
| 1903 | 100 | T | F | if $parent |
| 1907 | 100 | T | F | if ($$parent{'twig_to_be_normalized'}) |
| 1909 | 100 | T | F | if $$t{'extra_data'} |
| 1912 | 100 | T | F | if ($$t{'twig_handlers'}) |
| 1916 | 100 | T | F | if ($$t{'twig_tdh'}) { } |
| 1917 | 100 | T | F | if (@handlers) |
| 1918 | 100 | T | F | if (my $all = $$t{'twig_handlers'}{'handlers'}{$ALL}) |
| 1926 | 100 | T | F | unless &$handler($t, $elt) |
| 1928 | 100 | T | F | if (my $all = $$t{'twig_handlers'}{'handlers'}{$ALL}) |
| 1934 | 100 | T | F | if ($$t{'twig_root_depth'} and $p->depth == $$t{'twig_root_depth'}) |
| 1935 | 100 | T | F | if ($$t{'twig_default_print'}) { } |
| 1938 | 100 | T | F | if ($$t{'twig_keep_encoding'}) { } |
| 1947 | 100 | T | F | if ($$elt{'att'}{'xml:space'} and $$elt{'att'}{'xml:space'} eq 'preserve') |
| 1955 | 50 | T | F | if (@{$$t{'twig_handlers_to_trigger'};}) |
| 1960 | 50 | T | F | unless &$handler($t, $handled_elt) |
| 1983 | 100 | T | F | if (my $found_path = &$trigger($$t{'_twig_context_stack'})) |
| 1990 | 100 | T | F | if (not @found_handlers and defined $$handlers{'handlers'}{$DEFAULT}) |
| 1993 | 100 | T | F | if (@found_handlers and $$t{'twig_do_not_chain_handlers'}) |
| 2007 | 100 | T | F | if (not $uri and not $name =~ /^xml/) |
| 2008 | 100 | T | F | if ($uri) { } |
| 2009 | 100 | T | F | if (my $mapped_prefix = $$t{'twig_map_xmlns'}{$uri}) { } |
| 2013 | 100 | T | F | if ($prefix eq '#default') |
| 2014 | 100 | T | F | $prefix ? : |
| 2027 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2028 | 100 | T | F | if (not $$t{'twig_in_cdata'}) { } |
| 2033 | 100 | T | F | if (length $string < 1024) { } |
| 2043 | 100 | T | F | if ($$t{'twig_input_filter'}) |
| 2046 | 100 | T | F | if ($$t{'twig_char_handler'}) |
| 2051 | 100 | T | F | if ($$t{'twig_in_cdata'}) { } |
| 100 | T | F | elsif ($$t{'twig_in_pcdata'}) { } |
| 2057 | 100 | T | F | if ($$t{'extra_data'}) |
| 2065 | 100 | T | F | if ($string =~ /\A\s*\Z/s) { } |
| 2066 | 100 | T | F | if ($$t{'extra_data'}) { } |
| 2081 | 100 | T | F | if ($$t{'extra_data'}) |
| 2099 | 100 | T | F | if ($$t{'twig_in_pcdata'}) { } |
| 2110 | 100 | T | F | if ($t->_space_policy($XML::Twig::index2gi[$$twig_current{'gi'}]) and $$t{'twig_stored_spaces'}) |
| 2116 | 100 | T | F | if (my $prev_sibling = $$twig_current{'last_child'}) { } |
| 2129 | 100 | T | F | if ($$t{'extra_data'}) |
| 2147 | 100 | T | F | if ($$t{'twig_handlers'}) |
| 2151 | 100 | T | F | unless &$handler($t, $elt) |
| 2167 | 50 | T | F | unless &$handler($t, $pi) |
| 100 | T | F | if ($handler) |
| 2172 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'pi_handlers'}{$target}) |
| 2174 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'pi_handlers'}{''}) |
| 2176 | 100 | T | F | defined $data && $data ne '' ? : |
| 2181 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'handlers'}{'#COMMENT'}) |
| 2187 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'handlers'}{'#COMMENT'}) |
| 2189 | 100 | T | F | if (not defined $comment or $comment eq '') |
| 2202 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2215 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2228 | 100 | T | F | if ($$t{'twig_input_filter'}) |
| 2232 | 100 | T | F | if ($keep) { } |
| 100 | T | F | elsif ($process) { } |
| 2234 | 100 | T | F | if ($$t{'twig_stored_spaces'}) |
| 2249 | 100 | T | F | if ($$t{'extra_data'}) |
| 2254 | 100 | T | F | if (not $t->root) { } |
| 100 | T | F | elsif ($$t{'twig_in_pcdata'}) { } |
| 100 | T | F | elsif ($twig_current) { } |
| 2264 | 100 | T | F | if ($t->_space_policy($XML::Twig::index2gi[$$twig_current{'gi'}]) and $$t{'twig_stored_spaces'}) |
| 2273 | 100 | T | F | if ($twig_current) |
| 2299 | 100 | T | F | $p->isa('XML::Twig') ? : |
| 2302 | 100 | T | F | if ($$t{'extra_data'}) |
| 2307 | 100 | T | F | if $$t{'twig_tdh'} |
| 2309 | 100 | T | F | if $$t{'twig_original_selected_fh'} |
| 2311 | 100 | T | F | if (exists $$t{'twig_autoflush_data'}) |
| 2313 | 100 | T | F | if $$t{'twig_autoflush_data'}{'fh'} |
| 2314 | 100 | T | F | if $$t{'twig_autoflush_data'}{'args'} |
| 2336 | 100 | T | F | if ($prev_sibling) { } |
| 2352 | 100 | T | F | if $$t{'twig_discard_spaces'} |
| 2353 | 100 | T | F | if $$t{'twig_keep_spaces'} |
| 2354 | 100 | T | F | if $$t{'twig_keep_spaces_in'} and $$t{'twig_keep_spaces_in'}{$gi} |
| 2356 | 100 | T | F | if $$t{'twig_discard_spaces_in'} and $$t{'twig_discard_spaces_in'}{$gi} |
| 2372 | 100 | T | F | if ($sysid) |
| 2373 | 100 | T | F | if ($ndata) { } |
| 2374 | 100 | T | F | if (not -f _based_filename($sysid, $p->base)) |
| 2377 | 100 | T | F | if ($$t{'twig_expand_external_ents'}) |
| 2379 | 100 | T | F | if (not defined $val) |
| 2380 | 100 | T | F | if ($$t{'twig_extern_ent_nofail'}) { } |
| 2390 | 100 | T | F | if ($missing_entity) |
| 2393 | 50 | T | F | if ($entity_list) |
| 2395 | 50 | T | F | if ($parser_version > 2.27) |
| 2399 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2400 | 50 | T | F | if (defined $$ent{'val'} and not $ent_decl =~ /["']/) |
| 2402 | 0 | T | F | $val =~ /"/ ? : |
| 2407 | 50 | T | F | unless $$t{'twig_doctype'}{'internal'} =~ /<!ENTITY\s+$name\s+/ |
| 2418 | 50 | T | F | if ($$t{'twig_no_expand'}) |
| 2419 | 0 | T | F | $$t{'twig_keep_encoding'} ? : |
| 2424 | 100 | T | F | if (not defined $ent_content) |
| 2429 | 50 | T | F | if ($$t{'twig_extern_ent_nofail'}) { } |
| 2463 | 50 | T | F | if ($parser_version > 2.27) { } |
| 2479 | 100 | T | F | if ($$t{'twig_read_external_dtd'} and $sysid) |
| 2488 | 50 | T | F | if $t_dtd->entity_list |
| 2504 | 50 | T | F | if ($parser_version > 2.27 and $$t{'twig_doctype'}{'internal'} =~ /(^|>)\s*$/) |
| 2505 | 50 | T | F | $XML::Twig::Elt::keep_encoding ? : |
| 2506 | 50 | T | F | unless ($text) |
| 2524 | 50 | T | F | if ($parser_version > 2.27 and $$t{'twig_doctype'}{'internal'} =~ /(^|>)\s*$/) |
| 2525 | 50 | T | F | $XML::Twig::Elt::keep_encoding ? : |
| 2526 | 50 | T | F | unless ($text) |
| 2530 | 100 | T | F | if $fixed |
| 2531 | 50 | T | F | if defined $default |
| 2533 | 100 | T | F | if ($$t{'twig_dtd'}{'att'}{$gi}) { } |
| 2546 | 50 | T | F | if defined $default |
| 2558 | 100 | T | F | unless $string =~ /^&([^;]*);$/ |
| 2560 | 100 | T | F | if ($p->original_string =~ /^</ and $p->original_string =~ />$/) { } |
| 2562 | 100 | T | F | if $$t{'twig_do_not_escape_amp_in_atts'} |
| 2566 | 100 | T | F | if ($$t{'twig_keep_encoding'}) { } |
| 2589 | 100 | T | F | if ($$t{'twig_in_pcdata'}) { } |
| 2606 | 100 | T | F | if (my $prev_sibling = $$twig_current{'last_child'}) { } |
| 2611 | 50 | T | F | if $twig_current |
| 2612 | 50 | T | F | if $twig_current |
| 2628 | 100 | T | F | unless $$t{'twig_xmldecl'} or $$t{'output_encoding'} |
| 2631 | 100 | T | F | if ($decl) { } |
| 2638 | 100 | T | F | if ($$t{'output_encoding'}) { } |
| 100 | T | F | elsif ($$decl{'encoding'}) { } |
| 2647 | 100 | T | F | if (defined $$decl{'standalone'}) |
| 2649 | 100 | T | F | $$decl{'standalone'} ? : |
| 2661 | 100 | T | F | $output_filter ? : |
| 2666 | 100 | T | F | unless defined $$t{'twig_doctype'} |
| 2668 | 50 | T | F | if defined $name |
| 2669 | 100 | T | F | if defined $system |
| 2670 | 100 | T | F | if defined $public |
| 2671 | 100 | T | F | if defined $internal |
| 2676 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2682 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2688 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2694 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2708 | 100 | T | F | if $elt |
| 2735 | 50 | T | F | _is_fh($_[0]) ? : |
| 2742 | 100 | T | F | if ($$t{'no_prolog'}) |
| 2744 | 100 | T | F | defined $$t{'no_dtd_output'} ? : |
| 50 | T | F | $$t{'no_prolog'} ? : |
| 2757 | 100 | T | F | if ($doctype) |
| 2758 | 50 | T | F | if $$doctype{'name'} |
| 2759 | 100 | T | F | if $$doctype{'pub'} |
| 2760 | 100 | T | F | if $$doctype{'sysid'} and not $$doctype{'pub'} |
| 2761 | 100 | T | F | if $$doctype{'sysid'} |
| 2764 | 100 | T | F | if ($update_dtd) { } |
| 100 | T | F | elsif ($doctype) { } |
| 2765 | 100 | T | F | if ($doctype) { } |
| 50 | T | F | elsif (not $$t{'twig_dtd'} and keys %{$t->entity_list;}) { } |
| 2768 | 100 | T | F | if ($internal) |
| 2773 | 50 | T | F | if $t->entity_list |
| 2774 | 100 | T | F | if ($internal) |
| 2784 | 100 | T | F | if (my $internal = $$doctype{'internal'}) |
| 2796 | 100 | T | F | if ($doctype_text) { } |
| 2803 | 50 | T | F | $output_filter ? : |
| 2828 | 100 | T | F | unless open TWIG_PRINT_TO_FILE, ">$filename" |
| 2836 | 100 | T | F | _is_fh($_[0]) ? : |
| 2839 | 100 | T | F | if ($fh) { } |
| 2848 | 50 | T | F | if $$t{'twig_tdh'} |
| 2850 | 100 | T | F | if $$t{'twig_completely_flushed'} |
| 2852 | 100 | T | F | _is_fh($_[0]) ? : |
| 2853 | 100 | T | F | defined $fh ? : |
| 2854 | 100 | T | F | ref $_[0] ? : |
| 2858 | 100 | T | F | if (defined $args{'PrettyPrint'}) |
| 2864 | 100 | T | F | if ($args{'EmptyTags'}) |
| 2873 | 100 | T | F | if ($up_to) { } |
| 100 | T | F | elsif ($$t{'twig_current'}) { } |
| 2885 | 100 | T | F | unless ($elt->_flushed) |
| 2887 | 100 | T | F | if ($$t{'twig_autoflush'}) |
| 2889 | 100 | T | F | if $fh |
| 2890 | 100 | T | F | if @_ |
| 2898 | 100 | T | F | if ($last_elt and $last_elt->in($elt)) { } |
| 2900 | 100 | T | F | unless ($elt->_flushed) |
| 2912 | 100 | T | F | if $last_elt and $elt == $last_elt |
| 2917 | 100 | T | F | if ($flush_trailing_data) |
| 2922 | 100 | T | F | if defined $old_select |
| 2923 | 100 | T | F | if defined $old_pretty |
| 2924 | 100 | T | F | if defined $old_empty_tag_style |
| 2935 | 100 | T | F | if (_is_fh($_[0])) { } |
| 2952 | 100 | T | F | if (defined $args{'PrettyPrint'}) |
| 2958 | 100 | T | F | if (defined $args{'EmptyTags'}) |
| 2970 | 100 | T | F | if defined $old_pretty |
| 2971 | 100 | T | F | if defined $old_empty_tag_style |
| 2985 | 50 | T | F | if $$t{'twig_tdh'} |
| 2989 | 100 | T | F | if ($up_to) { } |
| 100 | T | F | elsif ($$t{'twig_current'}) { } |
| 3000 | 100 | T | F | if ($last_elt and $last_elt->in($elt)) { } |
| 3008 | 100 | T | F | if $last_elt and $elt == $last_elt |
| 3032 | 50 | T | F | if $] < 5.006 |
| 3035 | 100 | T | F | ref $twig_or_class ? : |
| 3040 | 100 | T | F | if $elt_class->can($att) and not $accessor{$att} |
| 3043 | 100 | T | F | if (not $accessor{$att}) |
| 3047 | 100 | T | F | if (@_) |
| 3062 | 100 | T | F | if $root->passes($cond) |
| 3074 | 100 | T | F | if $t->root->matches($cond) |
| 3080 | 100 | T | F | if (isa($_[0], 'ARRAY')) { } |
| 3093 | 100 | T | F | unless @unique and $unique[-1] == $current |
| 3099 | 100 | T | F | if (isa($_[0], 'ARRAY')) { } |
| 3115 | 100 | T | F | defined $index ? : |
| 3123 | 100 | T | F | if (not $cond && !$root->passes($cond)) { } |
| 3142 | 100 | T | F | if ($root->passes($cond)) { } |
| 3172 | 100 | T | F | unless $index = $XML::Twig::gi2index{$old_gi} |
| 3183 | 50 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 3190 | 100 | T | F | if ($$dtd{'att'}{$gi}) |
| 3195 | 100 | T | F | if ($$attlist{$att}{'fixed'}) { } |
| 3204 | 50 | T | F | if $t->entity_list |
| 3212 | 100 | T | F | _is_fh($_[0]) ? : |
| 3213 | 100 | T | F | if ($fh) { } |
| 3229 | 100 | T | F | unless $$t{'twig_parsing'} |
| 3237 | 50 | T | F | if ($$t{'twig_map_xmlns'}) { } |
| 3252 | 100 | T | F | if (not defined $fh) { } |
| 50 | T | F | elsif (defined $fh) { } |
| 3256 | 50 | T | F | if $old_fh |
| 3260 | 100 | T | F | if ($$t{'twig_keep_encoding'}) { } |
| 3277 | 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}) { } |
| 3334 | 50 | T | F | if ($$t{'twig_root'} and isa($$t{'twig_root'}, 'XML::Twig')) |
| 3339 | 100 | T | F | if $$t{'twig_root'} |
| 3359 | 50 | T | F | if ($string eq '<!DOCTYPE') { } |
| 3376 | 50 | T | F | if ($$p{'twig'}{'expat_1_95_2'} and $p->recognized_string eq '[' and not $$p{'twig'}{'expat_1_95_2_seen_bracket'}) { } |
| 3401 | 50 | T | F | if ($string eq '<!DOCTYPE') { } |
| 3422 | 50 | T | F | if ($name) |
| 3426 | 50 | T | F | if $name |
| 3427 | 50 | T | F | if $pubid |
| 3428 | 100 | T | F | if $sysid and not $pubid |
| 3429 | 100 | T | F | if $sysid |
| 3430 | 100 | T | F | if $internal and not $$p{'twig'}{'expat_1_95_2'} |
| 3431 | 100 | T | F | unless $internal or $$p{'twig'}{'expat_1_95_2'} |
| 3441 | 50 | T | F | if ($name) |
| 3445 | 50 | T | F | if $name |
| 3446 | 50 | T | F | if $pubid |
| 3447 | 100 | T | F | if $sysid and not $pubid |
| 3448 | 100 | T | F | if $sysid |
| 3449 | 100 | T | F | if $internal |
| 3450 | 100 | T | F | unless $internal or $$p{'twig'}{'expat_1_95_2'} |
| 3477 | 100 | T | F | $$t{'twig_keep_encoding'} ? : |
| 100 | T | F | $$t{'twig_default_print'} ? : |
| 3482 | 100 | T | F | unless ($p->depth == 0) |
| 3483 | 100 | T | F | if ($$t{'twig_map_xmlns'}) |
| 3488 | 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'}) { } |
| 3496 | 100 | T | F | if $tag |
| 3508 | 50 | T | F | unless $last_handler_res |
| 3511 | 100 | T | F | if $tag and !@handlers || $last_handler_res |
| 3515 | 100 | T | F | if $tag |
| 3525 | 100 | T | F | $$t{'twig_keep_encoding'} ? : |
| 100 | T | F | $$t{'twig_default_print'} ? : |
| 3530 | 100 | T | F | if ($$t{'twig_endtag_handlers'}) |
| 3536 | 50 | T | F | if (not $last_handler_res) |
| 3543 | 100 | T | F | if defined $tag |
| 3545 | 100 | T | F | if ($p->depth == 0) |
| 3554 | 50 | T | F | $$t{'twig_keep_encoding'} ? : |
| 100 | T | F | $$t{'twig_default_print'} ? : |
| 3559 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'pi_handlers'}{$target} || $$t{'twig_handlers'}{'pi_handlers'}{''}) { } |
| 3571 | 50 | T | F | if defined $pi |
| 3583 | 50 | T | F | if ($action eq 'print') |
| 3596 | 50 | T | F | if ($action eq 'print') |
| 3603 | 100 | T | F | if (not $$t{'twig_ignore_level'}) |
| 3617 | 100 | T | F | if ($$t{'twig_endtag_handlers'}) |
| 3634 | 100 | T | F | if (not $elt && isa($elt, 'XML::Twig::Elt')) |
| 3640 | 100 | T | F | unless ($elt == $current or $$current{'last_child'} and $elt == $$current{'last_child'} or $current->in($elt)) |
| 3643 | 100 | T | F | $current == $elt ? : |
| 3652 | 50 | T | F | if ($action eq 'print') |
| 3667 | 100 | T | F | if ($$elt_in_stack{'_elt'} and $elt == $$elt_in_stack{'_elt'}) |
| 3678 | 100 | T | F | if ($output_fh and not $$t{'twig_output_fh_selected'}) |
| 3690 | 100 | T | F | unless $$t{'twig_output_fh'} |
| 3699 | 50 | T | F | if $_[0]{'twig_xmldecl'} |
| 3704 | 50 | T | F | unless $t->xml_version |
| 3714 | 100 | T | F | if $encoding |
| 3719 | 50 | T | F | if $_[0]{'twig_xmldecl'} |
| 3728 | 50 | T | F | if $_[0]{'twig_xmldecl'} |
| 3733 | 50 | T | F | unless $t->xml_version |
| 3741 | 100 | T | F | if defined $_[0]{'twig_parser'} |
| 3747 | 100 | T | F | if defined $_[0]{'twig_parser'} |
| 3756 | 100 | T | F | if (my $start_document = $handler->can('start_document')) |
| 3761 | 50 | T | F | if $t->root |
| 3762 | 50 | T | F | if (my $end_document = $handler->can('end_document')) |
| 3784 | 100 | T | F | if ($$t{'twig_current'}) { } |
| 3790 | 100 | T | F | unless ($elt->_flushed) |
| 3792 | 50 | T | F | if (my $start_document = $handler->can('start_document')) |
| 3800 | 100 | T | F | if ($last_elt and $last_elt->in($elt)) { } |
| 3802 | 100 | T | F | unless ($elt->_flushed) |
| 3804 | 50 | T | F | if (my $start_element = $handler->can('start_element')) |
| 3805 | 50 | T | F | if (my $tag_data = &$start_tag_data($elt)) |
| 3817 | 100 | T | F | if $last_elt and $elt == $last_elt |
| 3821 | 100 | T | F | if (not $$t{'twig_parsing'}) |
| 3822 | 50 | T | F | if (my $end_document = $handler->can('end_document')) |
| 3841 | 100 | T | F | if (my $xml_decl = $handler->can('xml_decl')) |
| 3848 | 100 | T | F | unless $doctype |
| 3854 | 50 | T | F | if (my $start_dtd = $handler->can('start_dtd')) |
| 3859 | 50 | T | F | if (my $end_dtd = $handler->can('end_dtd')) |
| 3867 | 50 | T | F | if (_use('Encode')) { } |
| 0 | T | F | elsif (_use('Text::Iconv')) { } |
| 0 | T | F | elsif (_use('Unicode::Map8') and _use('Unicode::String')) { } |
| 3881 | 50 | T | F | if (_use('Encode')) { } |
| 0 | T | F | elsif (_use('Text::Iconv')) { } |
| 0 | T | F | elsif (_use('Unicode::Map8') and _use('Unicode::String')) { } |
| 3905 | 50 | T | F | unless _use('HTML::Entities') |
| 3911 | 50 | T | F | if ($] < 5.008) { } |
| 3923 | 50 | T | F | if ($] < 5.008) { } |
| 3940 | 50 | T | F | if ($len == 2) { } |
| 0 | T | F | elsif ($len == 3) { } |
| 0 | T | F | elsif ($len == 4) { } |
| 0 | T | F | elsif ($len == 1) { } |
| 3958 | 100 | T | F | $hex ? : |
| 3964 | 50 | T | F | $_[1] ? : |
| 3965 | 50 | T | F | unless _use('Unicode::Map8') |
| 3966 | 50 | T | F | unless _use('Unicode::String') |
| 3968 | 50 | T | F | unless $cnv = 'Unicode::Map8'->new($enc) |
| 3976 | 50 | T | F | unless ($sub) |
| 3981 | 50 | T | F | $_[1] ? : |
| 3982 | 50 | T | F | unless _use('Text::Iconv') |
| 3983 | 50 | T | F | unless $cnv = 'Text::Iconv'->new('utf8', $enc) |
| 50 | T | F | unless $cnv = 'Text::Iconv'->new('utf8', $enc) |
| 3991 | 100 | T | F | unless ($sub) |
| 3992 | 50 | T | F | if ($@ =~ /^Unsupported conversion: Invalid argument/) { } |
| 4002 | 50 | T | F | $_[1] ? : |
| 4004 | 50 | T | F | unless $sub |
| 4012 | 100 | T | F | wantarray ? : |
| 4022 | 50 | T | F | if $t->root |
| 4054 | 100 | T | F | unless $ents_to_add and %$ents_to_add |
| 4075 | 100 | T | F | if (isa(ref $_[0], 'XML::Twig::Entity')) { } |
| 4091 | 50 | T | F | defined $fh ? : |
| 4096 | 50 | T | F | if isa($ent, 'XML::Twig::Entity') |
| 4098 | 50 | T | F | if defined $old_select |
| 4133 | 100 | T | F | if defined $val |
| 4134 | 100 | T | F | if defined $sysid |
| 4135 | 100 | T | F | if defined $pubid |
| 4136 | 100 | T | F | if defined $ndata |
| 4137 | 100 | T | F | if defined $param |
| 4146 | 100 | T | F | defined $_[0]{'sysid'} ? : |
| 4147 | 50 | T | F | defined $_[0]{'pubid'} ? : |
| 4148 | 100 | T | F | defined $_[0]{'ndata'} ? : |
| 4149 | 100 | T | F | defined $_[0]{'param'} ? : |
| 4155 | 50 | T | F | if (not defined $text) |
| 4156 | 50 | T | F | if ($fh) { } |
| 4163 | 50 | T | F | if (not defined $text) |
| 4169 | 100 | T | F | if not $$ent{'name'} |
| 4173 | 100 | T | F | if $$ent{'param'} |
| 4176 | 100 | T | F | if (defined $$ent{'val'} and not defined $$ent{'sysid'} and not defined $$ent{'pubid'}) { } |
| 50 | T | F | elsif (defined $$ent{'sysid'}) { } |
| 4180 | 100 | T | F | if $$ent{'pubid'} |
| 4181 | 100 | T | F | unless $$ent{'pubid'} |
| 4183 | 100 | T | F | if $$ent{'ndata'} |
| 4189 | 50 | T | F | $_[0] =~ /"/ ? : |
| 4289 | 50 | T | F | if (eval 'require Scalar::Util' and defined &Scalar::Util::weaken) { } |
| 0 | T | F | elsif (eval 'require WeakRef') { } |
| 4308 | 100 | T | F | unless @_ |
| 4315 | 100 | T | F | ref $_[0] eq 'HASH' ? : |
| 4317 | 100 | T | F | if ($atts and defined $$atts{'#CDATA'}) |
| 4324 | 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') { } |
| 4325 | 100 | T | F | if (grep {ref $_;} @_) |
| 4331 | 100 | T | F | if (grep {ref $_;} @_) |
| 4335 | 100 | T | F | if (grep {ref $_;} @_) |
| 4339 | 100 | T | F | if (grep {ref $_;} @_) |
| 4344 | 100 | T | F | if (@_) { } |
| 4350 | 100 | T | F | if ($atts) |
| 4352 | 100 | T | F | if (defined $$atts{'#ASIS'}) |
| 4353 | 100 | T | F | if (defined $$atts{'#EMPTY'}) |
| 4354 | 100 | T | F | if keys %$atts |
| 4355 | 100 | T | F | if $$atts{$ID} |
| 4368 | 100 | T | F | if (ref $class) |
| 4377 | 100 | T | F | if ($$t{'twig_id_list'}) |
| 4394 | 100 | T | F | if ($elt->tag eq 'head') { } |
| 100 | T | F | elsif ($elt->tag ne 'html') { } |
| 4411 | 100 | T | F | unless (defined $XML::Twig::gi2index{$gi}) |
| 4435 | 100 | T | F | if ($qname =~ /^([^:]*):/) { } |
| 4456 | 100 | T | F | defined $_[0] ? : |
| 4457 | 100 | T | F | $prefix ? : |
| 4467 | 0 | T | F | if (my $prefix = $elt->ns_prefix) |
| 4469 | 0 | T | F | if (not $missing_prefix{$prefix} and not $elt->namespace) |
| 4474 | 0 | T | F | if (not $root->_inherits_declared_prefix($prefix)) |
| 4485 | 0 | T | F | if ($elt->_declares_prefix($prefix)) { } |
| 4495 | 0 | T | F | if $att eq "xmlns:$prefix" |
| 4501 | 0 | T | F | $prefix ? : |
| 4509 | 0 | T | F | if ($elt->_ns_prefix and $elt->namespace eq $uri) |
| 4524 | 100 | T | F | if $gi_nb >= $XML::Twig::SPECIAL_GI |
| 4530 | 100 | T | F | if $_[0]{'gi'} >= $XML::Twig::SPECIAL_GI |
| 4570 | 50 | T | F | defined $_[1] ? : |
| 4573 | 50 | T | F | if $_[0]{'empty'} or 0 |
| 4581 | 100 | T | F | if (exists $$descendant{'cdata'}) |
| 4593 | 50 | T | F | if $$descendant{'asis'} |
| 4604 | 100 | T | F | unless $curr_elt |
| 4611 | 100 | T | F | if ($elt->_extra_data_in_pcdata) |
| 4630 | 100 | T | F | if ($$elt{'extra_data_before_end_tag'}) { } |
| 4646 | 100 | T | F | if ((my $offset = index($modified, $initial)) != -1) { } |
| 100 | T | F | elsif (($offset = index($initial, $modified)) != -1) { } |
| 4654 | 100 | T | F | if $$_{'offset'} >= 0 |
| 4657 | 100 | T | F | unless _match_extra_data_words($elt, $initial, $modified) or _match_extra_data_chars($elt, $initial, $modified) |
| 4684 | 100 | T | F | if (@$initial <= @$modified) { } |
| 4687 | 100 | T | F | if ($ok) |
| 4702 | 100 | T | F | if ($ok) |
| 4716 | 50 | T | F | if ($$cpi{'offset'} < $prev_pos) |
| 4733 | 100 | T | F | if ($s_word ne $l_word) |
| 4738 | 100 | T | F | if (not @$long and $s_word ne $l_word) |
| 4784 | 50 | T | F | unless ($$elt{'gi'} == $XML::Twig::gi2index{'#PI'}) |
| 4799 | 50 | T | F | if (defined $data and $data ne '') |
| 4806 | 100 | T | F | unless ($$elt{'gi'} == $XML::Twig::gi2index{'#COMMENT'}) |
| 4823 | 100 | T | F | unless ($$elt{'gi'} == $XML::Twig::gi2index{'#CDATA'}) |
| 4847 | 100 | T | F | unless $elt->is_elt |
| 4849 | 100 | T | F | if $child->is_elt |
| 4857 | 100 | T | F | unless $child->is($exp) |
| 4863 | 100 | T | F | unless my $child = $$elt{'first_child'} |
| 4864 | 100 | T | F | unless $child->matches($exp) |
| 4865 | 100 | T | F | if $$child{'next_sibling'} |
| 4920 | 100 | T | F | $cond =~ s/^\s*!// ? : |
| 4922 | 100 | T | F | if (ref $cond eq 'CODE') |
| 4924 | 100 | T | F | if (ref $cond eq 'Regexp') { } |
| 4928 | 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*$/) { } |
| 4934 | 100 | T | F | if ($1 ne '*') { } |
| 4938 | 100 | T | F | if ($gi) { } |
| 4960 | 100 | T | F | $neg ? : |
| 4961 | 100 | T | F | if ($gi and $gi ne '*') { } |
| 4973 | 100 | T | F | $tag && $tag ne '*' ? : |
| 4987 | 100 | T | F | if ($@) |
| 5001 | 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) { } |
| 5010 | 100 | T | F | $and_or eq 'and' ? : |
| 5037 | 100 | T | F | if ($op eq '=') { } |
| 100 | T | F | elsif ($op eq '!=') { } |
| 5044 | 100 | T | F | unless $cond |
| 5053 | 100 | T | F | if $XML::Twig::weakrefs |
| 5096 | 100 | T | F | if ($child) { } |
| 5099 | 100 | T | F | if ($cond =~ /^\s*($REG_NAME)/) { } |
| 5112 | 100 | T | F | if $XML::Twig::weakrefs |
| 5130 | 100 | T | F | if $XML::Twig::weakrefs |
| 5165 | 100 | T | F | unless $new_class |
| 5167 | 50 | T | F | $class ? : |
| 5183 | 100 | T | F | unless $elt->tag eq 'span' and $elt->class |
| 5189 | 100 | T | F | unless $elt->tag eq 'div' and $elt->class |
| 5196 | 50 | T | F | unless defined $elt_class |
| 5197 | 100 | T | F | $elt->class =~ /(?:^|\s)\Q$class\E(?:\s|$)/ ? : |
| 5208 | 100 | T | F | if keep_atts_order() |
| 5209 | 100 | T | F | isa($_[0] || '', 'HASH') ? : |
| 5211 | 100 | T | F | if (exists $atts{$ID}) |
| 5223 | 100 | T | F | unless ($$elt{'att'}) |
| 5225 | 100 | T | F | if keep_atts_order() |
| 5231 | 100 | T | F | if ($att eq $ID) |
| 5253 | 100 | T | F | unless defined $value |
| 5266 | 100 | T | F | if exists $$elt{'att'}{$ID} |
| 5277 | 100 | T | F | if $XML::Twig::weakrefs |
| 5293 | 100 | T | F | if (defined $$elt{'att'}{$ID}) { } |
| 5296 | 50 | T | F | $_[0] && isa($_[0], 'CODE') ? : |
| 5305 | 50 | T | F | unless (exists $$elt{'att'}) |
| 5306 | 100 | T | F | unless (exists $$elt{'att'}{$ID}) |
| 5312 | 100 | T | F | unless ($t) |
| 5313 | 50 | T | F | if (exists $$t{'twig_id_list'}{$id}) |
| 5360 | 100 | T | F | if $child->passes($cond) |
| 5369 | 100 | T | F | wantarray ? : |
| 5376 | 100 | T | F | wantarray ? : |
| 5383 | 100 | T | F | unless $child->passes($cond) |
| 5393 | 100 | T | F | if $elt->passes($cond) |
| 5402 | 100 | T | F | if $elt->passes($cond) |
| 5411 | 100 | T | F | $include_self ? : |
| 5423 | 100 | T | F | if (defined $$elt{'att'}{$att} and !%tags || $tags{$XML::Twig::index2gi[$$elt{'gi'}]}) |
| 5437 | 100 | T | F | if (defined $$elt{'att'}{$att} and !%tags || $tags{$XML::Twig::index2gi[$$elt{'gi'}]}) |
| 5449 | 100 | T | F | if $elt->namespace('') |
| 5471 | 100 | T | F | if defined $_[0] and isa($_[0], 'XML::Twig::Elt') |
| 5477 | 100 | T | F | if ($cond) |
| 5478 | 100 | T | F | unless (defined($ind = $XML::Twig::gi2index{$cond})) |
| 5483 | 100 | T | F | if ($next_elt = $$elt{'first_child'}) { } |
| 100 | T | F | elsif ($next_elt = $$elt{'next_sibling'}) { } |
| 5490 | 100 | T | F | if $subtree_root and $elt == $subtree_root |
| 5498 | 100 | T | F | if $subtree_root and $elt == $subtree_root |
| 5503 | 100 | T | F | if $subtree_root and $subtree_root == $next_elt |
| 5506 | 100 | T | F | if $subtree_root and $subtree_root == $next_elt |
| 5527 | 100 | T | F | if (not $cond or $last_descendant->matches($cond)) { } |
| 5548 | 100 | T | F | if (defined $_[0] and isa($_[0], 'XML::Twig::Elt')) |
| 5550 | 100 | T | F | if $elt == $subtree_root |
| 5556 | 100 | T | F | if $elt == $subtree_root |
| 5557 | 100 | T | F | if ($prev_elt = $$elt{'prev_sibling'}) { } |
| 5573 | 100 | T | F | $elt ? : |
| 5579 | 100 | T | F | if not $cond or $elt->matches($cond) |
| 5585 | 100 | T | F | if (not $cond) |
| 5587 | 100 | T | F | if ($following) { } |
| 5601 | 100 | T | F | $elt ? : |
| 5607 | 100 | T | F | if not $cond or $elt->matches($cond) |
| 5613 | 100 | T | F | if (not $cond) |
| 5615 | 100 | T | F | if ($preceding) { } |
| 5628 | 100 | T | F | $cond ? : |
| 5642 | 100 | T | F | if (isa($ancestor, 'XML::Twig::Elt')) { } |
| 5644 | 100 | T | F | if $elt == $ancestor |
| 5648 | 100 | T | F | if $elt->matches($ancestor) |
| 5655 | 100 | T | F | unless my $dest = $elt->first_child(@_) |
| 5666 | 100 | T | F | unless my $dest = $elt->first_child(@_) |
| 5672 | 100 | T | F | unless my $dest = $$elt{'first_child'} |
| 5678 | 100 | T | F | unless my $dest = $elt->last_child(@_) |
| 5684 | 100 | T | F | unless my $dest = $elt->last_child(@_) |
| 5690 | 100 | T | F | unless my $dest = $$elt{'last_child'} |
| 5696 | 100 | T | F | unless my $dest = $elt->child(@_) |
| 5702 | 100 | T | F | unless my $dest = $elt->child(@_) |
| 5709 | 100 | T | F | unless my $dest = $elt->child($nb) |
| 5715 | 100 | T | F | unless my $dest = $elt->_prev_sibling(@_) |
| 5721 | 100 | T | F | unless my $dest = $elt->_prev_sibling(@_) |
| 5727 | 100 | T | F | unless my $dest = $$elt{'prev_sibling'} |
| 5733 | 100 | T | F | unless my $dest = $elt->next_sibling(@_) |
| 5739 | 100 | T | F | unless my $dest = $elt->next_sibling(@_) |
| 5745 | 100 | T | F | unless my $dest = $$elt{'next_sibling'} |
| 5751 | 100 | T | F | unless my $dest = $elt->prev_elt(@_) |
| 5757 | 100 | T | F | unless my $dest = $elt->prev_elt(@_) |
| 5763 | 100 | T | F | unless my $dest = $elt->prev_elt |
| 5769 | 100 | T | F | unless my $dest = $elt->next_elt(@_) |
| 5775 | 100 | T | F | unless my $dest = $elt->next_elt(@_) |
| 5781 | 100 | T | F | unless my $dest = $elt->next_elt |
| 5787 | 100 | T | F | unless my $dest = $elt->parent(@_) |
| 5793 | 100 | T | F | unless my $dest = $elt->parent(@_) |
|