Branch Coverage

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 "/.cpan/build/X11-Protocol-Other-29-8DB0ME/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)