File Coverage

blib/lib/BioX/Workflow/Command/run/Rules/Directives/Types/Glob.pm
Criterion Covered Total %
statement 6 11 54.5
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 15 53.3


line stmt bran cond sub pod time code
1             package BioX::Workflow::Command::run::Rules::Directives::Types::Glob;
2              
3 1     1   103438 use Moose::Role;
  1         3  
  1         14  
4 1     1   6379 use File::Glob;
  1         5  
  1         187  
5              
6             after 'BUILD' => sub {
7             my $self = shift;
8              
9             $self->set_register_types(
10             'glob',
11             {
12             builder => 'create_reg_attr',
13             lookup => ['.*glob$']
14             }
15             );
16              
17             $self->set_register_process_directives( 'glob',
18             { builder => 'process_directive_glob', lookup => ['.*_glob$'] } );
19             };
20              
21             sub process_directive_glob {
22 0     0 0   my $self = shift;
23 0           my $k = shift;
24 0           my $v = shift;
25              
26 0           my $data = glob($v);
27 0           $self->$k($data);
28             }
29              
30             1;