view release on metacpan or  search on metacpan

bin/forty-two.pl  view on Meta::CPAN

#!/usr/bin/env perl
# PODNAME: forty-two.pl
# ABSTRACT: The Answer to the Ultimate Question of Phylogenomics
# CONTRIBUTOR: Mick VAN VLIERBERGHE <mvanvlierberghe@doct.uliege.be>

use Modern::Perl '2011';

use Getopt::Euclid qw(:vars);

## no critic (RequireLocalizedPunctuationVars)
BEGIN{
    $ENV{Smart_Comments} = $ARGV_verbosity
        ? join q{ }, map { '#' x (2 + $_) } 1..$ARGV_verbosity
        : q{}
    ;
}
## use critic

use Smart::Comments -ENV;
use Config::Any;

use aliased 'Bio::MUST::Apps::FortyTwo';

# read configuration file
my $config = Config::Any->load_files( {
    files           => [ $ARGV_config ],
    flatten_to_hash => 1,
    use_ext         => 1,
} );

# build ft object
# Note: default args are propagated to all orgs
my $ft = FortyTwo->new(
    config  => $config->{$ARGV_config},
    infiles => \@ARGV_infiles,
);

# use ft as factory for run_proc object
# Note: CLI parameters are introduced here
my %args;
$args{debug_mode} = $ARGV_verbosity > 5 ? 1 : 0;
$args{out_dir}    = $ARGV_outdir if $ARGV_outdir;
$args{threads}    = $ARGV_threads;
my $rp = $ft->run_proc(\%args);

__END__

=pod

=head1 NAME

forty-two.pl - The Answer to the Ultimate Question of Phylogenomics

=head1 VERSION

version 0.213470

=head1 USAGE

        ______           __            ______
       / ____/___  _____/ /___  __    /_  __/      ______
      / /_  / __ \/ ___/ __/ / / /_____/ / | | /| / / __ \
     / __/ / /_/ / /  / /_/ /_/ /_____/ /  | |/ |/ / /_/ /
    /_/    \____/_/   \__/\__, /     /_/   |__/|__/\____/
                         /____/