| line |
true |
false |
branch |
|
310
|
2 |
15 |
unless ref $args and reftype $args eq 'HASH' |
|
312
|
1 |
14 |
unless $$args{'file'} |
|
313
|
1 |
13 |
unless -f $$args{'file'} |
|
317
|
2 |
11 |
if (exists $$args{'path_col_idx'}) |
|
318
|
1 |
1 |
unless $$args{'path_col_idx'} =~ /^\d+$/ |
|
322
|
2 |
10 |
exists $$args{'path_col_sep'} ? : |
|
325
|
2 |
10 |
if (exists $$args{'path_col_sep'}) { } |
|
337
|
0 |
12 |
unless my $csv = 'Text::CSV'->new($args) |
|
339
|
0 |
12 |
unless open my $IN, '<', $data{'file'} |
|
344
|
1 |
11 |
if $data{'path_col_idx'} > $#{$header_ref;} |
|
348
|
1 |
64 |
if (exists $header_fields_seen{$_}) { } |
|
360
|
0 |
10 |
unless close $IN |
|
370
|
2 |
129 |
if ($this_row_count != $field_count) |
|
377
|
2 |
126 |
if $paths_seen{$path} > 1 |
|
386
|
1 |
9 |
if @dupe_paths |
|
394
|
1 |
8 |
if @bad_count_records |
|
399
|
0 |
8 |
unless my $path_csv = 'Text::CSV'->new($path_args) |
|
405
|
70 |
32 |
if (@columns > 2) |
|
408
|
2 |
68 |
unless (exists $paths_seen{$parent}) |
|
420
|
1 |
7 |
if scalar keys %missing_parents |
|
669
|
65 |
13 |
if ($i != $$self{'path_col_idx'}) { } |
|
715
|
65 |
13 |
if ($i != $$self{'path_col_idx'}) { } |
|
756
|
52 |
572 |
if $other_node =~ /^\Q$node$$self{'path_col_sep'}\E/ |
|
794
|
1 |
2 |
unless exists $$child_counts{$node} |
|
885
|
7 |
1 |
if (defined $args) |
|
886
|
2 |
5 |
unless ref $args and reftype $args eq 'HASH' |
|
894
|
26 |
52 |
if ($$args{'root_str'}) { } |
|
898
|
26 |
26 |
if ($$args{'remove_leading_path_col_sep'}) { } |
|
905
|
39 |
39 |
if ($$args{'key_delim'}) |
|
917
|
2 |
2 |
unless defined $args and ref $args eq 'ARRAY' |
|
920
|
1 |
3 |
unless ref $rule eq 'CODE' |