| line |
true |
false |
branch |
|
129
|
0 |
4 |
unless exists $ARGV{'B'} |
|
131
|
0 |
4 |
if ($ARGV{'B'} % 2) |
|
138
|
0 |
4 |
exists $ARGV{'Root'} ? : |
|
174
|
3 |
5924 |
if ($cur_node->is_empty) |
|
175
|
3 |
0 |
if ($args{'Insert'}) { } |
|
189
|
3871 |
7653 |
if ($there) |
|
190
|
1 |
3870 |
if ($args{'Replace'}) { } |
|
|
3870 |
0 |
elsif ($args{'Append'}) { } |
|
200
|
2053 |
5600 |
if ($cur_node->is_leaf) |
|
201
|
0 |
2053 |
unless $args{'Insert'} |
|
204
|
40 |
2013 |
if ($self->node_overfull($cur_node)) |
|
232
|
0 |
0 |
if ($up) { } |
|
235
|
0 |
0 |
unless $tthere |
|
237
|
0 |
0 |
unless $twhere == $where |
|
241
|
0 |
0 |
unless $self->node_overfull($up) |
|
260
|
42 |
5 |
if @path |
|
261
|
42 |
5 |
if ($up) { } |
|
263
|
42 |
0 |
if ($DEBUG) |
|
265
|
0 |
42 |
unless $tthere |
|
267
|
0 |
42 |
unless $twhere == $where |
|
272
|
35 |
7 |
unless $self->node_overfull($up) |
|
306
|
5 |
5936 |
if defined $newroot |
|
421
|
0 |
4 |
unless $arg{'dir'} |
|
430
|
2 |
2 |
if ($data_codepage and $index_codepage) |
|
460
|
66 |
13173 |
if ($iconv) |
|
516
|
0 |
103 |
unless @_ == 3 or @_ == 0 |
|
549
|
12435 |
596726 |
if $cmp_result <= 0 |
|
582
|
8173 |
0 |
unless not defined $self |
|
627
|
1 |
0 |
if (defined $k) |
|
648
|
2095 |
3 |
unless $self->is_empty |
|
650
|
0 |
2098 |
if ($there) |
|
672
|
3870 |
0 |
if (defined $k) |
|
695
|
84 |
5600 |
if defined $newnode |
|
766
|
0 |
55 |
if $self->is_empty |
|
769
|
12 |
43 |
defined $$s[0] ? : |
|
775
|
40 |
2016 |
defined $$s[$i + 1] ? : |
|
815
|
0 |
33 |
if $self->is_empty |
|
829
|
85 |
33 |
if (my $key = $$k[$i]) |
|
832
|
32 |
86 |
if $$s[$i] |
|
834
|
10 |
23 |
unless $self->is_leaf |
|
839
|
32 |
1 |
if $parent |
|
858
|
0 |
13239 |
unless $escape_re |
|
876
|
0 |
1356 |
if not defined $value or $value < 0 |
|
889
|
18 |
1338 |
if ($value == 0) |
|
917
|
0 |
60 |
if $self->is_empty |
|
919
|
0 |
60 |
unless $path |
|
920
|
0 |
60 |
unless defined $file |
|
934
|
2067 |
60 |
if ($key) |
|
946
|
56 |
2071 |
if $$s[$i] |
|
952
|
0 |
60 |
unless (-e $path) |
|
953
|
0 |
0 |
unless mkpath($path) |
|
956
|
0 |
60 |
unless open K, "> $path/$file.xml" |
|
957
|
0 |
60 |
unless open D, "> $path/_$file.xml" |