view release on metacpan or  search on metacpan

lib/Bio/Palantir/Parser/Location.pm  view on Meta::CPAN

package Bio::Palantir::Parser::Location;
# ABSTRACT: BiosynML DTD-derived internal class
$Bio::Palantir::Parser::Location::VERSION = '0.211420';
use Moose;
use namespace::autoclean;

# AUTOGENERATED CODE! DO NOT MODIFY THIS FILE!

use XML::Bare qw(forcearray);
use POSIX;



# private attributes
has '_root' => (
    is       => 'ro',
    isa      => 'HashRef',
    required => 1,
);




# public array(s) of composed objects


# public composed object(s)


# public deep methods


# public methods



# public aliases
has 'strand' => (
	is      => 'ro',
	isa     => 'Str',
	default => sub {
		my $self = shift;
        my $strand 
            = $self->_root->{begin}->{value} < $self->_root->{end}->{value}
            ? '+' 
            : '-'
        ;
        return $strand;
    }
);


sub dna_begin {
    my $self = shift;
    
    my $begin = $self->strand eq '+' ? 
        $self->_root->{'begin'}->{'value'} :
        $self->_root->{'end'}->{'value'}
    ;
        
    return $begin;  
} 


sub dna_end {