From 320df45b59cee0285657b73b0731bdc4f4b1a964 Mon Sep 17 00:00:00 2001
From: Miquel Ruiz <mruiz@cpan.org>
Date: Sat, 17 Dec 2011 17:38:22 +0100
Subject: [PATCH] Additional custom log level

If loglevel is set to "none", nothing will be logged
---
 lib/App/cart/Logger.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/App/cart/Logger.pm b/lib/App/cart/Logger.pm
index c3ba6ad..4ecc642 100644
--- a/lib/App/cart/Logger.pm
+++ b/lib/App/cart/Logger.pm
@@ -20,11 +20,12 @@ binmode *STDOUT, ':encoding(UTF-8)';
 my $i = 0;
 my @methods = Log::Any->logging_methods;
 my %levels  = map { $_ => $i++ } @methods;
+$levels{none} = $i;
 
 sub init {
     my ($self) = @_;
     $self->{level} ||= 'info';
-    
+
     croak "Unknown log level: '$self->{level}'"
         unless defined $levels{$self->{level}};
 }