File Coverage

blib/lib/Test/Synchronized/Lock.pm
Criterion Covered Total %
statement 10 12 83.3
branch n/a
condition n/a
subroutine 4 6 66.6
pod 0 2 0.0
total 14 20 70.0


line stmt bran cond sub pod time code
1             package Test::Synchronized::Lock;
2 3     3   16 use strict;
  3         5  
  3         83  
3 3     3   13 use warnings;
  3         6  
  3         64  
4 3     3   12 use base qw(Class::Accessor::Fast);
  3         3  
  3         2482  
5              
6 0     0 0 0 sub lock {
7             ;
8             }
9              
10 0     0 0 0 sub unlock {
11             ;
12             }
13              
14             sub DESTROY {
15 3     3   21 shift->unlock;
16             }
17              
18             1;