forked from Clinical-Genomics/MIP
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathmip
44 lines (35 loc) · 906 Bytes
/
mip
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#!/usr/bin/env perl
use 5.026;
use Carp;
use charnames qw{ :full :short };
use English qw{ -no_match_vars };
use File::Spec::Functions qw{ catdir catfile };
use FindBin qw{ $Bin };
use open qw{ :encoding(UTF-8) :std };
use strict;
use utf8;
use warnings;
use warnings qw{ FATAL utf8 };
## CPANM
use autodie qw{ :all };
## MIPs lib/
use lib catdir( $Bin, q{lib} );
use MIP::Cli::Mip;
our $VERSION = 0.01;
BEGIN {
require MIP::Check::Modules;
use MIP::Check::Modules qw{ check_perl_modules parse_cpan_file };
my @modules =
parse_cpan_file {
cpanfile_path => catfile( $Bin, qw{ definitions cpanfile } ),
};
## Evaluate that all modules required are installed
check_perl_modules(
{
modules_ref => \@modules,
program_name => $PROGRAM_NAME,
}
);
}
## Parse command line options
MIP::Cli::Mip->new_with_command->run();