File Coverage

blib/lib/IPC/ConcurrencyLimit/Lock.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 4 5 80.0
pod 2 2 100.0
total 15 17 88.2


line stmt bran cond sub pod time code
1             package IPC::ConcurrencyLimit::Lock;
2 41     41   2705 use 5.008001;
  41         82  
3 41     41   122 use strict;
  41         39  
  41         957  
4 41     41   157 use warnings;
  41         52  
  41         3133  
5              
6             our $VERSION = '0.16';
7 452     452 1 1654 sub id { $_[0]->{id} }
8              
9 0     0 1   sub heartbeat { 1 }
10              
11             1;
12              
13             __END__