blib/lib/Data/Denter.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 49 | 88 | 55.6 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
140 | 23 | 0 | 1 | ref $_ eq 'HASH' and not /=/ |
142 | 16 | 0 | 5 | ref $_ eq 'ARRAY' and not /=/ |
144 | 2 | 0 | 14 | ref $_ eq 'REF' and /^(SCALAR|REF)\(/ |
146 | 0 | 0 | 2 | ref $_ eq 'SCALAR' and not /=/ |
162 | 1 | 0 | 0 | $$o{'maxlines'} and @data > $$o{'maxlines'} |
322 | 0 | 8 | 3 | $$o{'level'} == 0 and $$o{'content'} =~ /^(.+?)\s*$comma\s*(.*)$/ |
409 | 0 | 1 | 3 | not $$o{'done'} and $$o{'lines'}[0] ne $marker |
439 | 0 | 0 | 2 | defined $key and defined $value |
455 | 0 | 0 | 0 | not $$o{'done'} and $$o{'lines'}[0] ne $marker |
line | l | !l | condition |
---|---|---|---|
16 | 0 | 10 | $Data::Denter::Width || 4 |
0 | 10 | $Data::Denter::Level || 0 | |
0 | 10 | $Data::Denter::Comma || ' => ' | |
0 | 10 | $Data::Denter::MaxLines || 0 | |
1 | 9 | $Data::Denter::HashMode || 0 | |
28 | 0 | 10 | $Data::Denter::Width || 4 |
0 | 10 | $Data::Denter::TabWidth || 8 | |
0 | 10 | $Data::Denter::Comma || ' => ' | |
1 | 9 | $Data::Denter::HashMode || 0 | |
99 | 20 | 0 | $args{'width'} || 4 |
20 | 0 | $args{'comma'} || ' => ' | |
0 | 20 | $args{'level'} || 0 | |
10 | 10 | $args{'tabwidth'} || 8 | |
0 | 20 | $args{'maxlines'} || 0 | |
2 | 18 | $args{'hashmode'} || 0 | |
319 | 0 | 10 | $$o{'line'} ||= 1 |
352 | 2 | 8 | $2 || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
120 | 0 | 0 | 2 | ref $_ or not /^\w+$/ |
140 | 1 | 2 | 21 | ref $_ eq 'HASH' and not /=/ or /=HASH/ |
142 | 5 | 0 | 16 | ref $_ eq 'ARRAY' and not /=/ or /=ARRAY/ |
146 | 2 | 0 | 0 | ref $_ eq 'SCALAR' and not /=/ or /=SCALAR/ |
154 | 0 | 0 | 9 | $data =~ /^[\s\%\@\$\\?\"]|\s$/ or $data =~ /\Q$$o{'comma'}\E/ |
0 | 1 | 8 | $data =~ /^[\s\%\@\$\\?\"]|\s$/ or $data =~ /\Q$$o{'comma'}\E/ or $data =~ /([\x00-\x1f\x7f-\xff])/ | |
1 | 0 | 8 | $data =~ /^[\s\%\@\$\\?\"]|\s$/ or $data =~ /\Q$$o{'comma'}\E/ or $data =~ /([\x00-\x1f\x7f-\xff])/ or $data eq '' | |
199 | 0 | 0 | 2 | $key =~ /\n/ or $key =~ /\Q$$o{'comma'}\E/ |
0 | 0 | 2 | $key =~ /^[\s\%\@\$\\?\"]|\s$/ or $key eq '' |