File Coverage

blib/lib/Bio/MUST/Provision/Mafft.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::Mafft;
2             # ABSTRACT: Internal class for app provisioning system
3             $Bio::MUST::Provision::Mafft::VERSION = '0.191910';
4             # AUTOGENERATED CODE! DO NOT MODIFY THIS FILE!
5              
6 1     1   1256 use Modern::Perl '2011';
  1         620  
  1         7  
7 1     1   175 use Carp;
  1         3  
  1         65  
8              
9 1     1   7 use parent qw(App::Provision::Tiny);
  1         3  
  1         6  
10              
11              
12 0     0 0 0 sub deps { return qw(brew) }
13              
14             sub condition {
15 1     1 1 56 my $self = shift;
16              
17 1         6907 my $condition = qx{which mafft} =~ m/mafft$/xms;
18 1 50       154 carp '[BMD] Note: MAFFT executable not found; I can try brewing it.'
19             unless $condition;
20              
21 1 50       775 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 mafft'],
30             );
31             }
32              
33             1;
34              
35             __END__
36              
37             =pod
38              
39             =head1 NAME
40              
41             Bio::MUST::Provision::Mafft - Internal class for app provisioning system
42              
43             =head1 VERSION
44              
45             version 0.191910
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