Condition Coverage

File:blib/lib/XML/Twig.pm
Coverage:70.8%

line%coveragecondition
12633
ABdec
0X0
100
111
eval 'require Scalar::Util' and defined \&Scalar::Util::weaken
431100
Adec
00
11
$args{'EltClass'} || 'XML::Twig::Elt'
46220
ABCDdec
0XXX0
10XX0
110X0
11100
11111
not $args{'NoLWP'} and not _use('URI') and not _use('URI::File') and not _use('LWP')
485100
ABdec
000
011
1X1
$$self{'twig_roots'} or $args{'ForceEndTagHandlersUsage'}
53750
Adec
00
11
$args{'Comments'} ||= $COMMENTS_DEFAULT
54450
Adec
00
11
$args{'Pi'} ||= $PI_DEFAULT
555100
Adec
00
11
$args{'ParseStartTag'} || \&_parse_start_tag
65067
ABdec
000
011
1X1
not ref $t or not isa($t, 'XML::Twig')
65517
ABCDEdec
0XXXX0
10XXX0
110XX0
1110X0
111100
111111
$] >= 5.008 and ${^UNICODE} and ${^UNICODE} & 24 and isa($_[0], 'GLOB') and -p $_[0]
67367
ABdec
0X0
100
111
isa($returned, 'XML::Twig') and $$returned{'twig_finish_now'}
70433
ABdec
000
011
1X1
$$t{'twig_keep_encoding'} or $] < 5.006
7390
Adec
00
11
$t->_reset_twig && 0
7460
Adec
00
11
$t->_reset_twig && 0
7530
Adec
00
11
$t->_reset_twig && 0
81867
ABdec
000
011
1X1
$parser ||= 'XML::Parser'->new
862100
ABdec
0X0
100
111
not _check_xml($xml) and $max_tries--
8740
ABdec
0X0
100
111
$encoding eq 'shift-jis' and $xml_parser_encoding{'x-sjis-jisx0221'}
0
ABdec
0X0
100
111
$encoding eq 'euc-jp' and $xml_parser_encoding{'x-euc-jp-jisx0221'}
92020
ABCDdec
0XXX0
10XX0
110X0
11100
11111
$$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
9340
ABdec
0X0
100
111
_use('Unicode::Map8') and _use('Unicode::String')
9650
ABdec
0X0
100
111
$3 and $block_tag{$3}
33
ABdec
0X0
100
111
$2 and $block_tag{$2}
1008100
Adec
00
11
$version ||= 0
104367
ABdec
0X0
100
111
defined $base and not $filename =~ m[^(?:[\\/]|\w+:)]
109167
ABdec
000
011
1X1
$agent ||= 'LWP::UserAgent'->new
11040
ABdec
000
011
1X1
$agent ||= 'LWP::UserAgent'->new
114133
ABdec
0X0
100
111
@saved_default_handler and defined $saved_default_handler[1]
115567
ABdec
0X0
100
111
$$p{'twig'}{'twig_doctype'}{'has_internal'} and not $expat_1_95_2
117067
ABdec
000
011
1X1
isa($_[0], 'GLOB') or isa($_[0], 'IO::Scalar')
1175100
Adec
00
11
$$handlers{'handlers'}{'string'}{$path} || undef
1177100
ABCDEdec
000000
000011
0001X1
001XX1
01XXX1
1XXXX1
_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)
122450
Adec
00
11
$$a{'score'}{'steps'} || 0
75
ABCdec
0000
0011
01X1
1XX1
($$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)
50
Adec
00
11
$$b{'score'}{'predicates'} || 0
50
Adec
00
11
$$a{'score'}{'predicates'} || 0
50
Adec
00
11
$$b{'score'}{'tests'} || 0
50
Adec
00
11
$$a{'score'}{'tests'} || 0
75
ABCdec
0000
0011
01X1
1XX1
($$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)
50
Adec
00
11
$$a{'score'}{'type'} || 0
50
Adec
00
11
$$b{'score'}{'type'} || 0
100
Adec
00
11
$$b{'score'}{'anchored'} || 0
100
Adec
00
11
$$a{'score'}{'anchored'} || 0
50
Adec
00
11
$$b{'score'}{'steps'} || 0
1240100
Adec
00
11
$1 || ''
125567
ABdec
0X0
100
111
!($$stack[-1]{'_tag'} =~ /^#/) && scalar @$stack == $level + 1
129233
ABdec
0X0
100
111
$DEBUG_HANDLER and $path_to_check =~ /\S/
1314100
ABdec
0X0
100
111
defined $last_token_is_sep and not $last_token_is_sep
132433
ABdec
0X0
100
111
$DEBUG_HANDLER >= 1 && "warn q{checking path '${xpath_to_display}'\n};"
1341100
Adec
00
11
$tag ||= '*'
135567
ABdec
000
011
1X1
$last_tag ||= $tag
142780
ABCDdec
00000
00011
001X1
01XX1
1XXX1
$func or $string_regexp or $string_test_num or $string_test_alpha
142933
ABdec
0X0
100
111
$string_test_num and $string_test_num =~ /string\(\s*($REG_NAME)\s*\)\s*($REG_COMP)\s*($REG_NUMBER)/
100
ABdec
0X0
100
111
$num_test and $num_test eq '='
67
ABdec
0X0
100
111
$func and $func =~ /^string/
67
ABdec
0X0
100
111
$string_regexp and $string_regexp =~ /string\(\s*($REG_NAME)\s*\)\s*($REG_MATCH)\s*($REG_REGEXP)/
67
ABdec
0X0
100
111
$string_test_alpha and $string_test_alpha =~ /string\(\s*($REG_NAME)\s*\)\s*($REG_COMP)\s*($REG_STRING)/
148867
ABdec
000
011
1X1
shift @_ || return
1498100
Adec
00
11
$$t{'twig_handlers'} ||= {}
1504100
Adec
00
11
$$t{'twig_handlers'} || undef
151250
Adec
00
11
$$t{'twig_starttag_handlers'} ||= {}
1518100
Adec
00
11
$$t{'twig_starttag_handlers'} || undef
152650
Adec
00
11
$$t{'twig_ignore_elts_handlers'} ||= {}
1540100
Adec
00
11
$$t{'twig_endtag_handlers'} ||= {}
1562100
Adec
00
11
$$t{'twig_handlers'} ||= {}
160950
Adec
00
11
$t->_reset_twig && 0
163975
ABCdec
0000
0011
01X1
1XX1
$$t{'twig_stored_spaces'} or $option{'force'} or $$t{'twig_preserve_space'}
164780
ABCDdec
00000
00011
001X1
01XX1
1XXX1
$$t{'twig_space_policy'}{$current_gi} or not $$t{'twig_stored_spaces'} =~ /\n/ or $option{'force'} or $$t{'twig_preserve_space'}
177167
ABdec
0X0
100
111
$$elt{'att'}{'xml:space'} and $$elt{'att'}{'xml:space'} eq 'preserve'
1781100
ABdec
0X0
100
111
not $$t{'twig_keep_original_prefix'} and my $mapped_prefix = $$t{'twig_map_xmlns'}{$uri}
183767
ABdec
000
011
1X1
$$t{'twig_map_xmlns'}{$$ns_info{'uri'}} || $$ns_info{'prefix'}
185775
ABCdec
0XX0
10X0
1100
1111
not exists $value{$att} and exists $$attlist{$att}{'default'} and $$attlist{$att}{'default'} ne '#IMPLIED'
1950100
ABdec
0X0
100
111
$$t{'twig_root_depth'} and $p->depth == $$t{'twig_root_depth'}
196367
ABdec
0X0
100
111
$$elt{'att'}{'xml:space'} and $$elt{'att'}{'xml:space'} eq 'preserve'
2008100
ABdec
0X0
100
111
not @found_handlers and defined $$handlers{'handlers'}{$DEFAULT}
2011100
ABdec
0X0
100
111
@found_handlers and $$t{'twig_do_not_chain_handlers'}
2025100
ABdec
0X0
100
111
not $uri and not $name =~ /^xml/
213067
ABdec
0X0
100
111
$t->_space_policy($XML::Twig::index2gi[$$twig_current{'gi'}]) and $$t{'twig_stored_spaces'}
218767
ABdec
000
011
1X1
$$t{'twig_handlers'}{'pi_handlers'} || return
2198100
ABdec
0X0
100
111
defined $data && $data ne ''
2211100
ABdec
000
011
1X1
not defined $comment or $comment eq ''
228867
ABdec
0X0
100
111
$t->_space_policy($XML::Twig::index2gi[$$twig_current{'gi'}]) and $$t{'twig_stored_spaces'}
231367
ABdec
000
011
1X1
$$t{$type} ||= $$t{'twig_elt_class'}->new('#CPI')
2378100
ABdec
0X0
100
111
$$t{'twig_keep_spaces_in'} and $$t{'twig_keep_spaces_in'}{$gi}
2380100
ABdec
0X0
100
111
$$t{'twig_discard_spaces_in'} and $$t{'twig_discard_spaces_in'}{$gi}
242433
ABdec
0X0
100
111
defined $$ent{'val'} and not $ent_decl =~ /["']/
2463100
Adec
00
11
$level || 0
247250
Adec
00
11
$$t{'twig_xmldecl'} ||= {}
248350
Adec
00
11
$$t{'twig_doctype'} ||= {}
24980
Adec
00
11
$internal ||= ''
2505100
ABdec
0X0
100
111
$$t{'twig_read_external_dtd'} and $sysid
2510100
Adec
00
11
$$t{'ErrorContext'} || 0
2525100
Adec
00
11
$$t{'twig_dtd'} ||= {}
2526100
Adec
00
11
$$t{'twig_dtd'}{'model'} ||= {}
2527100
Adec
00
11
$$t{'twig_dtd'}{'elt_list'} ||= []
253033
ABdec
0X0
100
111
$parser_version > 2.27 and $$t{'twig_doctype'}{'internal'} =~ /(^|>)\s*$/
254850
Adec
00
11
$$t{'twig_dtd'} ||= {}
2549100
Adec
00
11
$$t{'twig_dtd'}{$gi} ||= {}
255133
ABdec
0X0
100
111
$parser_version > 2.27 and $$t{'twig_doctype'}{'internal'} =~ /(^|>)\s*$/
258833
ABdec
0X0
100
111
$p->original_string =~ /^</ and $p->original_string =~ />$/
2656100
ABdec
000
011
1X1
$$t{'twig_xmldecl'} or $$t{'output_encoding'}
270550
Adec
00
11
$$doctype{'name'} || ''
2711100
Adec
00
11
$$doctype{'sysid'} || ''
2717100
Adec
00
11
$$doctype{'pub'} || ''
2723100
Adec
00
11
$$doctype{'internal'} || ''
276333
ABdec
000
011
1X1
$$t{'twig_output_fh'} || select || \*STDOUT
2780100
Adec
00
11
$args{'UpdateDTD'} || ''
2788100
ABdec
0X0
100
111
$$doctype{'sysid'} and not $$doctype{'pub'}
279333
ABdec
0X0
100
111
not $$t{'twig_dtd'} and keys %{$t->entity_list;}
2801100
Adec
00
11
$t->entity_list->text || ''
283967
ABdec
000
011
1X1
$$t{'leading_cpi'} || return('')
284567
ABdec
000
011
1X1
$$t{'trailing_cpi'} || return('')
2851100
Adec
00
11
$$t{'trailing_cpi_text'} || ''
285733
ABdec
0X0
100
111
$] > 5.006 and not $$t{'twig_keep_encoding'}
294067
ABdec
0X0
100
111
$last_elt and $last_elt->in($elt)
295467
ABdec
0X0
100
111
$last_elt and $elt == $last_elt
304267
ABdec
0X0
100
111
$last_elt and $last_elt->in($elt)
305067
ABdec
0X0
100
111
$last_elt and $elt == $last_elt
3082100
ABdec
0X0
100
111
$elt_class->can($att) and not $accessor{$att}
310233
ABdec
000
011
1X1
$t->root || return(undef)
310933
ABdec
000
011
1X1
$t->root || return(undef)
3134100
ABdec
0X0
100
111
@unique and $unique[-1] == $current
3165100
ABdec
0X0
100
111
$cond && !$root->passes($cond)
332167
ABdec
000
011
1X1
not $input_filter or isa($input_filter, 'CODE')
338167
ABdec
0X0
100
111
$$t{'twig_root'} and isa($$t{'twig_root'}, 'XML::Twig')
342225
ABCdec
0XX0
10X0
1100
1111
$expat_1_95_2 and $p->recognized_string eq '[' and not $$p{'twig'}{'expat_1_95_2_seen_bracket'}
347567
ABdec
0X0
100
111
$sysid and not $pubid
347767
ABdec
0X0
100
111
$internal and not $expat_1_95_2
347867
ABdec
000
011
1X1
$internal or $expat_1_95_2
349567
ABdec
0X0
100
111
$sysid and not $pubid
349867
ABdec
000
011
1X1
$internal or $expat_1_95_2
353167
ABdec
000
011
1X1
$$t{'twig_output_fh'} || select || \*STDOUT
356275
ABCdec
0XX0
1000
1011
11X1
$tag and !@handlers || $last_handler_res
358067
ABdec
000
011
1X1
$$t{'twig_output_fh'} || select || \*STDOUT
358767
ABdec
000
011
1X1
&$handler($t, $gi) || last
361067
ABdec
000
011
1X1
$$t{'twig_output_fh'} || select || \*STDOUT
361267
ABdec
000
011
1X1
$$t{'twig_handlers'}{'pi_handlers'}{$target} || $$t{'twig_handlers'}{'pi_handlers'}{''}
367733
ABdec
000
011
1X1
&$handler($t, $gi) || last
3690100
ABdec
0X0
100
111
$elt && isa($elt, 'XML::Twig::Elt')
3696100
ABCDdec
00X00
00X11
01000
01011
011X1
1XXX1
$elt == $current or $$current{'last_child'} and $elt == $$current{'last_child'} or $current->in($elt)
370350
Adec
00
11
shift @_ || 1
372367
ABdec
0X0
100
111
$$elt_in_stack{'_elt'} and $elt == $$elt_in_stack{'_elt'}
3734100
ABdec
0X0
100
111
$output_fh and not $$t{'twig_output_fh_selected'}
375950
Adec
00
11
$$t{'twig_xmldecl'} ||= {}
377950
Adec
00
11
$$t{'twig_xmldecl'} ||= {}
378850
Adec
00
11
$$t{'twig_xmldecl'} ||= {}
385667
ABdec
0X0
100
111
$last_elt and $last_elt->in($elt)
387367
ABdec
0X0
100
111
$last_elt and $elt == $last_elt
39230
ABdec
0X0
100
111
_use('Unicode::Map8') and _use('Unicode::String')
393633
ABdec
000
011
1X1
$_[1] || $_[0]
39370
ABdec
0X0
100
111
_use('Unicode::Map8') and _use('Unicode::String')
411067
ABdec
0X0
100
111
$ents_to_add and %$ents_to_add
418433
ABdec
000
011
1X1
ref $class || $class
423275
ABCdec
0XX0
10X0
1100
1111
defined $$ent{'val'} and not defined $$ent{'sysid'} and not defined $$ent{'pubid'}
434533
ABdec
0X0
100
111
eval 'require Scalar::Util' and defined &Scalar::Util::weaken
436067
ABdec
000
011
1X1
ref $class || $class
4373100
ABdec
0X0
100
111
$atts and defined $$atts{'#CDATA'}
4514100
ABdec
000
011
1X1
$DEFAULT_NS{$prefix} || $elt->_inherit_att_through_cut($ns_att) || ''
45250
ABdec
0X0
100
111
not $missing_prefix{$prefix} and not $elt->namespace
45650
ABdec
0X0
100
111
$elt->_ns_prefix and $elt->namespace eq $uri
461333
ABdec
000
011
1X1
exists $$elt{'ent'} || $$elt{'ent_name'}
4619100
ABdec
000
011
1X1
exists $$elt{'pcdata'} || exists $$elt{'cdata'}
4623100
Adec
00
11
$_[0]{'empty'} || 0
462950
Adec
00
11
$_[0]{'empty'} or 0
465833
ABdec
000
011
1X1
$elt->twig || return
4681100
Adec
00
11
$_[0]{'extra_data_before_end_tag'} || ''
4713100
ABdec
000
011
1X1
_match_extra_data_words($elt, $initial, $modified) or _match_extra_data_chars($elt, $initial, $modified)
474933
ABdec
000
011
1X1
shift @$positions || $length + 1
476933
ABdec
000
011
1X1
shift @$positions || $length + 1
4790100
ABdec
0X0
100
111
@$long and $s_word ne $l_word
4794100
ABdec
0X0
100
111
not @$long and $s_word ne $l_word
4823100
Adec
00
11
$_[0]{'extra_data'} || ''
485533
ABdec
0X0
100
111
defined $data and $data ne ''
4913100
Adec
00
11
@children || 1
49330
ABdec
000
011
1X1
$$elt{'parent'} || $elt->former_parent
0
ABdec
000
011
1X1
$$elt{'parent'} or $elt->former_parent
5014100
ABdec
0X0
100
111
$gi and $gi ne '*'
5026100
ABdec
0X0
100
111
$tag && $tag ne '*'
505433
ABdec
0X0
100
111
$string_test and $string_test =~ /(?:string|text)\(\s*($REG_NAME)\s*\)\s*([<>]=?)\s*($REG_VALUE)/
67
ABdec
0X0
100
111
$num_test and $num_test eq '='
67
ABdec
0X0
100
111
$func and $func =~ /^(?:string|text)/
67
ABdec
0X0
100
111
$string_regexp and $string_regexp =~ /(?:string|text)\(\s*($REG_NAME)\s*\)\s*($REG_MATCH)\s*($REG_REGEXP)/
67
ABdec
0X0
100
111
$string_eq and $string_eq =~ /(?:string|text)\(\s*($REG_NAME)\s*\)\s*(!?=)\s*($REG_VALUE)/
509867
ABdec
000
011
1X1
$cond_cache{$cond} ||= _install_cond($cond)
511067
ABdec
000
011
1X1
shift @_ || return($$elt{'parent'})
511167
ABdec
000
011
1X1
$$elt{'parent'} || return
67
ABdec
000
011
1X1
not $elt or $elt->passes($cond)
512267
ABdec
000
011
1X1
shift @_ || return($$elt{'first_child'})
512467
ABdec
000
011
1X1
$cond_cache{$cond} ||= _install_cond($cond)
5125100
ABdec
0X0
100
111
$child and not &$test_cond($child)
516567
ABdec
000
011
1X1
shift @_ || return($$elt{'last_child'})
516667
ABdec
000
011
1X1
$cond_cache{$cond} ||= _install_cond($cond)
5168100
ABdec
0X0
100
111
$child and not &$test_cond($child)
518167
ABdec
000
011
1X1
shift @_ || return($$elt{'prev_sibling'})
518267
ABdec
000
011
1X1
$cond_cache{$cond} ||= _install_cond($cond)
5184100
ABdec
0X0
100
111
$sibling and not &$test_cond($sibling)
519367
ABdec
000
011
1X1
shift @_ || return($$elt{'next_sibling'})
519433
ABdec
000
011
1X1
$cond_cache{$cond} ||= _install_cond($cond)
5196100
ABdec
0X0
100
111
$sibling and not &$test_cond($sibling)
522667
ABdec
0X0
100
111
$elt->tag eq 'span' and $elt->class
523267
ABdec
0X0
100
111
$elt->tag eq 'div' and $elt->class
5250100
Adec
00
11
$_[0] || ''
532367
ABdec
000
011
1X1
$elt->twig || $elt
534433
ABdec
0X0
100
111
$_[0] && isa($_[0], 'CODE')
535967
ABdec
000
011
1X1
shift @_ || $elt->twig
5470100
ABCdec
0XX0
1000
1011
11X1
defined $$elt{'att'}{$att} and !%tags || $tags{$XML::Twig::index2gi[$$elt{'gi'}]}
548467
ABdec
000
011
1X1
$$elt{'parent'} || $elt->former_parent
50
ABCdec
0XX0
1000
1011
11X1
defined $$elt{'att'}{$att} and !%tags || $tags{$XML::Twig::index2gi[$$elt{'gi'}]}
5518100
ABdec
0X0
100
111
defined $_[0] and isa($_[0], 'XML::Twig::Elt')
552667
ABdec
000
011
1X1
$cond_cache{$cond} ||= _install_cond($cond)
553089
ABCDEFdec
000X0X0
000X100
000X111
00100X0
0010100
0010111
0011XX1
01XXXX1
1XXXXX1
not defined $elt or not defined $cond or defined $ind and $$elt{'gi'} eq $ind or defined $test_cond and &$test_cond($elt)
5537100
ABdec
0X0
100
111
$subtree_root and $elt == $subtree_root
5545100
ABdec
0X0
100
111
$subtree_root and $elt == $subtree_root
5550100
ABdec
0X0
100
111
$subtree_root and $subtree_root == $next_elt
555167
ABdec
000
011
1X1
$$next_elt{'parent'} || return(undef)
5553100
ABdec
0X0
100
111
$subtree_root and $subtree_root == $next_elt
5574100
ABdec
000
011
1X1
not $cond or $last_descendant->matches($cond)
5595100
ABdec
0X0
100
111
defined $_[0] and isa($_[0], 'XML::Twig::Elt')
560967
ABdec
000
011
1X1
$$elt{'parent'} || return(undef)
5618100
ABdec
0X0
100
111
$elt and not $$elt{'next_sibling'}
562567
ABdec
000
011
1X1
$elt->_following_elt || return(undef)
562667
ABdec
000
011
1X1
not $cond or $elt->matches($cond)
5646100
ABdec
0X0
100
111
$elt and not $$elt{'prev_sibling'}
565367
ABdec
000
011
1X1
$elt->_preceding_elt || return(undef)
565467
ABdec
000
011
1X1
not $cond or $elt->matches($cond)
568067
ABdec
000
011
1X1
shift @_ || return(undef)
568267
ABdec
000
011
1X1
$elt->next_elt(@_) || return(undef)
587050
Adec
00
11
shift @_ || ''
5871100
ABdec
000
011
1X1
not $cond or $elt->matches($cond)
591333
ABdec
000
011
1X1
$$elt{'parent'} || last
591633
ABdec
000
011
1X1
$$next_elt{'parent'} || last MAIN
592133
ABdec
000
011
1X1
$next_elt || last MAIN
5937100
ABdec
000
011
1X1
not $cond or defined($ind = $XML::Twig::gi2index{$cond})
594933
ABdec
0X0
100
111
$subtree_root and $elt == $subtree_root
595667
ABdec
0X0
100
111
$subtree_root and $elt == $subtree_root
595933
ABdec
000
011
1X1
$$elt{'parent'} || last
596167
ABdec
0X0
100
111
$subtree_root and $subtree_root == $next_elt
596233
ABdec
000
011
1X1
$$next_elt{'parent'} || last
596467
ABdec
0X0
100
111
$subtree_root and $subtree_root == $next_elt
596733
ABdec
000
011
1X1
$next_elt || last
5968100
ABdec
000
011
1X1
not $cond or $$elt{'gi'} eq $ind
6036100
ABdec
0X0
100
111
$_[0] and not $elt->matches(@_)
6084100
ABdec
0X0
100
111
$xpath_exp and $xpath_exp =~ s[^\s*(/?) # the xxx=~/regexp/ is a pain as it includes / (\s*(?:(?:($REG_AXIS)::)?(\*|$REG_NAME|\.\.|\.)\s*)?($REG_PREDICATE_ALT*) ) (/|$)][]ox
6107100
ABdec
000
011
1X1
not $gi or $gi eq '*'
6111100
ABdec
0X0
100
111
$predicates and $predicates =~ /^\s*\[\s*last\s*\(\s*\)\s*\]\s*$/
100
ABdec
0X0
100
111
$predicates and $predicates =~ /^\s*\[\s*((-\s*)?\d+)\s*\]\s*$/
6153100
ABdec
0X0
100
111
not $syntax_error and $pred
6208100
ABdec
000
011
1X1
$xpath{$xpath_exp} ||= _install_xpath($xpath_exp)
6269100
ABCDdec
0XXX0
10XX0
110X0
11100
11111
$prev_sibling and $next_sibling and $prev_sibling->is_text and $XML::Twig::index2gi[$$prev_sibling{'gi'}] eq $XML::Twig::index2gi[$$next_sibling{'gi'}]
6339100
ABCdec
0XX0
10X0
1100
1111
$prev_sibling and $prev_sibling->is_text and $XML::Twig::index2gi[$$first_child{'gi'}] eq $XML::Twig::index2gi[$$prev_sibling{'gi'}]
6341100
ABCdec
0XX0
10X0
1100
1111
$next_sibling and $next_sibling->is_text and $XML::Twig::index2gi[$$last_child{'gi'}] eq $XML::Twig::index2gi[$$next_sibling{'gi'}]
634567
ABdec
0X0
100
111
$$elt{'parent'}{'twig_current'} and $$elt{'last_child'}->is_text
6369100
ABdec
000
011
1X1
$$elt{'first_child'} || $$elt{'next_sibling'}
6373100
Adec
00
11
$target->extra_data || ''
6387100
Adec
00
11
$target->extra_data || ''
6437100
ABCDdec
0XXX0
10XX0
110X0
11100
11111
not $$ref{'parent'} and $pos =~ /^(before|after)$/ and not exists $$elt{'target'} and not exists $$elt{'comment'}
644667
ABdec
0X0
100
111
my $ids = $$elt{'twig_id_list'} and my $t = $ref->twig
644750
Adec
00
11
$$t{'twig_id_list'} ||= {}
6461100
ABdec
000
011
1X1
exists $$elt{'comment'} or exists $$elt{'target'}
6491100
ABdec
000
011
1X1
exists $$elt{'comment'} or exists $$elt{'target'}
658167
ABdec
000
011
1X1
$options{'normalise_space'} ||= $options{'normalize_space'} || 0
6583100
Adec
00
11
$options{'content_key'} ||= 'content'
6592100
Adec
00
11
$options{'forcearray'} ||= 0
6599100
Adec
00
11
$options{'keyattr'} ||= ['name', 'key', 'id']
660350
Adec
00
11
$prefix ||= ''
6612100
Adec
00
11
$prefix ||= ''
662033
ABdec
000
011
1X1
$options{'var'} ||= $options{'var_attr'}
6625100
Adec
00
11
$options{'var'} ||= 1
662967
ABdec
0X0
100
111
$options{'var_regexp'} and not $options{'var'}
6631100
Adec
00
11
$options{'var_regexp'} ||= '\\$\\{?(\\w+)\\}?'
664467
ABdec
000
011
1X1
$$options{'noattr'} || !$elt->atts
666175
ABCdec
0000
0011
01X1
1XX