File Coverage

lib/Bio/Roary/Output/EMBLHeaderCommon.pm
Criterion Covered Total %
statement 18 19 94.7
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 23 25 92.0


line stmt bran cond sub pod time code
1             package Bio::Roary::Output::EMBLHeaderCommon;
2             $Bio::Roary::Output::EMBLHeaderCommon::VERSION = '3.11.0';
3             # ABSTRACT: a role containing some common methods for embl header files
4              
5              
6 4     4   1817 use Moose::Role;
  4         4144  
  4         26  
7              
8             sub _header_top {
9 3     3   7 my ($self) = @_;
10 3         6 my $header_lines = 'ID Genome standard; DNA; PRO; 1234 BP.' . "\n";
11 3         6 $header_lines .= 'XX' . "\n";
12 3         7 $header_lines .= 'FH Key Location/Qualifiers' . "\n";
13 3         6 $header_lines .= 'FH' . "\n";
14 3         26 return $header_lines;
15             }
16              
17             sub _header_bottom {
18 3     3   7 my ($self) = @_;
19 3         5 my $header_lines = 'XX' . "\n";
20 3         6 $header_lines .= 'SQ Sequence 1234 BP; 789 A; 1717 C; 1693 G; 691 T; 0 other;' . "\n";
21 3         5 $header_lines .= '//' . "\n";
22 3         7 return $header_lines;
23             }
24              
25             sub _annotation_type {
26 8     8   14 my ( $self, $annotated_group_name ) = @_;
27 8         12 my $annotation_type = " feature ";
28 8 50       16 if ( $annotated_group_name =~ /group_/ ) {
29 0         0 $annotation_type = " misc_feature ";
30             }
31 8         15 return $annotation_type;
32             }
33              
34              
35             1;
36              
37             __END__
38              
39             =pod
40              
41             =encoding UTF-8
42              
43             =head1 NAME
44              
45             Bio::Roary::Output::EMBLHeaderCommon - a role containing some common methods for embl header files
46              
47             =head1 VERSION
48              
49             version 3.11.0
50              
51             =head1 SYNOPSIS
52              
53             a role containing some common methods for embl header files
54             with 'Bio::Roary::Output::EMBLHeaderCommon';
55              
56             =head1 AUTHOR
57              
58             Andrew J. Page <ap13@sanger.ac.uk>
59              
60             =head1 COPYRIGHT AND LICENSE
61              
62             This software is Copyright (c) 2013 by Wellcome Trust Sanger Institute.
63              
64             This is free software, licensed under:
65              
66             The GNU General Public License, Version 3, June 2007
67              
68             =cut