File Coverage

lib/Flux/Storage/Role/ClientList.pm
Criterion Covered Total %
statement 3 9 33.3
branch n/a
condition n/a
subroutine 1 4 25.0
pod 3 3 100.0
total 7 16 43.7


line stmt bran cond sub pod time code
1             package Flux::Storage::Role::ClientList;
2             {
3             $Flux::Storage::Role::ClientList::VERSION = '1.03';
4             }
5              
6             # ABSTRACT: common methods for storages with named clients
7              
8              
9 2     2   1087 use Moo::Role;
  2         4  
  2         12  
10              
11             requires 'client_names';
12              
13 0     0 1   sub register_client($$) {
14             }
15              
16 0     0 1   sub unregister_client($$) {
17             }
18              
19             sub has_client {
20 0     0 1   my $self = shift;
21 0           my ($name) = @_;
22              
23 0           return grep { $_ eq $name } $self->client_names;
  0            
24             }
25              
26              
27             1;
28              
29             __END__