view release on metacpan or  search on metacpan

lib/Bio/MUST/Apps/Debrief42/TaxReport/NewSeq.pm  view on Meta::CPAN

package Bio::MUST::Apps::Debrief42::TaxReport::NewSeq;
# ABSTRACT: Internal class for tabular tax-report parser
# CONTRIBUTOR: Mick VAN VLIERBERGHE <mvanvlierberghe@doct.uliege.be>
$Bio::MUST::Apps::Debrief42::TaxReport::NewSeq::VERSION = '0.213470';
use Moose;
use namespace::autoclean;


# public attributes

has $_ => (
    is       => 'ro',
    isa      => 'Maybe[Str]',
    required => 1,
) for qw( seq_id contam_org lca lineage acc seq );

has $_ => (
    is       => 'ro',
    isa      => 'Maybe[Num]',
    required => 1,
) for qw( top_score rel_n mean_len mean_ident start end strand );

has 'outfile' => (
    is       => 'ro',
    isa      => 'Str',
);



sub heads {
    my $class = shift;

    return qw(
        seq_id contam_org
        top_score
        rel_n mean_len mean_ident lca lineage
        acc start end strand seq
    );  # Note: outfile attr is added by TaxReport parser!
}


sub stringify {
    my $self = shift;
    return join "\t", map { $self->$_ // q{} } $self->heads;
}


__PACKAGE__->meta->make_immutable;
1;

__END__

=pod

=head1 NAME

Bio::MUST::Apps::Debrief42::TaxReport::NewSeq - Internal class for tabular tax-report parser

=head1 VERSION

version 0.213470

=head1 SYNOPSIS

    # TODO