blib/lib/Data/Sofu.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 51 | 101 | 50.5 |
line | l | !l | condition |
---|---|---|---|
693 | 0 | 138 | $self->storeComment and return undef |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
177 | 2 | 0 | 0 | ref $file and ref $file ne 'GLOB' |
250 | 3 | 0 | 32 | $b eq "\000\000" || $b eq "\cA\000" || $b eq "\000\cA" and $c ne "\376" |
351 | 4 | 3 | 0 | $res and $res ne ' ' |
365 | 150 | 0 | 0 | $$self{'Ref'}{$ref} and $$self{'TREE'} |
403 | 100 | 0 | 50 | $$self{'Ref'}{$ref} and $$self{'TREE'} |
531 | 30 | 4 | 26 | $b eq "\000\000" || $b eq "\cA\000" || $b eq "\000\cA" and $u ne "\376" |
606 | 0 | 89 | 0 | $c = $self->get and $c =~ /\s/ || $c eq $bom |
613 | 2 | 0 | 4 | $c = $self->get and $c =~ /\s/ |
624 | 0 | 0 | 0 | $c = $self->get and $c =~ /\s/ |
636 | 0 | 0 | 0 | $c = $self->get and $c =~ /\s/ |
644 | 0 | 0 | 0 | $x = $self->get and $x =~ /\s/ |
660 | 0 | 0 | 0 | $c = $self->get and $c =~ /\s/ |
673 | 37 | 0 | 4 | $c = $self->get and $c =~ /\s/ |
691 | 17704 | 0 | 0 | @_ and $_[0] |
0 | 0 | 0 | @_ and $_[0] and $_[0] != '' | |
706 | 17488 | 0 | 78 | $c eq '#' and not $$self{'String'} |
17488 | 0 | 78 | $c eq '#' and not $$self{'String'} and not $$self{'Escape'} | |
719 | 107 | 15781 | 1678 | $c and $c eq "\n" |
723 | 17566 | 0 | 0 | not defined $c and $$self{'Debug'} |
745 | 0 | 12 | 3 | $target and not $target =~ /^->/ |
755 | 0 | 95 | 6 | $target and not $target =~ /^->/ |
line | l | !l | condition |
---|---|---|---|
228 | 0 | 0 | open $fh, '<:utf8', $file or die "Can't open perlIO: $!" |
229 | 12 | 0 | open $fh, '<', $file or die "Can't open perlIO: $!" |
371 | 150 | 0 | $tree || '->' |
409 | 75 | 25 | $tree || '->' |
509 | 2 | 0 | open $fh, '<:utf8', $file or die "Can't open perlIO: $!" |
510 | 12 | 0 | open $fh, '<', $file or die "Can't open perlIO: $!" |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
250 | 26 | 6 | 3 | $b eq "\000\000" || $b eq "\cA\000" || $b eq "\000\cA" |
410 | 75 | 1 | 24 | $deep or not $$self{'Libsofucompat'} |
413 | 0 | 0 | 225 | not $wkey or $wkey =~ /[\=\"\}\{\(\)\s\n]/ |
431 | 75 | 1 | 24 | $deep or not $$self{'Libsofucompat'} |
531 | 26 | 4 | 30 | $b eq "\000\000" || $b eq "\cA\000" || $b eq "\000\cA" |
606 | 50 | 0 | 39 | $c =~ /\s/ || $c eq $bom |
645 | 0 | 0 | 0 | $x eq '!' or $x eq 'S' |
0 | 0 | 0 | $x eq '!' or $x eq 'S' or $x eq '?' |