File Coverage

blib/lib/Bio/MUST/Provision/CdHit.pm
Criterion Covered Total %
statement 13 16 81.2
branch 2 4 50.0
condition n/a
subroutine 4 6 66.6
pod 1 3 33.3
total 20 29 68.9


line stmt bran cond sub pod time code
1             package Bio::MUST::Provision::CdHit;
2             # ABSTRACT: Internal class for app provisioning system
3             $Bio::MUST::Provision::CdHit::VERSION = '0.193030';
4             # AUTOGENERATED CODE! DO NOT MODIFY THIS FILE!
5              
6 1     1   932 use Modern::Perl '2011';
  1         465  
  1         4  
7 1     1   144 use Carp;
  1         1  
  1         51  
8              
9 1     1   4274 use parent qw(App::Provision::Tiny);
  1         4  
  1         9  
10              
11              
12 0     0 0 0 sub deps { return qw(brew) }
13              
14             sub condition {
15 1     1 1 48 my $self = shift;
16              
17 1         9890 my $condition = qx{which cd-hit} =~ m/cd-hit$/xms;
18 1 50       146 carp '[BMD] Note: CD-HIT executable not found; I can try brewing it.'
19             unless $condition;
20              
21 1 50       9521 return $condition ? 1 : 0;
22             }
23              
24             sub meet {
25 0     0 0   my $self = shift;
26              
27 0           return $self->recipe(
28             ['brew tap brewsci/bio'],
29             ['brew install cd-hit'],
30             );
31             }
32              
33             1;
34              
35             __END__
36              
37             =pod
38              
39             =head1 NAME
40              
41             Bio::MUST::Provision::CdHit - Internal class for app provisioning system
42              
43             =head1 VERSION
44              
45             version 0.193030
46              
47             =head1 AUTHOR
48              
49             Denis BAURAIN <denis.baurain@uliege.be>
50              
51             =head1 COPYRIGHT AND LICENSE
52              
53             This software is copyright (c) 2013 by University of Liege / Unit of Eukaryotic Phylogenomics / Denis BAURAIN.
54              
55             This is free software; you can redistribute it and/or modify it under
56             the same terms as the Perl 5 programming language system itself.
57              
58             =cut