File Coverage

blib/lib/Blosxom/Debug.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	25	27	92.5

# Blosxom debug module and source filter
# Author(s): Gavin Carr
# Version: 0.001000

package Blosxom::Debug;

use strict;
use Filter::Simple;

use vars qw($VERSION);

$VERSION = 0.001000;

# Source filter magic - uncomment calls to debug()
FILTER_ONLY
    code => sub { s/^(\s*)#\s*(debug\()/$1$2/mg };

my %debug_level = ();
sub import {
    my $self = shift;
    my %arg = @_;
    my $package = caller;
    $debug_level{$package} = $arg{debug_level} || 0;
    {
        # Export local debug() into plugin's namespace (unless one already exists)
        no strict 'refs';
        *{"${package}::debug"} = \&debug unless defined &{"${package}::debug"};
    }
}

# Debug logger - warn @msg iff $level <= calling package's $debug_level
sub debug {
    my ($level, @msg) = @_;

    my $msg = join(' ', @msg);
    $msg .= "\n" unless substr($msg, -1) eq "\n";

    my $package = caller;
#   warn "[debug] level $level, package $package, debug_level $debug_level{$package}\n";
    warn "$package debug $level: $msg" if $level <= $debug_level{$package};
}

1;

__END__