X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage%2FBase.pm;h=a7188d7cd4e660b3c6371be00f316bf55f54cb6e;hb=7dc3247307f2e86af154dc449224f22ba8923c79;hp=5b93f20992e00411b7d981f0af15edfc32a1e7c6;hpb=eafc7f54b9d964aac41b0715e18caf5ed58ef89a;p=plack-app-gruntmaster.git diff --git a/lib/Gruntmaster/Page/Base.pm b/lib/Gruntmaster/Page/Base.pm index 5b93f20..a7188d7 100644 --- a/lib/Gruntmaster/Page/Base.pm +++ b/lib/Gruntmaster/Page/Base.pm @@ -24,6 +24,10 @@ sub import { *{"${caller}::strftime"} = \&POSIX::strftime; *{"${caller}::NAME"} = sub () { $name }; *{"${caller}::TITLE"} = sub () { $title }; + *{"${caller}::debug"} = sub { + local $Log::Log4perl::caller_depth = $Log::Log4perl::caller_depth + 1; + $_[0]->({qw/level debug message/ => $_[1]}) + }; } ################################################## @@ -32,17 +36,20 @@ my %orig_header_templates = ( en => <<'HTML',