File Coverage

blib/lib/BioX/CLPM/Fragments/Linked.pm

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

package BioX::CLPM::Fragments::Linked;
#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 %fragment_id_1_of  :ATTR( :get  :set  :default<''>   :init_arg );
        my %fragment_id_2_of  :ATTR( :get  :set  :default<''>   :init_arg );
        my %mass_of           :ATTR( :get           :set           :default<''>   :init_arg );
        my %mods_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->{fragment_id} ) { $self->_load( $arg_ref ); }
                return;
        }

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

                if ( defined $arg_ref->{fragment_id} ) {
                        $self->set_fragment_id($fragment_id);
                }

                my $sql  = 'select sequence_id, sequence, mass ';
                   $sql .= "from fragments where fragment_id = '$fragment_id'";
                my ( $sequence_id, $sequence, $mass) = $self->data->sqlexec( $sql, '@' );
                $self->set_sequence_id($sequence_id);
                $self->set_sequence($sequence);
                $self->set_mass($mass);
        }
}

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