4 use Log::Contextual::SimpleLogger;
5 use Test::More 'no_plan';
9 my @levels = qw(debug trace warn info error fatal);
12 $var_log = Log::Contextual::SimpleLogger->new({
13 levels => [qw(trace debug info warn error fatal)],
14 coderef => sub { $var = shift }
18 use Log::Contextual qw{:dlog}, -logger => $var_log;
20 for my $level (@levels) {
22 my @foo = main->can("Dlog_$level")->(
23 sub { "Look ma, data: $_" },
27 eq_array(\@foo, [qw{frew bar baz}]),
28 "Dlog_$level passes data through correctly"
31 $var, qq([$level] Look ma, data: "frew"\n"bar"\n"baz"\n),
32 "Output for Dlog_$level is correct"
35 my $bar = main->can("DlogS_$level")->(
36 sub { "Look ma, data: $_" },
40 eq_array($bar, [qw{frew bar baz}]),
41 'DlogS_trace passes data through correctly'
44 $var, qq([$level] Look ma, data: [\n "frew",\n "bar",\n "baz"\n]\n),
45 "Output for DlogS_$level is correct"
48 @foo = main->can("Dlog_$level")->(sub { "nothing: $_" }, ());
49 ok( eq_array(\@foo, []), "Dlog_$level passes nothing through correctly");
50 is( $var, "[$level] nothing: ()\n", "Output for Dlog_$level is correct");