File Coverage

blib/lib/BioX/FedDB/Client.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::FedDB::Client;
use base qw(BioX::FedDB::Base);
use Class::Std;
use Class::Std::Utils;

use warnings;
use strict;
use Carp;

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

{
        sub query_count {
                my ( $self, $id ) = @_;
		my   $sql         = "select count(*) from hits where query_id = '$id'";
		my ( $count )     = $self->dbh->sqlexec( $sql, '@' );
                return $count || 0;
        }

        sub subject_count {
                my ( $self, $id ) = @_;
		my   $sql         = "select count(*) from hits where subject_id = '$id'";
		my ( $count )     = $self->dbh->sqlexec( $sql, '@' );
                return $count || 0;
        }

        sub query {
                my ( $self, $id ) = @_;
		my   $sql         = "select * from hits where query_id = '$id'";
		my   $rowsref     = $self->dbh->sqlexec( $sql, '\@@' );
                return $self->_build_records( $rowsref ) || 0;
        }

        sub subject {
                my ( $self, $id ) = @_;
		my   $sql         = "select * from hits where subject_id = '$id'";
		my   $rowsref     = $self->dbh->sqlexec( $sql, '\@@' );
                return $self->_build_records( $rowsref ) || 0;
        }

        sub _build_records {
                my ( $self, $rowsref ) = @_;
		my   @records          = ();
		foreach my $rowref ( @$rowsref ) {
			#my ( $hit_id, $q_id, $q_start, $q_end, $q_string, $s_id, $s_start, $s_end, $s_string, $expect ) = @$rowref;
			my $record = "'" . join( "','", @$rowref) . "'";
			push @records, $record;
		}

                return join( "\n", @records );
        }

}

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