| blib/lib/X11/Protocol/GrabServer.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 1 | 12 | 8.3 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 0 | 1 | unless eval q[use Scalar::Util 'weaken'; 1] or eval qq[\n#line 28 "/root/.cpan/build/X11-Protocol-Other-31-0/blib/lib/X11/Protocol/GrabServer.pm"\nsub weaken {} # otherwise noop\n] |
| 41 | 0 | 0 | unless (defined $X) |
| 64 | 0 | 0 | unless ($self->{'grabbed'}) |
| 67 | 0 | 0 | if (not $X->{'X11::Protocol::GrabServer.count'}++) |
| 78 | 0 | 0 | if (delete $self->{'grabbed'}) |
| 80 | 0 | 0 | if (--$X->{'X11::Protocol::GrabServer.count'} <= 0) |