lib/Log/Contextual/Sugar.pm

   1 package Log::Contextual::Sugar;
   2
   3 require Exporter;
   4
   5 BEGIN { @ISA = qw(Exporter) }
   6
   7 @EXPORT = qw(Dlog_debug DlogS_debug);
   8
   9 use Data::Dumper::Concise;
  10 use Log::Contextual ();
  11
  12 sub Dlog_debug (&@) {
  13   my $code = shift;
  14   my @values = @_;
  15   Log::Contextual::log_debug {
  16      do { local $_ = Data::Dumper::Concise::Dumper @values; $code->() };
  17   };
  18   @values
  19 }
  20
  21 sub DlogS_debug (&$) {
  22   my $code = $_[0];
  23   my $value = $_[1];
  24    Log::Contextual::log_debug {
  25      do { local $_ = Data::Dumper::Concise::Dumper $value; $code->() };
  26   };
  27   $value
  28 }
  29
  30 1;