lib/Devel/Dwarn.pm

   1 package Devel::Dwarn;
   2
   3 use Data::Dumper::Concise::Sugar ();
   4
   5 sub import {
   6   Data::Dumper::Concise::Sugar->export_to_level(1, @_);
   7 }
   8
   9 =head1 NAME
  10
  11 Devel::Dwarn - return Dwarn @return_value
  12
  13 =head1 SYNOPSIS
  14
  15   use Devel::Dwarn;
  16
  17   return Dwarn some_call(...)
  18
  19 is equivalent to:
  20
  21   use Data::Dumper::Concise;
  22
  23   my @return = some_call(...);
  24   warn Dumper(@return);
  25   return @return;
  26
  27 but shorter. If you need to force scalar context on the value,
  28
  29   use Devel::Dwarn;
  30
  31   return DwarnS some_call(...)
  32
  33 is equivalent to:
  34
  35   use Data::Dumper::Concise;
  36
  37   my $return = some_call(...);
  38   warn Dumper($return);
  39   return $return;
  40
  41 =head1 SEE ALSO
  42
  43 This module is really just a shortcut for L<Data::Dumper::Concise::Sugar>, check
  44 it out for more complete documentation.
  45
  46 =cut
  47
  48 1;