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" |