Mercurial > repos > dereeper > roary_plots

comparison Roary/lib/Bio/Roary/Output/EMBLHeaderCommon.pm @ 0:c47a5f61bc9f draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author dereeper
date Fri, 14 May 2021 20:27:06 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:c47a5f61bc9f
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;