File Coverage

blib/lib/Debug/Simple.pm

Criterion	Covered	Total	%
statement	12	45	26.6
branch	0	20	0.0
condition	0	41	0.0
subroutine	4	10	40.0
pod	5	5	100.0
total	21	121	17.3

# Copyright (c) 2008 Behan Webster. All rights reserved. This program is free
# software; you can redistribute it and/or modify it under the same terms
# as Perl itself.

package Debug::Simple;

use strict;
require Exporter;
use Data::Dumper;
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;

use vars qw(@EXPORT @ISA $VERSION);

$VERSION = "0.10";
@ISA = qw(Exporter);
@EXPORT  = qw(debuglevels warning debug verbose test);

my $opt;

###############################################################################
sub debuglevels {
	# Needs to have the keys: quiet, debug, verbose, test
	($opt) = @_;
	&debug(5, "Command line options: ", OPTS => $opt);
}

###############################################################################
sub _list {
	return (ref($_[0]) eq 'ARRAY') ? @{$_[0]} : @_;
}

###############################################################################
sub warning {
	return if $opt->{quiet};
	#warn ("Warning: ", @_);
	print YELLOW ("Warning: ", @_);
	print "";
}

###############################################################################
sub debug {
	return if $opt->{quiet};
	my @level = (&_list(shift), 0, 0, 0);

	return unless  (defined $opt->{debug} && $level[0] <= $opt->{debug})
				|| ($opt->{verbose} && $level[1] && $level[1] <= $opt->{verbose})
				|| ($opt->{test} && $level[2]);

	#print "DEBUG\n" if defined $opt->{debug} && $level[0] <= $opt->{debug};
	#print "VERBOSE: $opt->{verbose} && $level[1]\n" if defined $opt->{verbose} && $level[1] <= $opt->{verbose};
	#print "TEST\n" if defined $opt->{test} && $level[3];

	my $str = shift || '';
	my $name = shift;

	print BOLD "Debug: " unless $level[1] || $level[2];
	print BOLD "$str";
	if ($name && @_) {
		my $save = $Data::Dumper::Varname;
		$Data::Dumper::Varname = $name;
		print BOLD Dumper(@_);
		$Data::Dumper::Varname = $save;
	}
	print "";
}

###############################################################################
sub verbose {
	return if $opt->{quiet};
	my @level = (&_list(shift), 0, 0);

	return unless  ($opt->{verbose} && $level[0] && $level[0] <= $opt->{verbose})
				|| ($opt->{test} && $level[1]);

	print @_;
	print "";
}

###############################################################################
sub test {
	my $code = shift;
	my $str = shift || $code;

	if ($opt->{test}) {
		print CYAN "$str\n";
	} else {
		eval $code;
		print MAGENTA "Eval failed: $@\n" if $@;
		return $@;
	}
	print "";
}

1;
###############################################################################
__END__