use Exporter ();
use Data::Dumper::Concise ();
-use Devel::ArgNames;
BEGIN { @ISA = qw(Exporter) }
-@EXPORT = qw(Dwarn DwarnS DwarnL DwarnN);
+@EXPORT = qw($Dwarn $DwarnN Dwarn DwarnS DwarnL DwarnN);
sub Dwarn { return DwarnL(@_) if wantarray; DwarnS($_[0]) }
+our $Dwarn = \&Dwarn;
+our $DwarnN = \&DwarnN;
+
sub DwarnL { warn Data::Dumper::Concise::Dumper @_; @_ }
sub DwarnS ($) { warn Data::Dumper::Concise::Dumper $_[0]; $_[0] }
sub DwarnN ($) {
- my $x = arg_names();
+ require Devel::ArgNames;
+ my $x = Devel::ArgNames::arg_names();
warn(($x?$x:'(anon)') . ' => ' . Data::Dumper::Concise::Dumper $_[0]); $_[0]
}
warn Dumper(@return);
return @return;
+If you want to label your output, try DwarnN
+
+ use Data::Dumper::Concise::Sugar;
+
+ return DwarnN $foo
+
+is equivalent to:
+
+ use Data::Dumper::Concise;
+
+ my @return = some_call(...);
+ warn '$foo => ' . Dumper(@return);
+ return @return;
+
+If you want to output a reference returned by a method easily, try $Dwarn
+
+ $foo->bar->{baz}->$Dwarn
+
+is equivalent to:
+
+ my $return = $foo->bar->{baz};
+ warn Dumper($return);
+ return $return;
+
=head1 DESCRIPTION
use Data::Dumper::Concise::Sugar;
-will import Dwarn, DwarnL, and DwarnS into your namespace. Using L<Exporter>, so see
-its docs for ways to make it do something else.
+will import Dwarn, $Dwarn, DwarnL, DwarnN, and DwarnS into your namespace. Using
+L<Exporter>, so see its docs for ways to make it do something else.
=head2 Dwarn
sub Dwarn { return DwarnL(@_) if wantarray; DwarnS($_[0]) }
+=head2 $Dwarn
+
+ $Dwarn = \&Dwarn
+
+=head2 $DwarnN
+
+ $DwarnN = \&DwarnN
+
=head2 DwarnL
sub Dwarn { warn Data::Dumper::Concise::Dumper @_; @_ }
sub DwarnS ($) { warn Data::Dumper::Concise::Dumper $_[0]; $_[0] }
+=head2 DwarnN
+
+ sub DwarnN { warn '$argname => ' . Data::Dumper::Concise::Dumper $_[0]; $_[0] }
+
+B<Note>: this requires L<Devel::ArgNames> to be installed.
+
=head1 TIPS AND TRICKS
=head2 global usage