| blib/lib/Lock/Socket.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 10 | 26 | 38.4 |
| line | l | !l | condition |
|---|---|---|---|
| 8 | 0 | 2 | ${$P . ':E';}{$n} = \&{$P . $b;} and return $m |
| 0 | 2 | ${$P . ':E';}{$n} = $g and return $m |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 8 | 4 | 0 | 0 | @_ == 2 && !$_[1] |
| 141 | 0 | 0 | $#_ && $a{'is'} eq 'ro' && caller ne 'Mo::coerce' |
| line | l | !l | condition |
|---|---|---|---|
| 8 | 0 | 4 | *{$P . 'new';}{'CODE'} || *{$M . 'Object::new';}{'CODE'} |
| 179 | 2 | 1 | eval { do { $self->lock } } || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 43 | 0 | 0 | 0 | $^O =~ /bsd$/ or $^O eq 'darwin' |
| 49 | 8 | 1 | 0 | shift() || 'Lock::Socket'->err('Usage', 'usage: lock_socket($PORT)') |
| 62 | 0 | 0 | 1 | shift() || 'Lock::Socket'->err('Usage', 'usage: lock_user_socket($PORT)') |
| 66 | 0 | 0 | 0 | $addr || _uid_ip() |