|
0
|
1 #!/usr/bin/env perl
|
|
|
2
|
|
|
3 package Bio::Roary::Main::TransferAnnotationToGroups;
|
|
|
4
|
|
|
5 # ABSTRACT: Take in a groups file and a set of GFF files and transfer the consensus annotation
|
|
|
6 # PODNAME: transfer_annotation_to_groups
|
|
|
7
|
|
|
8 =head1 SYNOPSIS
|
|
|
9
|
|
|
10 Take in a groups file and a set of GFF files and transfer the consensus annotation
|
|
|
11
|
|
|
12 =cut
|
|
|
13
|
|
|
14 use Cwd qw(abs_path);
|
|
|
15 BEGIN { unshift( @INC, abs_path('./lib') ) }
|
|
|
16 BEGIN { unshift( @INC, abs_path('./t/lib') ) }
|
|
|
17 use Bio::Roary::CommandLine::TransferAnnotationToGroups;
|
|
|
18
|
|
|
19 Bio::Roary::CommandLine::TransferAnnotationToGroups->new(args => \@ARGV, script_name => $0)->run;
|
