XML, the Perl Way

Condition Coverage

File: tools/xml_split/xml_split
Coverage: 47.5%

line % coverage condition
26 100
A dec
0 0
1 1
$$opt{'n'} ||= 2
27 33
A B dec
0 0 0
0 1 1
1 X 1
$$opt{'I'} ||= ($ENV{'HOME'} || '') . '/.xml_split'
50
A dec
0 0
1 1
$ENV{'HOME'} || ''
37 50
A dec
0 0
1 1
$2 || ' '
46 100
A dec
0 0
1 1
$$opt{'l'} ||= 1
49 100
A dec
0 0
1 1
$$opt{'l'} ||= 1
73 33
A B dec
0 0 0
0 1 1
1 X 1
$state ||= 'xml_split::state::parser'->new($options)
82 33
A B dec
0 0 0
0 1 1
1 X 1
$state ||= 'xml_split::state::parser'->new($options)
90 33
A B dec
0 0 0
0 1 1
1 X 1
$state ||= 'xml_split::state::parser'->new($options)
97 33
A B dec
0 0 0
0 1 1
1 X 1
$state ||= 'xml_split::state::twig'->new($options)
107 0
A dec
0 0
1 1
$$state{'base'} ||= 'out'
108 0
A dec
0 0
1 1
$$state{'ext'} ||= '.xml'
120 33
A B dec
0 0 0
0 1 1
1 X 1
$$state{'base'} ||= $base
121 33
A B dec
0 0 0
0 1 1
1 X 1
$$state{'ext'} ||= $ext || '.xml'
134 0
A dec
0 0
1 1
$$state{'base'} ||= 'out'
135 0
A dec
0 0
1 1
$$state{'ext'} ||= '.xml'
146 67
A B dec
0 0 0
0 1 1
1 X 1
$$state{'base'} ||= $base
147 33
A B dec
0 0 0
0 1 1
1 X 1
$$state{'ext'} ||= $ext || '.xml'
224 100
A B dec
0 X 0
1 0 0
1 1 1
$p->depth == $$state{'level'} and not $$state{'current_size'}
248 67
A B dec
0 X 0
1 0 0
1 1 1
$p->depth == $$state{'level'} and $$state{'current_size'} > $$state{'size'}
343 50
A dec
0 0
1 1
$p->recognized_string || ''
482 100
A dec
0 0
1 1
$$state{'elt'}->att('#has_subdocs') || 0