add Log::Contextual::Sugar

diff --git a/lib/Log/Contextual/Sugar.pm b/lib/Log/Contextual/Sugar.pm
new file mode 100644 (file)
index 0000000..eecc46d
--- /dev/null
+++ b/lib/Log/Contextual/Sugar.pm
@@ -0,0 +1,30 @@
+package Log::Contextual::Sugar;
+
+require Exporter;
+
+BEGIN { @ISA = qw(Exporter) }
+
+@EXPORT = qw(Dlog_debug DlogS_debug);
+
+use Data::Dumper::Concise;
+use Log::Contextual ();
+
+sub Dlog_debug (&@) {
+  my $code = shift;
+  my @values = @_;
+  Log::Contextual::log_debug {
+     do { local $_ = Data::Dumper::Concise::Dumper @values; $code->() };
+  };
+  @values
+}
+
+sub DlogS_debug (&$) {
+  my $code = $_[0];
+  my $value = $_[1];
+   Log::Contextual::log_debug {
+     do { local $_ = Data::Dumper::Concise::Dumper $value; $code->() };
+  };
+  $value
+}
+
+1;