File Coverage

lib/IPC/SRLock/Fake.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 3 3 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             package IPC::SRLock::Fake;
2              
3 1     1   765 use namespace::autoclean;
  1         3  
  1         7  
4              
5 1     1   79 use Moo;
  1         2  
  1         5  
6              
7             extends q(IPC::SRLock::Base);
8              
9             sub list {
10 1     1 1 748 return [];
11             }
12              
13             sub reset {
14 1     1 1 324 return 1;
15             }
16              
17             sub set {
18 1     1 1 300 my $self = shift; my $args = $self->_get_args( @_ );
  1         10  
19              
20 1         2 my $key = $args->{k}; my $pid = $args->{p};
  1         2  
21              
22 1         4 $self->log->debug( "Lock ${key} set by ${pid}" );
23 1         1405 return 1;
24             }
25              
26             1;
27              
28             __END__