view release on metacpan or  search on metacpan

lib/Bio/GMOD/Blast/Graph/MapSpace.pm  view on Meta::CPAN

    $fitsP = 0;
    #dmsg( "wrapperFitsP(): $wheight > $space" );
    }

    $self->{ $kFullP } = (! $fitsP);

    return( $fitsP );
}

#######################################################################
sub updateFromWrapper {
#######################################################################
    my( $self, $wrap ) = @_;
    my( $space );
    my( $count );
    my( $wheight );

    $space = $self->getSpaceRemaining();
    $count = $wrap->getHSPLineCount();
    $wheight = $count * $Bio::GMOD::Blast::Graph::MapDefs::hspHeight;
    #dmsg( "updateFromWrapper(): ", $wrap->getName(), "$count $wheight" );

lib/Bio/GMOD/Blast/Graph/MyUtils.pm  view on Meta::CPAN

#####################################################################
    my( @parts ) = @_;

    my( $ret ) = join( ":", @parts );

    return( $ret );
}

# if the compare returns true, set ref = value.
#####################################################################
sub updateBoundRef {
#####################################################################
    my( $ref, $value, $cmpSub ) = @_;

    if( !defined( $$ref ) )
    {
    #dmsg( "updateBoundRef", "setting $ref to $value" );
    $$ref = $value;
    }
    elsif( &{$cmpSub}( $ref, $value ) )
    {