@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
warn Dumper($return);
return $return;
+Another trick that is extremely useful when doing method chaining is the
+following:
+
+ my $foo = Bar->new;
+ $foo->bar->baz->Data::Dumper::Concise::Sugar::DwarnS->biff;
+
+which is the same as:
+
+ my $foo = Bar->new;
+ (DwarnS $foo->bar->baz)->biff;
+
=head1 DESCRIPTION
use Data::Dumper::Concise::Sugar;