util/multi.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/perl

use strict;
use warnings;
use Cwd 'abs_path';

my $ROOT;
BEGIN { ($ROOT = abs_path $0) =~ s{/util/multi\.pl$}{} }

use lib $ROOT.'/lib';
use Multi::Core;

my $quiet = grep '-q', @ARGV;

Multi::Core::run $quiet;