XML, the Perl Way

Condition Coverage

File: tools/xml_pp/xml_pp
Coverage: 55.9%

line % coverage condition
91 67
A B dec
0 X 0
1 0 0
1 1 1
@ARGV and $ARGV[0] =~ /^-/
93 33
A B dec
0 0 0
0 1 1
1 X 1
$opt eq '-h' or $opt eq '--help'
33
A B dec
0 0 0
0 1 1
1 X 1
$opt eq '-v' or $opt eq '--verbose'
67
A B dec
0 0 0
0 1 1
1 X 1
$opt eq '-s' or $opt eq '--style'
100
A B dec
0 0 0
0 1 1
1 X 1
$opt =~ /^-i(.*)$/ or $opt =~ /^--in_place(.*)$/
33
A B dec
0 0 0
0 1 1
1 X 1
$opt eq '-p' or $opt eq '--preserve'
100
A B dec
0 0 0
0 1 1
1 X 1
$opt eq '-e' or $opt eq '--encoding'
100
A B dec
0 0 0
0 1 1
1 X 1
$opt eq '-l' or $opt eq '--load'
33
A B dec
0 0 0
0 1 1
1 X 1
$opt eq '-f' or $opt eq '--files'
105 50
A dec
0 0
1 1
$1 || ''
110 0
A dec
0 0
1 1
$opt{'preserve_space_in'} ||= []
133 33
A B dec
0 0 0
0 1 1
1 X 1
$opt{'style'} ||= $DEFAULT_STYLE