X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FData%2FDumper%2FConcise%2FSugar.pm;h=9a514b2908b352f435c7aeda55d255f19f77baa7;hb=d776e43427e88900efc149026583cc4b64d8c130;hp=addd8e25f24bb8f9aa883af5766088017cf966bc;hpb=9e8a5bca132ade1de969c6facc731b2985bc8bb9;p=p5sagit%2FData-Dumper-Concise.git

diff --git a/lib/Data/Dumper/Concise/Sugar.pm b/lib/Data/Dumper/Concise/Sugar.pm
index addd8e2..9a514b2 100644
--- a/lib/Data/Dumper/Concise/Sugar.pm
+++ b/lib/Data/Dumper/Concise/Sugar.pm
@@ -9,10 +9,24 @@ BEGIN { @ISA = qw(Exporter) }
 
 @EXPORT = qw(Dwarn DwarnS);
 
+@EXPORT_OK = qw(Dwarn_only DwarnS_only);
+
 sub Dwarn { warn Data::Dumper::Concise::Dumper @_; @_ }
 
 sub DwarnS ($) { warn Data::Dumper::Concise::Dumper $_[0]; $_[0] }
 
+sub Dwarn_only (&@) {
+  my $only = shift;
+  warn Data::Dumper::Concise::Dumper $only->(@_);
+  @_
+}
+
+sub DwarnS_only (&$) {
+  my $only = shift;
+  warn Data::Dumper::Concise::Dumper do { local $_ = $_[0]; $only->($_[0]) };
+  $_[0]
+}
+
 =head1 NAME
 
 Data::Dumper::Concise::Sugar - return Dwarn @return_value