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   3043 use 5.008001;
  41         81  
3 41     41   88 use strict;
  41         41  
  41         710  
4 41     41   87 use warnings;
  41         53  
  41         2420  
5              
6             our $VERSION = '0.15';
7 456     456 1 1616 sub id { $_[0]->{id} }
8              
9 0     0 1   sub heartbeat { 1 }
10              
11             1;
12              
13             __END__