| blib/lib/WWW/Suffit/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 1 | 30 | 3.3 |
| line | l | !l | condition |
|---|---|---|---|
| 250 | 0 | 0 | carp("Can't open '${f}': $!") and return $sum |
| line | l | !l | condition |
|---|---|---|---|
| 180 | 0 | 0 | shift() || 0 |
| 184 | 0 | 0 | {B => 0, E => 60, EB => 60, EIB => 60, G => 30, GB => 30, GIB => 30, K => 10, KB => 10, KIB => 10, M => 20, MB => 20, MIB => 20, P => 50, PB => 50, PIB => 50, T => 40, TB => 40, TIB => 40, Y => 80, YB => 80, YIB => 80, Z => 70, ZB => 70, ZIB => 70}->{$sfx ? uc $sfx : 'B'} || 0 |
| 188 | 0 | 0 | shift() || 0 |
| 214 | 0 | 0 | shift @_ // 0 |
| 229 | 0 | 0 | $mult{$2} || 1 |
| 234 | 0 | 0 | shift @_ // 0 |
| 260 | 0 | 0 | shift() // "" |
| 270 | 0 | 0 | shift() // "" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 206 | 0 | 0 | 0 | shift() || time |
| 210 | 1 | 0 | 0 | shift() || time |
| 224 | 0 | 0 | 0 | not $t or lc $t eq "now" |
| 263 | 0 | 0 | 0 | ref $data eq "ARRAY" or ref $data eq "HASH" |