0
|
1 package Bio::Roary::Output::EMBLHeaderCommon;
|
|
2
|
|
3 # ABSTRACT: a role containing some common methods for embl header files
|
|
4
|
|
5 =head1 SYNOPSIS
|
|
6
|
|
7 a role containing some common methods for embl header files
|
|
8 with 'Bio::Roary::Output::EMBLHeaderCommon';
|
|
9
|
|
10 =cut
|
|
11
|
|
12 use Moose::Role;
|
|
13
|
|
14 sub _header_top {
|
|
15 my ($self) = @_;
|
|
16 my $header_lines = 'ID Genome standard; DNA; PRO; 1234 BP.' . "\n";
|
|
17 $header_lines .= 'XX' . "\n";
|
|
18 $header_lines .= 'FH Key Location/Qualifiers' . "\n";
|
|
19 $header_lines .= 'FH' . "\n";
|
|
20 return $header_lines;
|
|
21 }
|
|
22
|
|
23 sub _header_bottom {
|
|
24 my ($self) = @_;
|
|
25 my $header_lines = 'XX' . "\n";
|
|
26 $header_lines .= 'SQ Sequence 1234 BP; 789 A; 1717 C; 1693 G; 691 T; 0 other;' . "\n";
|
|
27 $header_lines .= '//' . "\n";
|
|
28 return $header_lines;
|
|
29 }
|
|
30
|
|
31 sub _annotation_type {
|
|
32 my ( $self, $annotated_group_name ) = @_;
|
|
33 my $annotation_type = " feature ";
|
|
34 if ( $annotated_group_name =~ /group_/ ) {
|
|
35 $annotation_type = " misc_feature ";
|
|
36 }
|
|
37 return $annotation_type;
|
|
38 }
|
|
39
|
|
40
|
|
41 1;
|