File Coverage

blib/lib/BioX/CLPM/Amino.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package BioX::CLPM::Amino;
use base qw(BioX::CLPM::Base);
use Class::Std;
use Class::Std::Utils;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.1');

{
        my %amino_acid_id_of  :ATTR( :get   :set   :default<''>    :init_arg );
        my %letter_of  :ATTR( :get   :set   :default<''>    :init_arg );
        my %mass_of  :ATTR( :get   :set   :default<''>    :init_arg );
        my %type_of  :ATTR( :get   :set   :default<''>    :init_arg );

        sub START {
                my ($self, $ident, $arg_ref) = @_;

		if ( defined $arg_ref->{amino_acid_id} ) {
			$self->_load( $arg_ref );
		}

                return;
        }

        sub _load {
                my ( $self, $arg_ref ) = @_;
		my $amino_acid_id = defined $arg_ref->{amino_acid_id} ?
		                    $arg_ref->{amino_acid_id} :
				    $self->get_amino_acid_id();

		if ( defined $arg_ref->{amino_acid_id} ) {
			$self->set_amino_acid_id($amino_acid_id);
		}

		my $sql  = 'select letter, mass, type ';
		   $sql .= "from amino_acids where amino_acid_id = '$amino_acid_id'";
		my ( $letter, $mass, $type ) = $self->sqlexec( $sql, '@' );
		$self->set_letter( $letter );
		$self->set_mass( $mass );
		$self->set_type( $type );
	}

}

1; # Magic true value required at end of module
__END__