| 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') { } |
| 385 | 100 | T | F | unless ($args{'MoreOptions'}) |
| 387 | 100 | T | F | unless $valid_option{$arg} |
| 399 | 100 | T | F | if (exists $args{'TwigHandlers'}) |
| 406 | 100 | T | F | if (exists $args{'StartTagHandlers'}) |
| 411 | 100 | T | F | if (exists $args{'DoNotChainHandlers'}) |
| 414 | 100 | T | F | if (exists $args{'IgnoreElts'}) |
| 416 | 50 | T | F | if (isa($args{'IgnoreElts'}, 'ARRAY')) |
| 421 | 100 | T | F | if (exists $args{'Index'}) |
| 424 | 100 | T | F | if (ref $index eq 'ARRAY') |
| 433 | 100 | T | F | if (exists $args{'EltClass'}) |
| 435 | 100 | T | F | if (exists $args{'MapXmlns'}) |
| 441 | 100 | T | F | if (exists $args{'KeepOriginalPrefix'}) |
| 449 | 100 | T | F | if ($args{'ExpandExternalEnts'}) { } |
| 453 | 100 | T | F | if ($args{'ExpandExternalEnts'} == -1) |
| 463 | 50 | T | F | if (not $args{'NoLWP'} and not _use('URI') and not _use('URI::File') and not _use('LWP')) { } |
| 468 | 100 | T | F | if ($args{'DoNotEscapeAmpInAtts'}) { } |
| 480 | 100 | T | F | if ($args{'TwigRoots'}) |
| 485 | 100 | T | F | if ($args{'EndTagHandlers'}) |
| 486 | 100 | T | F | unless ($$self{'twig_roots'} or $args{'ForceEndTagHandlersUsage'}) |
| 499 | 100 | T | F | if ($args{'TwigPrintOutsideRoots'}) |
| 500 | 100 | T | F | unless $$self{'twig_roots'} |
| 503 | 100 | T | F | if (_is_fh($args{'TwigPrintOutsideRoots'})) |
| 509 | 100 | T | F | if ($args{'KeepSpaces'}) |
| 510 | 100 | T | F | if $args{'DiscardSpaces'} |
| 511 | 100 | T | F | if $args{'KeepSpacesIn'} |
| 515 | 100 | T | F | if ($args{'DiscardSpaces'}) |
| 516 | 100 | T | F | if $args{'KeepSpacesIn'} |
| 520 | 100 | T | F | if ($args{'KeepSpacesIn'}) |
| 521 | 100 | T | F | if $args{'DiscardSpacesIn'} |
| 528 | 100 | T | F | if ($args{'DiscardSpacesIn'}) |
| 536 | 100 | T | F | unless $$self{'twig_keep_spaces'} |
| 539 | 100 | T | F | if ($args{'Comments'} eq 'drop') { } |
| 100 | T | F | elsif ($args{'Comments'} eq 'keep') { } |
| 100 | T | F | elsif ($args{'Comments'} eq 'process') { } |
| 546 | 100 | T | F | if ($args{'Pi'} eq 'drop') { } |
| 100 | T | F | elsif ($args{'Pi'} eq 'keep') { } |
| 100 | T | F | elsif ($args{'Pi'} eq 'process') { } |
| 552 | 100 | T | F | if ($args{'KeepEncoding'}) { } |
| 557 | 100 | T | F | if defined $args{'ParseStartTag'} |
| 562 | 100 | T | F | if $args{'ParseStartTag'} |
| 565 | 100 | T | F | if ($args{'OutputFilter'}) { } |
| 572 | 100 | T | F | if ($args{'RemoveCdata'}) { } |
| 579 | 100 | T | F | if ($args{'OutputTextFilter'}) { } |
| 587 | 100 | T | F | if (exists $args{'KeepAttsOrder'}) { } |
| 589 | 100 | T | F | if (_use('Tie::IxHash')) { } |
| 598 | 100 | T | F | if ($args{'PrettyPrint'}) |
| 599 | 100 | T | F | if ($args{'EscapeGt'}) |
| 600 | 100 | T | F | if ($args{'Quote'}) |
| 601 | 100 | T | F | if ($args{'EmptyTags'}) |
| 603 | 100 | T | F | if (exists $args{'Id'}) |
| 604 | 100 | T | F | if ($args{'NoProlog'}) |
| 605 | 100 | T | F | if ($args{'DoNotOutputDTD'}) |
| 606 | 100 | T | F | if ($args{'LoadDTD'}) |
| 607 | 100 | T | F | if ($args{'CharHandler'}) |
| 609 | 100 | T | F | if ($args{'InputFilter'}) |
| 610 | 100 | T | F | if ($args{'NoExpand'}) |
| 611 | 100 | T | F | if (my $output_encoding = $args{'OutputEncoding'}) |
| 613 | 100 | T | F | if (my $tdh = $args{'TopDownHandlers'}) |
| 616 | 100 | T | F | if ($$self{'twig_roots'}) { } |
| 617 | 100 | T | F | if ($$self{'twig_default_print'}) { } |
| 618 | 100 | T | F | if ($$self{'twig_keep_encoding'}) { } |
| 643 | 100 | T | F | if ($weakrefs) |
| 652 | 100 | T | F | if (not ref $t or not isa($t, 'XML::Twig')) |
| 657 | 50 | T | F | if ($] >= 5.008 and ${^UNICODE} and ${^UNICODE} & 24 and isa($_[0], 'GLOB') and -p $_[0]) |
| 674 | 100 | T | F | if (not $t) |
| 675 | 100 | T | F | if (isa($returned, 'XML::Twig') and $$returned{'twig_finish_now'}) { } |
| 698 | 50 | T | F | unless _use('File::Temp') |
| 706 | 50 | T | F | unless ($$t{'twig_keep_encoding'} or $] < 5.006) |
| 713 | 50 | T | F | unless chmod $mode, $tmpfile |
| 715 | 100 | T | F | if ($suffix) |
| 717 | 100 | T | F | if ($suffix =~ /\*/) { } |
| 720 | 50 | T | F | unless rename $file, $backup |
| 722 | 50 | T | F | unless rename $tmpfile, $file |
| 741 | 50 | T | F | $@ ? : |
| 746 | 50 | T | F | unless _use('LWP::Simple') |
| 748 | 50 | T | F | $@ ? : |
| 755 | 50 | T | F | $@ ? : |
| 761 | 100 | T | F | $$t{'ErrorContext'} ? : |
| 770 | 50 | T | F | $$t{'ErrorContext'} ? : |
| 772 | 100 | T | F | isa($content, 'GLOB') ? : |
| 779 | 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?$/) { } |
| 780 | 100 | T | F | $to_parse =~ /<html/i ? : |
| 783 | 100 | T | F | unless _use('LWP::Simple') |
| 786 | 100 | T | F | unless _use('LWP::Simple') |
| 789 | 50 | T | F | if ($xml_parse_ok) { } |
| 793 | 0 | T | F | if ($doc =~ /<html/i) { } |
| 807 | 100 | T | F | if (_is_well_formed_xml($_[0])) { } |
| 811 | 100 | T | F | if (_is_well_formed_xml($html)) { } |
| 822 | 100 | T | F | $@ ? : |
| 839 | 100 | T | F | unless _use('HTML::TreeBuilder', '3.13') |
| 852 | 100 | T | F | if ($$options{'indent'}) |
| 867 | 50 | T | F | if ($@ =~ /^\s*xml declaration not at start of external entity/) { } |
| 50 | T | F | elsif ($@ =~ /^\s*not well-formed \(invalid token\)/) { } |
| 873 | 100 | T | F | unless (keys %xml_parser_encoding) |
| 875 | 100 | T | F | if (not $add_decl) { } |
| 876 | 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'}) { } |
| 883 | 50 | T | F | if ($add_decl) { } |
| 922 | 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) |
| 936 | 50 | T | F | if (_use('Encode')) { } |
| 0 | T | F | elsif (_use('Text::Iconv')) { } |
| 0 | T | F | elsif (_use('Unicode::Map8') and _use('Unicode::String')) { } |
| 940 | 0 | T | F | if ($converter) |
| 967 | 50 | T | F | if ($2 and $block_tag{$2}) { } |
| 0 | T | F | elsif ($3 and $block_tag{$3}) { } |
| 968 | 50 | T | F | unless $2 =~ m[/>] |
| 986 | 100 | T | F | if ($text_type{$type}) { } |
| 1011 | 100 | T | F | if ($disallowed{$module}) |
| 1012 | 100 | T | F | if ($used{$module}) |
| 1013 | 100 | T | F | if (eval "require $module") { } |
| 1015 | 50 | T | F | if (${"${module}::VERSION";} >= $version) { } |
| 1027 | 100 | T | F | if ($n > 0) { } |
| 100 | T | F | elsif ($n < 0) { } |
| 1028 | 100 | T | F | if $i == $n |
| 100 | T | F | if (&$coderef) |
| 1030 | 100 | T | F | if $i == $n |
| 100 | T | F | if (&$coderef) |
| 1038 | 100 | T | F | if ($uri =~ m[^\w+://]) { } |
| 1045 | 100 | T | F | if (defined $base and not $filename =~ m[^(?:[\\/]|\w+:)]) |
| 1056 | 100 | T | F | unless open TWIG_TO_SLURP, "<$filename" |
| 1079 | 50 | T | F | unless _use('LWP') |
| 1080 | 50 | T | F | if ($^O ne 'VMS') { } |
| 1081 | 50 | T | F | unless pipe README, WRITEME |
| 1082 | 100 | T | F | if (my $pid = fork) { } |
| 1085 | 100 | T | F | $safe ? : |
| 1087 | 100 | T | F | $@ ? : |
| 1099 | 100 | T | F | unless $response->is_success |
| 1109 | 0 | T | F | unless $response->is_success |
| 1110 | 0 | T | F | $safe ? : |
| 1111 | 0 | T | F | $@ ? : |
| 1135 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 1143 | 50 | T | F | if (@saved_default_handler and defined $saved_default_handler[1]) { } |
| 1157 | 100 | T | F | if ($$p{'twig'}{'twig_doctype'}{'has_internal'} and not $expat_1_95_2) |
| 1172 | 100 | T | F | unless $_[0] |
| 100 | T | F | if isa($_[0], 'GLOB') or isa($_[0], 'IO::Scalar') |
| 1179 | 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) |
| 1197 | 100 | T | F | if ($path =~ /^\s*($ALL|$DEFAULT|#COMMENT)\s*$/io) { } |
| 1207 | 100 | T | F | if (my $handler_data = _parse_xpath_handler($path, $handler)) { } |
| 1219 | 100 | T | F | $$handlers{'xpath_handler'}{$tag} ? : |
| 1221 | 100 | T | F | if ($prev_handler) |
| 1223 | 100 | T | F | if $$handler_data{'handler'} |
| 1226 | 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) |
| 1241 | 100 | T | F | if ($path =~ /^\s*(?:\?|#PI)\s*(?:([^\s]*)\s*)$/) { } |
| 1255 | 100 | T | F | if ($path =~ /^ \s* level \s* \( \s* ([0-9]+) \s* \) \s* $/ox) { } |
| 1271 | 100 | T | F | if ($path =~ /^\(\?([xism]*)(?:-[xism]*)?:(.*)\)$/) { } |
| 1290 | 50 | T | F | if ($DEBUG_HANDLER >= 1) |
| 1294 | 50 | T | F | if ($DEBUG_HANDLER and $path_to_check =~ /\S/) |
| 1295 | 100 | T | F | if $path_to_check =~ /\S/ |
| 1311 | 100 | T | F | if ($2) { } |
| 1312 | 100 | T | F | if ($last_token_is_sep) |
| 1316 | 100 | T | F | if (defined $last_token_is_sep and not $last_token_is_sep) |
| 1322 | 100 | T | F | if ($last_token_is_sep) |
| 1336 | 100 | T | F | $xpath_original =~ m[^\s*/(?!/)] ? : |
| 1345 | 50 | T | F | $DEBUG_HANDLER >= 2 ? : |
| 1347 | 100 | T | F | if ($predicate) |
| 1348 | 50 | T | F | if ($DEBUG_HANDLER >= 2) |
| 1351 | 50 | T | F | if ($DEBUG_HANDLER >= 2) |
| 1354 | 100 | T | F | $tag ne '*' ? : |
| 1360 | 100 | T | F | if ($sep eq '/') { } |
| 50 | T | F | elsif ($sep eq '//') { } |
| 1388 | 50 | T | F | $DEBUG_HANDLER >= 2 ? : |
| 1399 | 100 | T | F | if ($anchored) |
| 1401 | 50 | T | F | $DEBUG_HANDLER >= 2 ? : |
| 1405 | 50 | T | F | if $DEBUG_HANDLER >= 2 |
| 1407 | 50 | T | F | if $DEBUG_HANDLER >= 1 |
| 1409 | 50 | T | F | if ($@) |
| 1412 | 50 | T | F | if $DEBUG_HANDLER >= 1 |
| 1413 | 50 | T | F | if $DEBUG_HANDLER >= 1 |
| 1429 | 100 | T | F | if ($func or $string_regexp or $string_test_num or $string_test_alpha) |
| 1431 | 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) { } |
| 1432 | 100 | T | F | $att =~ /^#/ ? : |
| 1435 | 100 | T | F | $bare_att =~ /^#/ ? : |
| 1447 | 0 | T | F | $2 eq '=' ? : |
| 1450 | 0 | T | F | $and_or eq 'and' ? : |
| 1485 | 50 | T | F | if $$handlers{'attcond_handlers'} |
| 1565 | 100 | T | F | if isa($$handlers{$path}, 'CODE') |
| 1575 | 100 | T | F | if (my $type = $$handler_data{'test_on_text'}) |
| 1590 | 100 | T | F | if ($$t{'twig_parsing'}) |
| 1594 | 100 | T | F | if ($weakrefs) |
| 1611 | 100 | T | F | $@ ? : |
| 1617 | 100 | T | F | $@ ? : |
| 1631 | 100 | T | F | if $t->root |
| 1640 | 100 | T | F | unless $$t{'twig_current'} |
| 1641 | 100 | T | F | if ($$t{'twig_stored_spaces'} or $option{'force'} or $$t{'twig_preserve_space'}) |
| 1642 | 100 | T | F | if ($$t{'twig_current'}->is_pcdata) { } |
| 1646 | 100 | T | F | unless (defined $$t{'twig_space_policy'}{$current_gi}) |
| 1649 | 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'}) |
| 1674 | 100 | T | F | if ($$t{'twig_in_pcdata'}) |
| 1681 | 100 | T | F | if (my $func = $$t{'parse_start_tag'}) { } |
| 50 | T | F | elsif ($$t{'twig_entities_in_attribute'}) { } |
| 1690 | 100 | T | F | if ($$t{'twig_read_external_dtd'}) |
| 1693 | 100 | T | F | if (my $filter = $$t{'twig_input_filter'}) |
| 1698 | 100 | T | F | if ($$t{'twig_map_xmlns'}) |
| 1705 | 100 | T | F | if ($weakrefs) |
| 1708 | 100 | T | F | if $parent |
| 1712 | 100 | T | F | if ($parent) { } |
| 1714 | 100 | T | F | if ($prev_sibling) |
| 1716 | 100 | T | F | if ($weakrefs) |
| 1719 | 100 | T | F | if ($weakrefs) |
| 1720 | 100 | T | F | unless ($$parent{'first_child'}) |
| 1721 | 100 | T | F | if ($weakrefs) |
| 1727 | 50 | T | F | if defined $$t{'twig_dtd_handler'} |
| 1732 | 100 | T | F | if ($$t{'twig_default_print'}) { } |
| 100 | T | F | elsif ($$t{'twig_roots'}) { } |
| 1740 | 100 | T | F | $p->recognized_string =~ m[/\s*>$]s ? : |
| 1742 | 100 | T | F | if $$t{'extra_data'} |
| 1747 | 100 | T | F | if (defined $id) |
| 1749 | 100 | T | F | if ($weakrefs) |
| 1753 | 100 | T | F | if ($$t{'twig_starttag_handlers'}) |
| 1760 | 100 | T | F | unless &$handler($t, $elt) |
| 1762 | 100 | T | F | if (my $all = $$t{'twig_starttag_handlers'}{'handlers'}{$ALL}) |
| 1767 | 100 | T | F | if ($$t{'twig_ignore_elts_handlers'}) |
| 1770 | 100 | T | F | if (@handlers) |
| 1773 | 100 | T | F | if ($$elt{'att'}{'xml:space'} and $$elt{'att'}{'xml:space'} eq 'preserve') |
| 1783 | 100 | T | F | if (not $$t{'twig_keep_original_prefix'} and my $mapped_prefix = $$t{'twig_map_xmlns'}{$uri}) |
| 1786 | 100 | T | F | if ($new_prefix eq '#default') { } |
| 1792 | 100 | T | F | if ($$t{'twig_keep_original_prefix'}) { } |
| 1797 | 100 | T | F | if ($$ns_info{'mapped_prefix'}) |
| 1803 | 100 | T | F | if ($att_name) { } |
| 1806 | 100 | T | F | if ($$ns_info{'mapped_prefix'}) |
| 1815 | 100 | T | F | if $map_att |
| 1821 | 100 | T | F | if ($att_name) { } |
| 1836 | 100 | T | F | unless $$ns_info{'uri'} |
| 1847 | 100 | T | F | if ($p->expand_ns_prefix($prefix) eq $uri) |
| 1859 | 100 | T | F | if (not exists $value{$att} and exists $$attlist{$att}{'default'} and $$attlist{$att}{'default'} ne '#IMPLIED') |
| 1881 | 100 | T | F | if ($string =~ s[^<\s*($REG_NAME)\s*[\s>/]][]s) { } |
| 1894 | 100 | T | F | if ($weakrefs) |
| 1904 | 100 | T | F | if ($$t{'twig_map_xmlns'}) |
| 1913 | 100 | T | F | if ($$t{'twig_in_pcdata'}) |
| 1915 | 50 | T | F | if $$elt{'parent'} |
| 1921 | 100 | T | F | if $parent |
| 1925 | 100 | T | F | if ($$parent{'twig_to_be_normalized'}) |
| 1927 | 100 | T | F | if ($$t{'extra_data'}) |
| 1930 | 100 | T | F | if ($$t{'twig_handlers'}) |
| 1934 | 100 | T | F | if ($$t{'twig_tdh'}) { } |
| 1935 | 100 | T | F | if (@handlers) |
| 1936 | 100 | T | F | if (my $all = $$t{'twig_handlers'}{'handlers'}{$ALL}) |
| 1944 | 100 | T | F | unless &$handler($t, $elt) |
| 1946 | 100 | T | F | if (my $all = $$t{'twig_handlers'}{'handlers'}{$ALL}) |
| 1952 | 100 | T | F | if ($$t{'twig_root_depth'} and $p->depth == $$t{'twig_root_depth'}) |
| 1953 | 100 | T | F | if ($$t{'twig_default_print'}) { } |
| 1956 | 100 | T | F | if ($$t{'twig_keep_encoding'}) { } |
| 1965 | 100 | T | F | if ($$elt{'att'}{'xml:space'} and $$elt{'att'}{'xml:space'} eq 'preserve') |
| 1974 | 50 | T | F | if (@{$$t{'twig_handlers_to_trigger'};}) |
| 1979 | 50 | T | F | unless &$handler($t, $handled_elt) |
| 2003 | 100 | T | F | if (my $found_path = &$trigger($$t{'_twig_context_stack'})) |
| 2010 | 100 | T | F | if (not @found_handlers and defined $$handlers{'handlers'}{$DEFAULT}) |
| 2013 | 100 | T | F | if (@found_handlers and $$t{'twig_do_not_chain_handlers'}) |
| 2027 | 100 | T | F | if (not $uri and not $name =~ /^xml/) |
| 2028 | 100 | T | F | if ($uri) { } |
| 2029 | 100 | T | F | if (my $mapped_prefix = $$t{'twig_map_xmlns'}{$uri}) { } |
| 2033 | 100 | T | F | if ($prefix eq '#default') |
| 2034 | 100 | T | F | $prefix ? : |
| 2048 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2049 | 100 | T | F | if (not $$t{'twig_in_cdata'}) { } |
| 2054 | 100 | T | F | if (length $string < 1024) { } |
| 2064 | 100 | T | F | if ($$t{'twig_input_filter'}) |
| 2067 | 100 | T | F | if ($$t{'twig_char_handler'}) |
| 2072 | 100 | T | F | if ($$t{'twig_in_cdata'}) { } |
| 100 | T | F | elsif ($$t{'twig_in_pcdata'}) { } |
| 2078 | 100 | T | F | if ($$t{'extra_data'}) |
| 2086 | 100 | T | F | if ($string =~ /\A\s*\Z/s) { } |
| 2087 | 100 | T | F | if ($$t{'extra_data'}) { } |
| 2102 | 100 | T | F | if ($$t{'extra_data'}) |
| 2121 | 100 | T | F | if ($$t{'twig_in_pcdata'}) { } |
| 2123 | 50 | T | F | if ($weakrefs) |
| 2126 | 50 | T | F | if ($weakrefs) |
| 2127 | 50 | T | F | if ($weakrefs) |
| 2132 | 100 | T | F | if ($t->_space_policy($XML::Twig::index2gi[$$twig_current{'gi'}]) and $$t{'twig_stored_spaces'}) |
| 2137 | 50 | T | F | if ($weakrefs) |
| 2138 | 100 | T | F | if (my $prev_sibling = $$twig_current{'last_child'}) { } |
| 2139 | 50 | T | F | if ($weakrefs) |
| 2144 | 50 | T | F | if ($weakrefs) |
| 2151 | 100 | T | F | if ($$t{'extra_data'}) |
| 2170 | 100 | T | F | if ($$t{'twig_handlers'}) |
| 2174 | 100 | T | F | unless &$handler($t, $elt) |
| 2191 | 50 | T | F | unless &$handler($t, $pi) |
| 100 | T | F | if ($handler) |
| 2196 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'pi_handlers'}{$target}) |
| 2198 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'pi_handlers'}{''}) |
| 2200 | 100 | T | F | defined $data && $data ne '' ? : |
| 2205 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'handlers'}{'#COMMENT'}) |
| 2211 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'handlers'}{'#COMMENT'}) |
| 2213 | 100 | T | F | if (not defined $comment or $comment eq '') |
| 2226 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2240 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2254 | 100 | T | F | if ($$t{'twig_input_filter'}) |
| 2258 | 100 | T | F | if ($keep) { } |
| 100 | T | F | elsif ($process) { } |
| 2260 | 100 | T | F | if ($$t{'twig_stored_spaces'}) |
| 2275 | 100 | T | F | if ($$t{'extra_data'}) |
| 2280 | 100 | T | F | if (not $t->root) { } |
| 100 | T | F | elsif ($$t{'twig_in_pcdata'}) { } |
| 100 | T | F | elsif ($twig_current) { } |
| 2290 | 100 | T | F | if ($t->_space_policy($XML::Twig::index2gi[$$twig_current{'gi'}]) and $$t{'twig_stored_spaces'}) |
| 2299 | 100 | T | F | if ($twig_current) |
| 2325 | 100 | T | F | $p->isa('XML::Twig') ? : |
| 2328 | 100 | T | F | if ($$t{'extra_data'}) |
| 2333 | 100 | T | F | if $$t{'twig_tdh'} |
| 2335 | 100 | T | F | if $$t{'twig_original_selected_fh'} |
| 2337 | 100 | T | F | if (exists $$t{'twig_autoflush_data'}) |
| 2339 | 100 | T | F | if $$t{'twig_autoflush_data'}{'fh'} |
| 2340 | 100 | T | F | if $$t{'twig_autoflush_data'}{'args'} |
| 2362 | 100 | T | F | if ($prev_sibling) { } |
| 2364 | 50 | T | F | if ($weakrefs) |
| 2369 | 100 | T | F | if ($weakrefs) |
| 2370 | 100 | T | F | if ($weakrefs) |
| 2378 | 100 | T | F | if $$t{'twig_discard_spaces'} |
| 2379 | 100 | T | F | if $$t{'twig_keep_spaces'} |
| 2380 | 100 | T | F | if $$t{'twig_keep_spaces_in'} and $$t{'twig_keep_spaces_in'}{$gi} |
| 2382 | 100 | T | F | if $$t{'twig_discard_spaces_in'} and $$t{'twig_discard_spaces_in'}{$gi} |
| 2398 | 100 | T | F | if ($sysid) |
| 2399 | 100 | T | F | if ($ndata) { } |
| 2400 | 100 | T | F | if (not -f _based_filename($sysid, $p->base)) |
| 2403 | 100 | T | F | if ($$t{'twig_expand_external_ents'}) |
| 2405 | 100 | T | F | if (not defined $val) |
| 2406 | 100 | T | F | if ($$t{'twig_extern_ent_nofail'}) { } |
| 2416 | 100 | T | F | if ($missing_entity) |
| 2419 | 50 | T | F | if ($entity_list) |
| 2421 | 50 | T | F | if ($parser_version > 2.27) |
| 2425 | 100 | T | F | if ($$t{'twig_keep_encoding'}) |
| 2426 | 50 | T | F | if (defined $$ent{'val'} and not $ent_decl =~ /["']/) |
| 2428 | 0 | T | F | $val =~ /"/ ? : |
| 2433 | 50 | T | F | unless $$t{'twig_doctype'}{'internal'} =~ /<!ENTITY\s+$name\s+/ |
| 2445 | 50 | T | F | if ($$t{'twig_no_expand'}) |
| 2446 | 0 | T | F | $$t{'twig_keep_encoding'} ? : |
| 2451 | 100 | T | F | if (not defined $ent_content) |
| 2456 | 50 | T | F | if ($$t{'twig_extern_ent_nofail'}) { } |
| 2491 | 50 | T | F | if ($parser_version > 2.27) { } |
| 2507 | 100 | T | F | if ($$t{'twig_read_external_dtd'} and $sysid) |
| 2516 | 50 | T | F | if $t_dtd->entity_list |
| 2532 | 50 | T | F | if ($parser_version > 2.27 and $$t{'twig_doctype'}{'internal'} =~ /(^|>)\s*$/) |
| 2533 | 50 | T | F | $XML::Twig::Elt::keep_encoding ? : |
| 2534 | 50 | T | F | unless ($text) |
| 2553 | 50 | T | F | if ($parser_version > 2.27 and $$t{'twig_doctype'}{'internal'} =~ /(^|>)\s*$/) |
| 2554 | 50 | T | F | $XML::Twig::Elt::keep_encoding ? : |
| 2555 | 50 | T | F | unless ($text) |
| 2559 | 100 | T | F | if $fixed |
| 2560 | 50 | T | F | if defined $default |
| 2562 | 100 | T | F | if ($$t{'twig_dtd'}{'att'}{$gi}) { } |
| 2575 | 50 | T | F | if defined $default |
| 2588 | 100 | T | F | unless $string =~ /^&([^;]*);$/ |
| 2590 | 50 | T | F | if ($p->original_string =~ /^</ and $p->original_string =~ />$/) { } |
| 2592 | 0 | T | F | if $$t{'twig_do_not_escape_amp_in_atts'} |
| 2596 | 100 | T | F | if ($$t{'twig_keep_encoding'}) { } |
| 2619 | 100 | T | F | if ($$t{'twig_in_pcdata'}) { } |
| 2622 | 50 | T | F | if ($weakrefs) |
| 2625 | 50 | T | F | if ($weakrefs) |
| 2626 | 50 | T | F | if ($weakrefs) |
| 2635 | 50 | T | F | if ($weakrefs) |
| 2636 | 100 | T | F | if (my $prev_sibling = $$twig_current{'last_child'}) { } |
| 2637 | 50 | T | F | if ($weakrefs) |
| 2641 | 50 | T | F | if ($twig_current) |
| 2642 | 50 | T | F | if ($weakrefs) |
| 50 | T | F | if ($twig_current) |
| 2658 | 100 | T | F | unless $$t{'twig_xmldecl'} or $$t{'output_encoding'} |
| 2661 | 100 | T | F | if ($decl) { } |
| 2668 | 100 | T | F | if ($$t{'output_encoding'}) { } |
| 100 | T | F | elsif ($$decl{'encoding'}) { } |
| 2677 | 100 | T | F | if (defined $$decl{'standalone'}) |
| 2679 | 100 | T | F | $$decl{'standalone'} ? : |
| 2691 | 100 | T | F | $output_filter ? : |
| 2696 | 100 | T | F | unless defined $$t{'twig_doctype'} |
| 2698 | 50 | T | F | if defined $name |
| 2699 | 100 | T | F | if defined $system |
| 2700 | 100 | T | F | if defined $public |
| 2701 | 100 | T | F | if defined $internal |
| 2706 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2712 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2718 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2724 | 100 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 2738 | 100 | T | F | if $elt |
| 2765 | 50 | T | F | _is_fh($_[0]) ? : |
| 2772 | 100 | T | F | if ($$t{'no_prolog'}) |
| 2774 | 100 | T | F | defined $$t{'no_dtd_output'} ? : |
| 50 | T | F | $$t{'no_prolog'} ? : |
| 2787 | 100 | T | F | if ($doctype) |
| 2788 | 50 | T | F | if $$doctype{'name'} |
| 2789 | 100 | T | F | if $$doctype{'pub'} |
| 2790 | 100 | T | F | if $$doctype{'sysid'} and not $$doctype{'pub'} |
| 2791 | 100 | T | F | if $$doctype{'sysid'} |
| 2794 | 100 | T | F | if ($update_dtd) { } |
| 100 | T | F | elsif ($doctype) { } |
| 2795 | 100 | T | F | if ($doctype) { } |
| 50 | T | F | elsif (not $$t{'twig_dtd'} and keys %{$t->entity_list;}) { } |
| 2798 | 100 | T | F | if ($internal) |
| 2803 | 50 | T | F | if $t->entity_list |
| 2804 | 100 | T | F | if ($internal) |
| 2814 | 100 | T | F | if (my $internal = $$doctype{'internal'}) |
| 2826 | 100 | T | F | if ($doctype_text) { } |
| 2833 | 50 | T | F | $output_filter ? : |
| 2858 | 100 | T | F | unless open TWIG_PRINT_TO_FILE, ">$filename" |
| 2859 | 50 | T | F | if ($] > 5.006 and not $$t{'twig_keep_encoding'}) |
| 2867 | 100 | T | F | _is_fh($_[0]) ? : |
| 2870 | 100 | T | F | defined $fh ? : |
| 2871 | 100 | T | F | defined $args{'PrettyPrint'} ? : |
| 2872 | 100 | T | F | defined $args{'EmptyTags'} ? : |
| 2881 | 100 | T | F | if defined $old_pretty |
| 2882 | 100 | T | F | if defined $old_empty_tag |
| 2883 | 100 | T | F | if ($fh) |
| 2892 | 50 | T | F | if $$t{'twig_tdh'} |
| 2894 | 100 | T | F | if $$t{'twig_completely_flushed'} |
| 2896 | 100 | T | F | _is_fh($_[0]) ? : |
| 2897 | 100 | T | F | defined $fh ? : |
| 2898 | 100 | T | F | ref $_[0] ? : |
| 2902 | 100 | T | F | if (defined $args{'PrettyPrint'}) |
| 2908 | 100 | T | F | if ($args{'EmptyTags'}) |
| 2917 | 100 | T | F | if ($up_to) { } |
| 100 | T | F | elsif ($$t{'twig_current'}) { } |
| 2929 | 100 | T | F | unless ($elt->_flushed) |
| 2931 | 100 | T | F | if ($$t{'twig_autoflush'}) |
| 2933 | 100 | T | F | if $fh |
| 2934 | 100 | T | F | if @_ |
| 2942 | 100 | T | F | if ($last_elt and $last_elt->in($elt)) { } |
| 2944 | 100 | T | F | unless ($elt->_flushed) |
| 2956 | 100 | T | F | if $last_elt and $elt == $last_elt |
| 2961 | 100 | T | F | if ($flush_trailing_data) |
| 2966 | 100 | T | F | if defined $old_select |
| 2967 | 100 | T | F | if defined $old_pretty |
| 2968 | 100 | T | F | if defined $old_empty_tag_style |
| 2979 | 100 | T | F | if (_is_fh($_[0])) { } |
| 2996 | 100 | T | F | if (defined $args{'PrettyPrint'}) |
| 3002 | 100 | T | F | if (defined $args{'EmptyTags'}) |
| 3014 | 100 | T | F | if defined $old_pretty |
| 3015 | 100 | T | F | if defined $old_empty_tag_style |
| 3029 | 50 | T | F | if $$t{'twig_tdh'} |
| 3033 | 100 | T | F | if ($up_to) { } |
| 100 | T | F | elsif ($$t{'twig_current'}) { } |
| 3044 | 100 | T | F | if ($last_elt and $last_elt->in($elt)) { } |
| 3052 | 100 | T | F | if $last_elt and $elt == $last_elt |
| 3076 | 50 | T | F | if $] < 5.006 |
| 3079 | 100 | T | F | ref $twig_or_class ? : |
| 3084 | 100 | T | F | if $elt_class->can($att) and not $accessor{$att} |
| 3087 | 100 | T | F | if (not $accessor{$att}) |
| 3091 | 100 | T | F | if (@_) |
| 3105 | 100 | T | F | if $root->passes($cond) |
| 3117 | 100 | T | F | if $t->root->matches($cond) |
| 3123 | 100 | T | F | if (isa($_[0], 'ARRAY')) { } |
| 3136 | 100 | T | F | unless @unique and $unique[-1] == $current |
| 3142 | 100 | T | F | if (isa($_[0], 'ARRAY')) { } |
| 3159 | 100 | T | F | defined $index ? : |
| 3167 | 100 | T | F | if (not $cond && !$root->passes($cond)) { } |
| 3186 | 100 | T | F | if ($root->passes($cond)) { } |
| 3221 | 100 | T | F | unless $index = $XML::Twig::gi2index{$old_gi} |
| 3233 | 50 | T | F | unless my $doctype = $$t{'twig_doctype'} |
| 3240 | 100 | T | F | if ($$dtd{'att'}{$gi}) |
| 3245 | 100 | T | F | if ($$attlist{$att}{'fixed'}) { } |
| 3254 | 50 | T | F | if $t->entity_list |
| 3262 | 100 | T | F | _is_fh($_[0]) ? : |
| 3263 | 100 | T | F | if ($fh) { } |
| 3280 | 100 | T | F | unless $$t{'twig_parsing'} |
| 3288 | 50 | T | F | if ($$t{'twig_map_xmlns'}) { } |
| 3303 | 100 | T | F | if (not defined $fh) { } |
| 50 | T | F | elsif (defined $fh) { } |
| 3307 | 50 | T | F | if $old_fh |
| 3311 | 100 | T | F | if ($$t{'twig_keep_encoding'}) { } |
| 3329 | 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}) { } |
| 3389 | 50 | T | F | if ($$t{'twig_root'} and isa($$t{'twig_root'}, 'XML::Twig')) |
| 3394 | 100 | T | F | if $$t{'twig_root'} |
| 3414 | 50 | T | F | if ($string eq '<!DOCTYPE') { } |
| 3430 | 50 | T | F | if ($expat_1_95_2 and $p->recognized_string eq '[' and not $$p{'twig'}{'expat_1_95_2_seen_bracket'}) { } |
| 3454 | 50 | T | F | if ($string eq '<!DOCTYPE') { } |
| 3477 | 50 | T | F | if ($name) |
| 3481 | 50 | T | F | if $name |
| 3482 | 50 | T | F | if $pubid |
| 3483 | 100 | T | F | if $sysid and not $pubid |
| 3484 | 100 | T | F | if $sysid |
| 3485 | 100 | T | F | if $internal and not $expat_1_95_2 |
| 3486 | 100 | T | F | unless $internal or $expat_1_95_2 |
| 3497 | 50 | T | F | if ($name) |
| 3501 | 50 | T | F | if $name |
| 3502 | 50 | T | F | if $pubid |
| 3503 | 100 | T | F | if $sysid and not $pubid |
| 3504 | 100 | T | F | if $sysid |
| 3505 | 100 | T | F | if $internal |
| 3506 | 100 | T | F | unless $internal or $expat_1_95_2 |
| 3539 | 100 | T | F | unless ($p->depth == 0) |
| 3540 | 100 | T | F | if ($$t{'twig_map_xmlns'}) |
| 3546 | 100 | T | F | if (_handler($t, $$t{'twig_roots'}, $gi, \%att)) |
| 3555 | 100 | T | F | $$t{'twig_keep_encoding'} ? : |
| 100 | T | F | $$t{'twig_default_print'} ? : |
| 3559 | 100 | T | F | if ($p->depth == 0) { } |
| 100 | T | F | elsif ($$t{'twig_starttag_handlers'}) { } |
| 3561 | 100 | T | F | if $tag |
| 3573 | 50 | T | F | unless $last_handler_res |
| 3576 | 100 | T | F | if $tag and !@handlers || $last_handler_res |
| 3580 | 100 | T | F | if $tag |
| 3591 | 100 | T | F | $$t{'twig_keep_encoding'} ? : |
| 100 | T | F | $$t{'twig_default_print'} ? : |
| 3596 | 100 | T | F | if ($$t{'twig_endtag_handlers'}) |
| 3602 | 50 | T | F | if (not $last_handler_res) |
| 3609 | 100 | T | F | if defined $tag |
| 3611 | 100 | T | F | if ($p->depth == 0) |
| 3625 | 50 | T | F | $$t{'twig_keep_encoding'} ? : |
| 100 | T | F | $$t{'twig_default_print'} ? : |
| 3630 | 100 | T | F | if (my $handler = $$t{'twig_handlers'}{'pi_handlers'}{$target} || $$t{'twig_handlers'}{'pi_handlers'}{''}) { } |
| 3642 | 50 | T | F | if defined $pi |
| 3655 | 50 | T | F | if ($action eq 'print') |
| 3669 | 50 | T | F | if ($action eq 'print') |
| 3676 | 100 | T | F | if (not $$t{'twig_ignore_level'}) |
| 3690 | 100 | T | F | if ($$t{'twig_endtag_handlers'}) |
| 3708 | 100 | T | F | if (not $elt && isa($elt, 'XML::Twig::Elt')) |
| 3714 | 100 | T | F | unless ($elt == $current or $$current{'last_child'} and $elt == $$current{'last_child'} or $current->in($elt)) |
| 3717 | 100 | T | F | $current == $elt ? : |
| 3726 | 50 | T | F | if ($action eq 'print') |
| 3741 | 100 | T | F | if ($$elt_in_stack{'_elt'} and $elt == $$elt_in_stack{'_elt'}) |
| 3752 | 100 | T | F | if ($output_fh and not $$t{'twig_output_fh_selected'}) |
| 3764 | 100 | T | F | unless $$t{'twig_output_fh'} |
| 3773 | 50 | T | F | if $_[0]{'twig_xmldecl'} |
| 3778 | 50 | T | F | unless $t->xml_version |
| 3790 | 100 | T | F | if ($encoding and not $encoding =~ /^utf-?8$/i or $$t{'twig_keep_encoding'} or $output_filter) |
| 3797 | 50 | T | F | if $_[0]{'twig_xmldecl'} |
| 3806 | 50 | T | F | if $_[0]{'twig_xmldecl'} |
| 3811 | 50 | T | F | unless $t->xml_version |
| 3819 | 100 | T | F | if defined $_[0]{'twig_parser'} |
| 3826 | 100 | T | F | if defined $_[0]{'twig_parser'} |
| 3836 | 100 | T | F | if (my $start_document = $handler->can('start_document')) |
| 3841 | 50 | T | F | if ($t->root) |
| 3842 | 50 | T | F | if (my $end_document = $handler->can('end_document')) |
| 3864 | 100 | T | F | if ($$t{'twig_current'}) { } |
| 3870 | 100 | T | F | unless ($elt->_flushed) |
| 3872 | 50 | T | F | if (my $start_document = $handler->can('start_document')) |
| 3880 | 100 | T | F | if ($last_elt and $last_elt->in($elt)) { } |
| 3882 | 100 | T | F | unless ($elt->_flushed) |
| 3884 | 50 | T | F | if (my $start_element = $handler->can('start_element')) |
| 3885 | 50 | T | F | if (my $tag_data = &$start_tag_data($elt)) |
| 3897 | 100 | T | F | if $last_elt and $elt == $last_elt |
| 3901 | 100 | T | F | if (not $$t{'twig_parsing'}) |
| 3902 | 50 | T | F | if (my $end_document = $handler->can('end_document')) |
| 3921 | 100 | T | F | if (my $xml_decl = $handler->can('xml_decl')) |
| 3928 | 100 | T | F | unless $doctype |
| 3934 | 50 | T | F | if (my $start_dtd = $handler->can('start_dtd')) |
| 3939 | 50 | T | F | if (my $end_dtd = $handler->can('end_dtd')) |
| 3947 | 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 | if (_use('Encode')) { } |
| 0 | T | F | elsif (_use('Text::Iconv')) { } |
| 0 | T | F | elsif (_use('Unicode::Map8') and _use('Unicode::String')) { } |
| 3985 | 50 | T | F | unless _use('HTML::Entities') |
| 3991 | 50 | T | F | if ($] < 5.008) { } |
| 4003 | 50 | T | F | if ($] < 5.008) { } |
| 4020 | 50 | T | F | if ($len == 2) { } |
| 0 | T | F | elsif ($len == 3) { } |
| 0 | T | F | elsif ($len == 4) { } |
| 0 | T | F | elsif ($len == 1) { } |
| 4038 | 100 | T | F | $hex ? : |
| 4044 | 50 | T | F | $_[1] ? : |
| 4045 | 50 | T | F | unless _use('Unicode::Map8') |
| 4046 | 50 | T | F | unless _use('Unicode::String') |
| 4056 | 50 | T | F | unless ($sub) |
| 4061 | 50 | T | F | $_[1] ? : |
| 4062 | 50 | T | F | unless _use('Text::Iconv') |
| 4071 | 100 | T | F | unless ($sub) |
| 4072 | 50 | T | F | if ($@ =~ /^Unsupported conversion: Invalid argument/) { } |
| 4082 | 50 | T | F | $_[1] ? : |
| 4084 | 50 | T | F | unless $sub |
| 4092 | 100 | T | F | wantarray ? : |
| 4102 | 50 | T | F | if ($t->root) |
| 4134 | 100 | T | F | unless $ents_to_add and %$ents_to_add |
| 4155 | 100 | T | F | if (isa(ref $_[0], 'XML::Twig::Entity')) { } |
| 4171 | 50 | T | F | defined $fh ? : |
| 4176 | 50 | T | F | if (isa($ent, 'XML::Twig::Entity')) |
| 4178 | 50 | T | F | if defined $old_select |
| 4213 | 100 | T | F | if defined $val |
| 4214 | 100 | T | F | if defined $sysid |
| 4215 | 100 | T | F | if defined $pubid |
| 4216 | 100 | T | F | if defined $ndata |
| 4217 | 100 | T | F | if defined $param |
| 4226 | 100 | T | F | defined $_[0]{'sysid'} ? : |
| 4227 | 50 | T | F | defined $_[0]{'pubid'} ? : |
| 4228 | 100 | T | F | defined $_[0]{'ndata'} ? : |
| 4229 | 100 | T | F | defined $_[0]{'param'} ? : |
| 4235 | 50 | T | F | if (not defined $text) |
| 4236 | 50 | T | F | if ($fh) { } |
| 4243 | 50 | T | F | if (not defined $text) |
| 4249 | 100 | T | F | if not $$ent{'name'} |
| 4253 | 100 | T | F | if $$ent{'param'} |
| 4256 | 100 | T | F | if (defined $$ent{'val'} and not defined $$ent{'sysid'} and not defined $$ent{'pubid'}) { } |
| 50 | T | F | elsif (defined $$ent{'sysid'}) { } |
| 4260 | 100 | T | F | if $$ent{'pubid'} |
| 4261 | 100 | T | F | unless $$ent{'pubid'} |
| 4263 | 100 | T | F | if $$ent{'ndata'} |
| 4269 | 50 | T | F | $_[0] =~ /"/ ? : |
| 4369 | 50 | T | F | if (eval 'require Scalar::Util' and defined &Scalar::Util::weaken) { } |
| 0 | T | F | elsif (eval 'require WeakRef') { } |
| 4388 | 100 | T | F | unless @_ |
| 4395 | 100 | T | F | ref $_[0] eq 'HASH' ? : |
| 4397 | 100 | T | F | if ($atts and defined $$atts{'#CDATA'}) |
| 4404 | 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') { } |
| 4405 | 100 | T | F | if (grep {ref $_;} @_) |
| 4411 | 100 | T | F | if (grep {ref $_;} @_) |
| 4415 | 100 | T | F | if (grep {ref $_;} @_) |
| 4419 | 100 | T | F | if (grep {ref $_;} @_) |
| 4424 | 100 | T | F | if (@_) { } |
| 4430 | 100 | T | F | if ($atts) |
| 4432 | 100 | T | F | if (defined $$atts{'#ASIS'}) |
| 4433 | 100 | T | F | if (defined $$atts{'#EMPTY'}) |
| 4434 | 100 | T | F | if (keys %$atts) |
| 4435 | 100 | T | F | if $$atts{$ID} |
| 4448 | 100 | T | F | if (ref $class) |
| 4457 | 100 | T | F | if ($$t{'twig_id_list'}) |
| 4474 | 100 | T | F | if ($elt->tag eq 'head') { } |
| 100 | T | F | elsif ($elt->tag ne 'html') { } |
| 4491 | 100 | T | F | unless (defined $XML::Twig::gi2index{$gi}) |
| 4515 | 100 | T | F | if ($qname =~ /^([^:]*):/) { } |
| 4536 | 100 | T | F | defined $_[0] ? : |
| 4537 | 100 | T | F | $prefix ? : |
| 4547 | 0 | T | F | if (my $prefix = $elt->ns_prefix) |
| 4549 | 0 | T | F | if (not $missing_prefix{$prefix} and not $elt->namespace) |
| 4554 | 0 | T | F | if (not $root->_inherits_declared_prefix($prefix)) |
| 4565 | 0 | T | F | if ($elt->_declares_prefix($prefix)) { } |
| 4575 | 0 | T | F | if $att eq "xmlns:$prefix" |
| 4581 | 0 | T | F | $prefix ? : |
| 4589 | 0 | T | F | if ($elt->_ns_prefix and $elt->namespace eq $uri) |
| 4599 | 100 | T | F | if $gi_nb >= $XML::Twig::SPECIAL_GI |
| 4605 | 100 | T | F | if ($_[0]{'gi'} >= $XML::Twig::SPECIAL_GI) { } |
| 4647 | 50 | T | F | defined $_[1] ? : |
| 4650 | 50 | T | F | if $_[0]{'empty'} or 0 |
| 4658 | 100 | T | F | if (exists $$descendant{'cdata'}) |
| 4670 | 50 | T | F | if $$descendant{'asis'} |
| 4681 | 100 | T | F | unless $curr_elt |
| 4688 | 100 | T | F | if ($elt->_extra_data_in_pcdata) |
| 4707 | 100 | T | F | if ($$elt{'extra_data_before_end_tag'}) { } |
| 4723 | 100 | T | F | if ((my $offset = index($modified, $initial)) != -1) { } |
| 100 | T | F | elsif (($offset = index($initial, $modified)) != -1) { } |
| 4731 | 100 | T | F | if $$_{'offset'} >= 0 |
| 4734 | 100 | T | F | unless _match_extra_data_words($elt, $initial, $modified) or _match_extra_data_chars($elt, $initial, $modified) |
| 4761 | 100 | T | F | if (@$initial <= @$modified) { } |
| 4764 | 100 | T | F | if ($ok) |
| 4779 | 100 | T | F | if ($ok) |
| 4793 | 50 | T | F | if ($$cpi{'offset'} < $prev_pos) |
| 4810 | 100 | T | F | if ($s_word ne $l_word) |
| 4815 | 100 | T | F | if (not @$long and $s_word ne $l_word) |
| 4861 | 50 | T | F | unless ($$elt{'gi'} == $XML::Twig::gi2index{'#PI'}) |
| 4876 | 50 | T | F | if (defined $data and $data ne '') |
| 4883 | 100 | T | F | unless ($$elt{'gi'} == $XML::Twig::gi2index{'#COMMENT'}) |
| 4900 | 100 | T | F | unless ($$elt{'gi'} == $XML::Twig::gi2index{'#CDATA'}) |
| 4923 | 100 | T | F | unless $elt->is_elt |
| 4925 | 100 | T | F | if $child->is_elt |
| 4933 | 100 | T | F | unless $child->is($exp) |
| 4939 | 100 | T | F | unless my $child = $$elt{'first_child'} |
| 4940 | 100 | T | F | unless $child->passes($exp) |
| 4941 | 100 | T | F | if $$child{'next_sibling'} |
| 4994 | 100 | T | F | $cond =~ s/^\s*!// ? : |
| 4996 | 100 | T | F | if (ref $cond eq 'CODE') |
| 4998 | 100 | T | F | if (ref $cond eq 'Regexp') { } |
| 5002 | 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*$/) { } |
| 5008 | 100 | T | F | if ($1 ne '*') { } |
| 5012 | 100 | T | F | if ($gi) { } |
| 5034 | 100 | T | F | $neg ? : |
| 5035 | 100 | T | F | if ($gi and $gi ne '*') { } |
| 5047 | 100 | T | F | $tag && $tag ne '*' ? : |
| 5061 | 100 | T | F | if ($@) |
| 5075 | 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) { } |
| 5084 | 100 | T | F | $and_or eq 'and' ? : |
| 5111 | 100 | T | F | if ($op eq '=') { } |
| 100 | T | F | elsif ($op eq '!=') { } |
| 5118 | 100 | T | F | unless $cond |
| 5126 | 0 | T | F | if ($XML::Twig::weakrefs) |
| 5165 | 100 | T | F | if ($child) { } |
| 5168 | 100 | T | F | if ($cond =~ /^\s*($REG_NAME)/) { } |
| 5181 | 50 | T | F | if ($XML::Twig::weakrefs) |
| 5197 | 0 | T | F | if ($XML::Twig::weakrefs) |
| 5229 | 100 | T | F | unless $new_class |
| 5231 | 50 | T | F | $class ? : |
| 5247 | 100 | T | F | unless $elt->tag eq 'span' and $elt->class |
| 5253 | 100 | T | F | unless $elt->tag eq 'div' and $elt->class |
| 5260 | 50 | T | F | unless defined $elt_class |
| 5261 | 100 | T | F | $elt->class =~ /(?:^|\s)\Q$class\E(?:\s|$)/ ? : |
| 5270 | 100 | T | F | if keep_atts_order() |
| 5271 | 100 | T | F | isa($_[0] || '', 'HASH') ? : |
| 5273 | 100 | T | F | if (exists $atts{$ID}) |
| 5285 | 100 | T | F | if ($_[0] and ref $_[0] and not $_[1]) |
| 5288 | 100 | T | F | unless ($$elt{'att'}) |
| 5290 | 100 | T | F | if keep_atts_order() |
| 5296 | 100 | T | F | if ($att eq $ID) |
| 5318 | 100 | T | F | unless defined $value |
| 5327 | 0 | T | F | if ($att ne lc $att) |
| 5338 | 100 | T | F | if exists $$elt{'att'}{$ID} |
| 5349 | 100 | T | F | if ($XML::Twig::weakrefs) |
| 5365 | 100 | T | F | if (defined $$elt{'att'}{$ID}) { } |
| 5368 | 50 | T | F | $_[0] && isa($_[0], 'CODE') ? : |
| 5377 | 50 | T | F | unless (exists $$elt{'att'}) |
| 5378 | 100 | T | F | unless (exists $$elt{'att'}{$ID}) |
| 5384 | 100 | T | F | unless ($t) |
| 5385 | 50 | T | F | if (exists $$t{'twig_id_list'}{$id}) |
| 5431 | 100 | T | F | if $child->passes($cond) |
| 5440 | 100 | T | F | wantarray ? : |
| 5447 | 100 | T | F | wantarray ? : |
| 5454 | 100 | T | F | unless $child->passes($cond) |
| 5464 | 100 | T | F | if $elt->passes($cond) |
| 5473 | 100 | T | F | if $elt->passes($cond) |
| 5482 | 100 | T | F | $include_self ? : |
| 5494 | 100 | T | F | if (defined $$elt{'att'}{$att} and !%tags || $tags{$XML::Twig::index2gi[$$elt{'gi'}]}) |
| 5508 | 100 | T | F | if (defined $$elt{'att'}{$att} and !%tags || $tags{$XML::Twig::index2gi[$$elt{'gi'}]}) |
| 5520 | 100 | T | F | if $elt->namespace('') |
| 5542 | 100 | T | F | if defined $_[0] and isa($_[0], 'XML::Twig::Elt') |
| 5548 | 100 | T | F | if ($cond) |
| 5549 | 100 | T | F | unless (defined($ind = $XML::Twig::gi2index{$cond})) |
| 5554 | 100 | T | F | if ($next_elt = $$elt{'first_child'}) { } |
| 100 | T | F | elsif ($next_elt = $$elt{'next_sibling'}) { } |
| 5561 | 100 | T | F | if $subtree_root and $elt == $subtree_root |
| 5569 | 100 | T | F | if $subtree_root and $elt == $subtree_root |
| 5574 | 100 | T | F | if $subtree_root and $subtree_root == $next_elt |
| 5577 | 100 | T | F | if $subtree_root and $subtree_root == $next_elt |
| 5598 | 100 | T | F | if (not $cond or $last_descendant->matches($cond)) { } |
| 5619 | 100 | T | F | if (defined $_[0] and isa($_[0], 'XML::Twig::Elt')) |
| 5621 | 100 | T | F | if $elt == $subtree_root |
| 5627 | 100 | T | F | if $elt == $subtree_root |
| 5628 | 100 | T | F | if ($prev_elt = $$elt{'prev_sibling'}) { } |
| 5644 | 100 | T | F | $elt ? : |
| 5650 | 100 | T | F | if not $cond or $elt->matches($cond) |
| 5656 | 100 | T | F | if (not $cond) |
| 5658 | 100 | T | F | if ($following) { } |
| 5672 | 100 | T | F | $elt ? : |
| 5678 | 100 | T | F | if not $cond or $elt->matches($cond) |
| 5684 | 100 | T | F | if (not $cond) |
| 5686 | 100 | T | F | if ($preceding) { } |
| 5699 | 100 | T | F | $cond ? : |
| 5713 | 100 | T | F | if (isa($ancestor, 'XML::Twig::Elt')) { } |
| 5715 | 100 | T | F | if $elt == $ancestor |
| 5719 | 100 | T | F | if $elt->matches($ancestor) |
| 5726 | 100 | T | F | unless my $dest = $elt->first_child(@_) |
| 5737 | 100 | T |