X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FData%2FDumper%2FConcise%2FSugar.pm;fp=lib%2FData%2FDumper%2FConcise%2FSugar.pm;h=05150526f0e064b234f1887c55b3860694acceb5;hb=ce1f3e8e79266acb2dd4b8562883e0b3be109657;hp=0000000000000000000000000000000000000000;hpb=e946236eae077a09ce1d8cee071fde812d932a09;p=p5sagit%2FData-Dumper-Concise.git

diff --git a/lib/Data/Dumper/Concise/Sugar.pm b/lib/Data/Dumper/Concise/Sugar.pm
new file mode 100644
index 0000000..0515052
--- /dev/null
+++ b/lib/Data/Dumper/Concise/Sugar.pm
@@ -0,0 +1,65 @@
+package Data::Dumper::Concise::Sugar;
+
+use 5.006;
+
+use Exporter ();
+use Data::Dumper::Concise ();
+
+BEGIN { @ISA = qw(Exporter) }
+
+@EXPORT = qw(Dwarn DwarnS);
+
+sub Dwarn { warn Data::Dumper::Concise::Dumper @_; @_ }
+
+sub DwarnS ($) { warn Data::Dumper::Concise::Dumper $_[0]; $_[0] }
+
+=head1 NAME
+
+Data::Dumper::Concise::Sugar - return Dwarn @return_value
+
+=head1 SYNOPSIS
+
+  use Data::Dumper::Concise::Sugar;
+
+  return Dwarn some_call(...)
+
+is equivalent to:
+
+  use Data::Dumper::Concise;
+
+  my @return = some_call(...);
+  warn Dumper(@return);
+  return @return;
+
+but shorter. If you need to force scalar context on the value,
+
+  use Data::Dumper::Concise::Sugar;
+
+  return DwarnS some_call(...)
+
+is equivalent to:
+
+  use Data::Dumper::Concise;
+
+  my $return = some_call(...);
+  warn Dumper($return);
+  return $return;
+
+=head1 DESCRIPTION
+
+  use Data::Dumper::Concise::Sugar;
+
+will import Dwarn and DwarnS into your namespace. Using L<Exporter>, so see
+its docs for ways to make it do something else.
+
+=head2 Dwarn
+
+  sub Dwarn { warn Data::Dumper::Concise::Dumper @_; @_ }
+
+=head3 DwarnS
+
+  sub DwarnS ($) { warn Data::Dumper::Concise::Dumper $_[0]; $_[0] }
+
+=cut 
+
+1;