Concurrent::Debug - Debug routine for Concurrent

Concurrent-Object documentation Contained in the Concurrent-Object distribution.

Index

Code Index:

NAME

Top

Concurrent::Debug - Debug routine for Concurrent

SYNOPSIS

Top

    use Concurrent::Debug qw(debug);
    debug ("oops!");

DESCRIPTION

Top

The module provides support for the print method of debugging!

FUNCTION

Top

debug String

Prints String on STDOUT, along with caller's function name and line number.

AUTHOR

Top

Vipul Ved Prakash, <mail@vipul.net>

Concurrent-Object documentation Contained in the Concurrent-Object distribution. 
#!/usr/bin/perl -s
##
## Concurrent::Debug
##
## Copyright (c) 2001, Vipul Ved Prakash.  All rights reserved.
## This code is free software; you can redistribute it and/or modify
## it under the same terms as Perl itself.
##
## $Id: Debug.pm,v 1.1.1.1 2001/06/10 14:39:39 vipul Exp $

package Concurrent::Debug; 
use strict;
use vars qw(@ISA @EXPORT_OK);
require Exporter;
@ISA = qw(Exporter);

@EXPORT_OK = qw(debug debuglevel); 

my $DEBUG = 0; 

sub debug{
    return undef unless $DEBUG;
    my ($caller, undef) = caller;
    my (undef,undef,$line,$sub) = caller(1); $sub =~ s/.*://;
    $sub = sprintf "%12s()%4d", $sub, $line;
    $sub .= " |  " . (shift);  
    $sub =~ s/\x00/[0]/g; 
    $sub =~ s/\x01/[1]/g; 
    $sub =~ s/\x02/[2]/g; 
    $sub =~ s/\x04/[4]/g; 
    $sub =~ s/\x05/[5]/g; 
    $sub =~ s/\xff/[-]/g; 
    $sub =~ s/[\x00-\x1f]/\./g; 
    $sub =~ s/[\x7f-\xfe]/_/g;
    print "$sub\n";
}


sub debuglevel { 

    my ($level) = shift;
    $DEBUG = $level;
    $| = 1;

}



1;