view release on metacpan or  search on metacpan

lib/Bio/Palantir/Explorer/GeneFasta.pm  view on Meta::CPAN

package Bio::Palantir::Explorer::GeneFasta;
# ABSTRACT: Explorer internal class for handling GeneFasta objects
$Bio::Palantir::Explorer::GeneFasta::VERSION = '0.211420';
use Moose;
use namespace::autoclean;

use Data::UUID;
use List::AllUtils qw(each_array);

use aliased 'Bio::Palantir::Refiner::DomainPlus';
with 'Bio::Palantir::Roles::Fillable';


# public attributes

has 'from_seq' => (
    is       => 'ro',
    isa      => 'Bool',
    init_arg => undef,
    default  => 1,
);

has 'uui' => ( 
    is       => 'ro',
    isa      => 'Str',
    init_arg => undef,
    default  => sub {
        my $self = shift;
        my $ug = Data::UUID->new;
        my $uui = $ug->create_str();    
        return $uui;
    }
);

has $_ => (
    is => 'ro',
    isa => 'Str',
) for qw(protein_sequence name);

has $_ => (
    is => 'ro',
    isa => 'Num',
) for qw(gene_begin gene_end rank size);

has 'coordinates' => (
    is      => 'ro',
    isa     => 'ArrayRef',
);


# private attributes


# public array(s) of composed objects


has 'domains' => (
    traits   => ['Array'],
    is       => 'ro',
    isa      => 'ArrayRef[Bio::Palantir::Refiner::DomainPlus]',
    init_arg => undef,
    default  => sub { [] },
    writer   => '_set_domains',
    handles  => {
         count_domains => 'count',