1 package Data::Dumper::Concise::Sugar;
6 use Data::Dumper::Concise ();
8 BEGIN { @ISA = qw(Exporter) }
10 @EXPORT = qw(Dwarn DwarnS DwarnL);
12 sub Dwarn { return DwarnL(@_) if wantarray; DwarnS($_[0]) }
14 sub DwarnL { warn Data::Dumper::Concise::Dumper @_; @_ }
16 sub DwarnS ($) { warn Data::Dumper::Concise::Dumper $_[0]; $_[0] }
20 Data::Dumper::Concise::Sugar - return Dwarn @return_value
24 use Data::Dumper::Concise::Sugar;
26 return Dwarn some_call(...)
30 use Data::Dumper::Concise;
32 my @return = some_call(...);
36 but shorter. If you need to force scalar context on the value,
38 use Data::Dumper::Concise::Sugar;
40 return DwarnS some_call(...)
44 use Data::Dumper::Concise;
46 my $return = some_call(...);
50 Another trick that is extremely useful when doing method chaining is the
54 $foo->bar->baz->Data::Dumper::Concise::Sugar::DwarnS->biff;
59 (DwarnS $foo->bar->baz)->biff;
63 use Data::Dumper::Concise::Sugar;
65 will import Dwarn and DwarnS into your namespace. Using L<Exporter>, so see
66 its docs for ways to make it do something else.
70 sub Dwarn { warn Data::Dumper::Concise::Dumper @_; @_ }
74 sub DwarnS ($) { warn Data::Dumper::Concise::Dumper $_[0]; $_[0] }
78 You probably want L<Devel::Dwarn>, it's the shorter name for this module.