X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FLog.pm;h=26c2fefd2398f93c28cd354583e1d9bdcd769def;hb=3ad654e0c538876403f3e664f0d9f302ef470770;hp=97923930ed992c650da0cdd9e8517f87ca546d43;hpb=49ba64d78a4954b8e478745f317ad6b593a6b0ae;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Log.pm b/lib/Catalyst/Log.pm index 9792393..26c2fef 100644 --- a/lib/Catalyst/Log.pm +++ b/lib/Catalyst/Log.pm @@ -8,7 +8,7 @@ our %LEVELS = (); __PACKAGE__->mk_accessors('level'); -{ +BEGIN { my @levels = qw[ debug info warn error fatal ]; for ( my $i = 0 ; $i < @levels ; $i++ ) { @@ -169,9 +169,13 @@ Disable log levels $log->disable( 'warn', 'error' ); =item is_debug + =item is_error + =item is_fatal + =item is_info + =item is_warn Is the log level active?