From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Thu, 10 Dec 2009 05:35:35 +0000 (-0600)
Subject: POD for Devel::Dwarn
X-Git-Tag: v2.000~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dc06d25b10a184f408bc56249d2c24e7ec4dacdd;p=p5sagit%2FData-Dumper-Concise.git

POD for Devel::Dwarn
---

diff --git a/lib/Data/Dumper/Concise/Sugar.pm b/lib/Data/Dumper/Concise/Sugar.pm
index 0515052..ba85d97 100644
--- a/lib/Data/Dumper/Concise/Sugar.pm
+++ b/lib/Data/Dumper/Concise/Sugar.pm
@@ -60,6 +60,10 @@ its docs for ways to make it do something else.
 
   sub DwarnS ($) { warn Data::Dumper::Concise::Dumper $_[0]; $_[0] }
 
-=cut 
+=head1 SEE ALSO
+
+You probably want L<Devel::Dwarn>, it's the shorter name for this module.
+
+=cut
 
 1;
diff --git a/lib/Devel/Dwarn.pm b/lib/Devel/Dwarn.pm
index 403c742..9029cc0 100644
--- a/lib/Devel/Dwarn.pm
+++ b/lib/Devel/Dwarn.pm
@@ -6,4 +6,43 @@ sub import {
   Data::Dumper::Concise::Sugar->export_to_level(1, @_);
 }
 
+=head1 NAME
+
+Devel::Dwarn - return Dwarn @return_value
+
+=head1 SYNOPSIS
+
+  use Devel::Dwarn;
+
+  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 Devel::Dwarn;
+
+  return DwarnS some_call(...)
+
+is equivalent to:
+
+  use Data::Dumper::Concise;
+
+  my $return = some_call(...);
+  warn Dumper($return);
+  return $return;
+
+=head1 SEE ALSO
+
+This module is really just a shortcut for L<Data::Dumper::Concise::Sugar>, check
+it out for more complete documentation.
+
+=cut
+
 1;