tidy

garu · Aug 13, 2012 · 6971479 · 6971479
1 parent 2154ebf
commit 6971479
Showing 1 changed file with 17 additions and 18 deletions.
diff --git a/lib/MojoX/Log/Log4perl.pm b/lib/MojoX/Log/Log4perl.pm
@@ -58,19 +58,18 @@ sub new {
 }
 
 sub log {
-    my ($self, $level, @msgs) = @_;
+	my ($self, $level, @msgs) = @_;
 
 	my $logger = $self->_get_logger();
 
-    # Check
+	# Check
-    $level = lc $level;
+	$level = lc $level;
 	if ($level =~ m/^(?:trace|debug|info|warn|error|fatal)$/o) {
-        local $Log::Log4perl::caller_depth =
+		local $Log::Log4perl::caller_depth =
-            $Log::Log4perl::caller_depth + 1;
+		   $Log::Log4perl::caller_depth + 1;
 		$logger->$level(@msgs);
 	}
-
+	return $self;
-    return $self;
 }
 
 sub is_trace { shift->_get_logger->is_trace }
@@ -101,22 +100,22 @@ sub level {
 	my ($self, $level) = (@_);
 	my $logger = $self->_get_logger;
 
-    require Log::Log4perl::Level;
+	require Log::Log4perl::Level;
-    if ($level) {
+	if ($level) {
-    	return $logger->level( Log::Log4perl::Level::to_priority(uc $level) );
+		return $logger->level( Log::Log4perl::Level::to_priority(uc $level) );
-    }
+	}
-    else {
+	else {
 		return Log::Log4perl::Level::to_level( $logger->level() );
-    }
+	}
 }
 
 sub _get_logger {
-    # get our caller
+	# get our caller
-    my ($pkg, $line) = (caller())[0, 2];
+	my ($pkg, $line) = (caller())[0, 2];
-    ($pkg, $line) = (caller(1))[0, 2] if $pkg eq ref shift;
+	($pkg, $line) = (caller(1))[0, 2] if $pkg eq ref shift;
 
-    # get correct logger for our caller
+	# get correct logger for our caller
-    my $logger = Log::Log4perl->get_logger($pkg);
+	my $logger = Log::Log4perl->get_logger($pkg);
 	return $logger;
 }