4 use Data::Dumper::Concise;
5 use Test::More qw(no_plan);
7 my $dd = Data::Dumper->new([])
14 $dd->Trailingcomma(1) if $dd->can('Trailingcomma');
17 [ { foo => "bar\nbaz", quux => sub { "fleem" } } ],
21 $dd->Values([ @$to_dump ]);
24 local $Data::Dumper::Terse = 1;
25 local $Data::Dumper::Indent = 1;
26 local $Data::Dumper::Useqq = 1;
27 local $Data::Dumper::Deparse = 1;
28 local $Data::Dumper::Quotekeys = 0;
29 local $Data::Dumper::Sortkeys = 1;
30 no warnings 'once'; # in case Trailingcomma option is unknown in this DD
31 local $Data::Dumper::Trailingcomma = 1;
32 Data::Dumper::Dumper(@$to_dump);
35 is($example, $dd->Dump, 'Both Data::Dumper usages equivalent');
37 is($example, Dumper(@$to_dump), 'Subroutine call usage equivalent');
40 my $out = DumperF { "arr: $_[0] str: $_[1]" } [qw(wut HALP)], "gnarl";
42 like($out, qr{^arr: \[\n "wut",\n "HALP",?\n\]\n str: "gnarl"\n\z}, 'DumperF works!');
44 like(Dumper([1..3]), qr/,\s*]\s*$/, 'trailing comma enabled')
45 if $dd->can('Trailingcomma');