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 10     10   3323 use 5.008001;
  10         33  
3 10     10   46 use strict;
  10         11  
  10         247  
4 10     10   37 use warnings;
  10         58  
  10         832  
5              
6             our $VERSION = '0.17';
7 93     93 1 404 sub id { $_[0]->{id} }
8              
9 0     0 1   sub heartbeat { 1 }
10              
11             1;
12              
13             __END__