Crypt::RSA::Debug - Debug routine for Crypt::RSA.

Crypt-RSA documentation Contained in the Crypt-RSA distribution.

Index

Code Index:

NAME

Top

Crypt::RSA::Debug - Debug routine for Crypt::RSA.

SYNOPSIS

Top

    use Crypt::RSA::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.

debuglevel Integer

Sets the class data debuglevel to specified value. The value defaults to 0. Callers can use the debuglevel facility by comparing $Crypt::RSA::DEBUG to the desired debug level before generating a debug statement.

AUTHOR

Top

Vipul Ved Prakash, <mail@vipul.net>

Crypt-RSA documentation Contained in the Crypt-RSA distribution. 
#!/usr/bin/perl -s
##
## Crypt::RSA::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.9 2001/04/09 22:21:49 vipul Exp $

package Crypt::RSA::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;