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