annotate Roary/t/bin/dummy_mcl @ 3:e95344f6dfc5 draft default tip

Uploaded
author dereeper
date Fri, 12 Nov 2021 16:32:26 +0000
parents c47a5f61bc9f
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
1 #!/usr/bin/env perl
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
2 use Moose;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
3 use Getopt::Long;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
4 my ($output_filename,$abc_format,$inflation);
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
5 GetOptions(
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
6 'o|output=s' => \$output_filename,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
7 'i|inflation=s' => \$inflation,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
8 'a|abc' => \$abc_format
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
9 );
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
10
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
11 system("touch $output_filename");
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
12 1;