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

package Bio::Roary::Output::EMBLHeaderCommon;
$Bio::Roary::Output::EMBLHeaderCommon::VERSION = '3.10.1';
# ABSTRACT: a role containing some common methods for embl header files


use Moose::Role;

sub _header_top {
    my ($self) = @_;
    my $header_lines = 'ID   Genome standard; DNA; PRO; 1234 BP.' . "\n";
    $header_lines .= 'XX' . "\n";
    $header_lines .= 'FH   Key             Location/Qualifiers' . "\n";
    $header_lines .= 'FH' . "\n";
    return $header_lines;
}

sub _header_bottom {
    my ($self) = @_;
    my $header_lines = 'XX' . "\n";
    $header_lines .= 'SQ   Sequence 1234 BP; 789 A; 1717 C; 1693 G; 691 T; 0 other;' . "\n";
    $header_lines .= '//' . "\n";
    return $header_lines;
}

sub _annotation_type {
    my ( $self, $annotated_group_name ) = @_;
    my $annotation_type = "   feature         ";
    if ( $annotated_group_name =~ /group_/ ) {
        $annotation_type = "   misc_feature    ";
    }
    return $annotation_type;
}


1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Bio::Roary::Output::EMBLHeaderCommon - a role containing some common methods for embl header files

=head1 VERSION

version 3.10.1

=head1 SYNOPSIS

a role containing some common methods for embl header files
   with 'Bio::Roary::Output::EMBLHeaderCommon';

=head1 AUTHOR

Andrew J. Page <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2013 by Wellcome Trust Sanger Institute.

This is free software, licensed under:

  The GNU General Public License, Version 3, June 2007

=cut