view release on metacpan or  search on metacpan

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

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

use autodie;
use feature qw(say);

use Path::Class qw(file);
use Tie::IxHash;

use Bio::MUST::Core;
use aliased 'Bio::MUST::Core::SeqId';
use aliased 'Bio::MUST::Apps::Debrief42::TaxReport';
use aliased 'Bio::MUST::Apps::Debrief42::OrgReport';


has 'tax_reports' => (
    traits   => ['Array'],
    is       => 'ro',
    isa      => 'ArrayRef[Str]',
    required => 1,
    handles  => {
        all_tax_reports => 'elements',
    },
);


has 'orgs' => (
    traits   => ['Array'],
    is       => 'ro',
    isa      => 'ArrayRef[Str]',
    required => 1,
    handles  => {
        all_orgs => 'elements',
    },
);


has '_org_reports' => (
    traits   => ['Hash'],
    is       => 'ro',
    isa      => 'HashRef[Bio::MUST::Apps::Debrief42::OrgReport]',
    init_arg => undef,
    default  => sub { {} },
    handles  => {
        _set_org_report_for => 'set',
             org_report_for => 'get',
    },
);


has '_orgs_by_' . $_ => (
    traits   => ['Hash'],
    is       => 'ro',
    isa      => 'HashRef[Str]',
    init_arg => undef,
    lazy     => 1,
    builder  => '_build_orgs_by_' . $_,
    handles  => {
        'orgs_by_' . $_ => 'keys',
    },
) for qw(contamination completeness);