4 use Data::Dumper::Concise;
5 use Test::More qw(no_plan);
7 my $dd = Data::Dumper->new([])
17 my $to_dump = { foo => "bar\nbaz", quux => sub { "fleem" } };
19 $dd_c->Values([ $to_dump ]);
20 $dd->Values([ $to_dump ]);
23 local $Data::Dumper::Terse = 1;
24 local $Data::Dumper::Indent = 1;
25 local $Data::Dumper::Useqq = 1;
26 local $Data::Dumper::Deparse = 1;
27 local $Data::Dumper::Quotekeys = 0;
28 local $Data::Dumper::Sortkeys = 1;
29 Data::Dumper::Dumper($to_dump);
32 is($example, $dd->Dump, 'Both Data::Dumper usages equivalent');
34 is($example, $dd_c->Dump, 'Returned object usage equivalent');
36 is($example, Dumper($to_dump), 'Subroutine call usage equivalent');
38 ok(!eval { Dumper(1); 1 }, 'Non-ref call dies');
40 ok(!eval { Dumper({}, {}); 1 }, 'Multi-ref call dies');