1package Devel::Dwarn; 2 3use Data::Dumper::Concise::Sugar; 4 5sub import { 6 Data::Dumper::Concise::Sugar->export_to_level(1, @_); 7} 8 9=head1 NAME 10 11Devel::Dwarn - return Dwarn @return_value 12 13=head1 SYNOPSIS 14 15 use Devel::Dwarn; 16 17 return Dwarn some_call(...) 18 19is equivalent to: 20 21 use Data::Dumper::Concise; 22 23 my @return = some_call(...); 24 warn Dumper(@return); 25 return @return; 26 27but shorter. If you need to force scalar context on the value, 28 29 use Devel::Dwarn; 30 31 return DwarnS some_call(...) 32 33is equivalent to: 34 35 use Data::Dumper::Concise; 36 37 my $return = some_call(...); 38 warn Dumper($return); 39 return $return; 40 41Another trick that is extremely useful when doing method chaining is the 42following: 43 44 my $foo = Bar->new; 45 $foo->bar->baz->Devel::Dwarn::DwarnS->biff; 46 47which is the same as: 48 49 my $foo = Bar->new; 50 (DwarnS $foo->bar->baz)->biff; 51 52=head1 SEE ALSO 53 54This module is really just a shortcut for L<Data::Dumper::Concise::Sugar>, check 55it out for more complete documentation. 56 57=cut 58 591; 60