| blib/lib/User/Identity.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 8 | 18 | 44.4 |
| line | l | !l | condition |
|---|---|---|---|
| 36 | 62 | 29 | exists $args->{$_} and $$self{'UI_' . $_} = delete $args->{$_} |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 252 | 0 | 0 | 0 | $month == $tomonth and $day >= $today |
| line | l | !l | condition |
|---|---|---|---|
| 70 | 2 | 10 | $connect ||= "." |
| 231 | 2 | 0 | $day || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 91 | 8 | 0 | 0 | $surname //= ucfirst $self->nickname |
| 92 | 8 | 0 | 0 | $first //= $self->firstname |
| 252 | 1 | 0 | 0 | $month > $tomonth or $month == $tomonth and $day >= $today |