Commit | Line | Data |
60e18490 |
1 | package Devel::Dwarn; |
2 | |
3 | use Data::Dumper::Concise::Sugar (); |
4 | |
d71b0a31 |
5 | sub import { |
6 | Data::Dumper::Concise::Sugar->export_to_level(1, @_); |
7 | } |
60e18490 |
8 | |
dc06d25b |
9 | =head1 NAME |
10 | |
11 | Devel::Dwarn - return Dwarn @return_value |
12 | |
13 | =head1 SYNOPSIS |
14 | |
15 | use Devel::Dwarn; |
16 | |
17 | return Dwarn some_call(...) |
18 | |
19 | is equivalent to: |
20 | |
21 | use Data::Dumper::Concise; |
22 | |
23 | my @return = some_call(...); |
24 | warn Dumper(@return); |
25 | return @return; |
26 | |
27 | but shorter. If you need to force scalar context on the value, |
28 | |
29 | use Devel::Dwarn; |
30 | |
31 | return DwarnS some_call(...) |
32 | |
33 | is equivalent to: |
34 | |
35 | use Data::Dumper::Concise; |
36 | |
37 | my $return = some_call(...); |
38 | warn Dumper($return); |
39 | return $return; |
40 | |
41 | =head1 SEE ALSO |
42 | |
43 | This module is really just a shortcut for L<Data::Dumper::Concise::Sugar>, check |
44 | it out for more complete documentation. |
45 | |
46 | =cut |
47 | |
60e18490 |
48 | 1; |