view release on metacpan or  search on metacpan

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

@ISA = qw( Exporter );
@EXPORT_OK = qw( debugP dmsg dmsgs assert );

my( $pkgOn ) = {};


sub debugP
{
    my( $flag ) = shift;

    my( $pkg, $file, $line ) = caller();

    $pkgOn{ $pkg } = $flag;
}

# concatenates with " ".
sub dmsg
{
    my( @msg ) = @_;
    my( $flag );

    ( $pkg, $file, $line ) = caller();

    $flag = $pkgOn{ $pkg };

    if( !defined($flag) || $flag != 0 )
    {
    print STDERR "[$pkg $line]", join( " ", @msg ), "\n";
    }
}

# concatenates with ", ".
sub dmsgs
{
    my( @msg ) = @_;
    my( $flag );

    ( $pkg, $file, $line ) = caller();

    $flag = $pkgOn{ $pkg };

    if( !defined($flag) || $flag != 0 )
    {
    print STDERR "[$pkg $line]", join( ", ", @msg ), "\n";
    }
}

sub assert

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

my( %usedHash );

#####################################################################
sub makeVariableName {
#####################################################################
    my( @names ) = @_;

    my( $name );
    my( $varName ) = "";

    my( $pkg, $file, $line ) = caller();
    unshift( @names, $pkg );

    $varName .= "__";
    foreach $name ( @names )
    {
    $name =~ tr/a-z/A-Z/;
    $varName .= "_$name";
    }
    $varName .= "_VARIABLE__";