File Coverage

blib/lib/BioX/CLPM/Linker.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::Linker;
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 %linker_id_of  :ATTR( :get   :set   :default<''>    :init_arg );
        my %name_of       :ATTR( :get        :set        :default<''>    :init_arg );
        my %end1_of       :ATTR( :get        :set        :default<''>    :init_arg );
        my %end2_of       :ATTR( :get        :set        :default<''>    :init_arg );
        my %mass_of       :ATTR( :get        :set        :default<''>    :init_arg );

	# API
        sub ends {
                my ( $self ) = @_;
                return ( $self->get_end1(), $self->get_end2() );
        }

	# PRIV
        sub START {
                my ($self, $ident, $arg_ref) = @_;
                if ( $arg_ref ) { $self->_load( $arg_ref ); }
                return;
        }

	# PRIV
	sub _load {
                my ( $self, $arg_ref ) = @_;

		# Update new linker_id if exists
                if ( defined $arg_ref->{linker_id} ) {
			my $linker_id = $arg_ref->{linker_id};
                	$self->set_linker_id($linker_id);

			# Load other linker data from db
	                my $sql  = 'select name, end1, end2, mass ';
	                   $sql .= "from linkers where linker_id = '$linker_id'";
	                my ( $name, $end1, $end2, $mass ) = $self->sqlexec( $sql, '@' );
			warn "LINKER _load() id $linker_id ( $name, $end1, $end2, $mass ) \n";
	                $self->set_name( $name );
	                $self->set_end1( $end1 );
	                $self->set_end2( $end2 );
	                $self->set_mass( $mass );
		}
                elsif ( defined $arg_ref->{linker_name} ) {
			my $linker_name = $arg_ref->{linker_name};
			warn "LINKER _load() name $linker_name \n";
                	$self->set_name($linker_name);

			# Load other linker data from db
	                my $sql  = 'select name, end1, end2, mass ';
	                   $sql .= "from linkers where name = '$linker_name'";
	                my ( $linker_id, $end1, $end2, $mass ) = $self->sqlexec( $sql, '@' );
	                warn "   ( $linker_id, $end1, $end2, $mass ) \n";
	                $self->set_linker_id( $linker_id );
	                $self->set_end1( $end1 );
	                $self->set_end2( $end2 );
	                $self->set_mass( $mass );
		}
        }

}

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