-
Notifications
You must be signed in to change notification settings - Fork 10
/
mip
executable file
·44 lines (35 loc) · 948 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 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;
use MIP::Constants qw{ $MIP_VERSION };
our $VERSION = $MIP_VERSION;
BEGIN {
require MIP::Language::Perl;
use MIP::Language::Perl qw{ check_modules_existance get_cpan_file_modules };
my @modules =
get_cpan_file_modules {
cpanfile_path => catfile( $Bin, q{cpanfile} ),
};
## Evaluate that all modules required are installed
check_modules_existance(
{
modules_ref => \@modules,
program_name => $PROGRAM_NAME,
}
);
}
## Parse command line options
MIP::Cli::Mip->new_with_command->run();