TRD::DebugLog - debug log

    use TRD::DebugLog;
    $TRD::DebugLog::enabled = 1;
    dlog( "this is debug log" );

  or

    use TRD::DebugLog { enabled=>1, timeformat='YYYY-MM-DD HH24:MI:SS' };
    dlog( "this is debug log" );

   show debug log.

   $TRD::DebugLog::enabled
    default: 0
       = 1 : enable debug log
       = 0 : disable debug log

   $TRD::DebugLog::timestamp
    default: 1
       = 1 : show timestamp enable
       = 0 : show timestamp disable

   $TRD::DebugLog::file
    default: undef
       debug log append to file

   $TRD::DebugLog::timeformat
     default: YYYY/MM/DD HH24:MI:SS
       YYYY : 4digit Year
       YY   : 2digit Year
       MM   : 2digit Month
       DD   : 2digit Day
       HH24 : 24hour 2digit Hour
       MI   : 2digit Min
       SS   : 2digit Sec

   $TRD::DebugLog::cutpackage
     default: main (cut 'main::' only)
            : all

    show exception log

    make timestr

    my $timestr = &TRD::DebugLog::getTimeStr( time );

    import module

    perldoc TRD::DebugLog

package TRD::DebugLog;

#use warnings;
use strict;

our $VERSION = '0.0.9';
our $enabled = 0;
our $timestamp = 1;
our $file = undef;
our $timeformat = 'YYYY/MM/DD HH24:MI:SS ';
our $cutpackage = 'main';

#======================================================================
sub dlog($)
{
	my( $log ) = @_;

	my $buff = undef;

	if( $TRD::DebugLog::enabled ){
		my( $source, $line, $func );
		( $source, $line ) = (caller 0)[1,2];
		( $func ) = (caller 1)[3];
		if( $cutpackage eq 'main' ){
			$func =~s/^main:://;
		} elsif( $cutpackage eq 'all' ){
			$func = ( split( '::', $func ) )[-1];
		}

		$buff = "${source}(${line}):${func}:${log}\n";

		if( $TRD::DebugLog::timestamp ){
			my $timestr = &getTimeStr();
			$buff = $timestr. $buff;
		}

		if( $TRD::DebugLog::file ){
			open( my $fh, ">>", "${file}" ) || die $!;
			print $fh $buff;
			close( $fh );
		} else {
			print STDERR $buff;
		}
	}
	return $buff;
}

#======================================================================
sub Exception
{
	my( $log ) = @_;
	my( $p, $f, $l ) = caller(0);
	my( $s ) = (caller(1))[3];

	print STDERR "TRD::DebugLog::Exception: ${log}\n";
	my $i=0;
	while(1){
		my( $package, $filename, $line ) = (caller $i)[0,1,2];
		my( $subroutine ) = (caller $i+1)[3];
		$package .= '::';
		$package = '' if( $package eq 'main::' );
		print STDERR "\tat ${filename}(${line})\t${package}${subroutine}\n";
		$i++;
		if( !defined( $subroutine ) ){
			last;
		}
	}
}

#======================================================================
sub getTimeStr
{
	my $time = (@_) ? shift : time;
	my( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
		localtime( $time );

	my $timestr = $timeformat;
	$timestr=~s/YYYY/sprintf( "%04d", $year + 1900)/eg;
	$timestr=~s/YY/sprintf( "%02d", $year - 100 )/eg;
	$timestr=~s/MM/sprintf( "%02d", $mon + 1 )/eg;
	$timestr=~s/DD/sprintf( "%02d", $mday )/eg;
	$timestr=~s/HH24/sprintf( "%02d", $hour )/eg;
	$timestr=~s/MI/sprintf( "%02d", $min )/eg;
	$timestr=~s/SS/sprintf( "%02d", $sec )/eg;

	return $timestr;
}

#======================================================================
sub import
{
	my $package = shift;
	my $callerpkg = (caller(0))[0];
	no strict qw(refs);
	*{"$callerpkg\::dlog"} = *{"TRD\::DebugLog\::dlog"};

	my( @param ) = @_;

	foreach my $p ( @param ){
		foreach my $key ( keys(%{$p}) ){
			if( $key eq 'enabled' ){
				$enabled = $p->{$key};
			} elsif( $key eq 'timestamp' ){
				$timestamp = $p->{$key};
			} elsif( $key eq 'file' ){
				$file = $p->{$key};
				$file = undef if( $file eq '' );
			} elsif( $key eq 'timeformat' ){
				$timeformat = $p->{$key};
			}
		}
	}
}

1; # End of TRD::DebugLog