blib/lib/Convert/yEnc/RC.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 24 | 32 | 75.0 |
line | true | false | branch |
---|---|---|---|
16 | 8 | 6 | if $file |
30 | 6 | 5 | unless open RC, $file |
34 | 2 | 5 | unless $line =~ /\S/ |
60 | 19 | 26 | if $name |
63 | 45 | 0 | if $rc->can($tag) |
71 | 0 | 19 | unless $name |
75 | 6 | 13 | if ($entry) |
89 | 9 | 0 | if $entry |
99 | 16 | 1 | if $entry |
114 | 9 | 4 | $name ? : |
121 | 9 | 0 | if $entry |
150 | 1 | 9 | unless my $file = shift() || $$rc{'file'} |
153 | 0 | 9 | unless open RC, "> $file.tmp" |
166 | 0 | 9 | unless rename "$file.tmp", $file |
183 | 0 | 2 | unless @a == @b |
187 | 0 | 4 | unless $$a{'db'}{$name} eq $$b{'db'}{$name} |