File Coverage

blib/lib/BioX/Workflow/Command/run/Rules/Directives/Types/Hash.pm
Criterion Covered Total %
statement 6 11 54.5
branch n/a
condition n/a
subroutine 2 4 50.0
pod 0 1 0.0
total 8 16 50.0


line stmt bran cond sub pod time code
1             package BioX::Workflow::Command::run::Rules::Directives::Types::Hash;
2              
3 1     1   1089 use Moose::Role;
  1         2  
  1         9  
4 1     1   5101 use namespace::autoclean;
  1         2  
  1         9  
5              
6             sub create_HASH_attr {
7 0     0 0   my $self = shift;
8 0           my $meta = shift;
9 0           my $k = shift;
10              
11             $meta->add_attribute(
12             $k => (
13             traits => ['Hash'],
14             isa => 'HashRef',
15             is => 'rw',
16             clearer => "clear_$k",
17 0     0     default => sub { {} },
18 0           handles => {
19             "get_$k" => 'get',
20             "has_no_$k" => 'is_empty',
21             "num_$k" => 'count',
22             "$k" . "_pairs" => 'kv',
23             },
24             )
25             );
26             }
27              
28             1;