From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Sun, 21 Feb 2010 03:48:16 +0000 (-0600)
Subject: use logS_$level passthrough for DlogS_$level
X-Git-Tag: v0.00100~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=709d11fe5836930230476248e2e291701087ed28;p=p5sagit%2FLog-Contextual.git

use logS_$level passthrough for DlogS_$level
---

diff --git a/lib/Log/Contextual.pm b/lib/Log/Contextual.pm
index b472e91..35a7667 100644
--- a/lib/Log/Contextual.pm
+++ b/lib/Log/Contextual.pm
@@ -122,6 +122,61 @@ sub log_fatal (&@) {
 }
 
 
+sub logS_trace (&$) {
+   my $log  = $Get_Logger->();
+   my $code = shift;
+   my $value = shift;
+   $log->trace($code->($value))
+      if $log->is_trace;
+   $value
+}
+
+sub logS_debug (&$) {
+   my $log  = $Get_Logger->();
+   my $code = shift;
+   my $value = shift;
+   $log->debug($code->($value))
+      if $log->is_debug;
+   $value
+}
+
+sub logS_info (&$) {
+   my $log  = $Get_Logger->();
+   my $code = shift;
+   my $value = shift;
+   $log->info($code->($value))
+      if $log->is_info;
+   $value
+}
+
+sub logS_warn (&$) {
+   my $log  = $Get_Logger->();
+   my $code = shift;
+   my $value = shift;
+   $log->warn($code->($value))
+      if $log->is_warn;
+   $value
+}
+
+sub logS_error (&$) {
+   my $log  = $Get_Logger->();
+   my $code = shift;
+   my $value = shift;
+   $log->error($code->($value))
+      if $log->is_error;
+   $value
+}
+
+sub logS_fatal (&$) {
+   my $log  = $Get_Logger->();
+   my $code = shift;
+   my $value = shift;
+   $log->fatal($code->($value))
+      if $log->is_fatal;
+   $value
+}
+
+
 
 sub Dlog_trace (&@) {
   my $code = shift;
@@ -176,55 +231,49 @@ sub Dlog_fatal (&@) {
 sub DlogS_trace (&$) {
   my $code = $_[0];
   my $value = $_[1];
-  log_trace {
+  logS_trace {
      do { local $_ = Data::Dumper::Concise::Dumper $value; $code->() };
-  };
-  $value
+  } $value
 }
 
 sub DlogS_debug (&$) {
   my $code = $_[0];
   my $value = $_[1];
-  log_debug {
+  logS_debug {
      do { local $_ = Data::Dumper::Concise::Dumper $value; $code->() };
-  };
-  $value
+  } $value
 }
 
 sub DlogS_info (&$) {
   my $code = $_[0];
   my $value = $_[1];
-  log_info {
+  logS_info {
      do { local $_ = Data::Dumper::Concise::Dumper $value; $code->() };
-  };
-  $value
+  } $value
 }
 
 sub DlogS_warn (&$) {
   my $code = $_[0];
   my $value = $_[1];
-  log_warn {
+  logS_warn {
      do { local $_ = Data::Dumper::Concise::Dumper $value; $code->() };
-  };
-  $value
+  } $value
 }
 
 sub DlogS_error (&$) {
   my $code = $_[0];
   my $value = $_[1];
-  log_error {
+  logS_error {
      do { local $_ = Data::Dumper::Concise::Dumper $value; $code->() };
-  };
-  $value
+  } $value
 }
 
 sub DlogS_fatal (&$) {
   my $code = $_[0];
   my $value = $_[1];
-  log_fatal {
+  logS_fatal {
      do { local $_ = Data::Dumper::Concise::Dumper $value; $code->() };
-  };
-  $value
+  } $value
 }
 
 1;