6 use Test::More 'no_plan';
8 use Log::Contextual qw{:dlog set_logger};
10 my $var_log = VarLogger->new;
12 set_logger(sub { $var_log });
13 my @foo = Dlog_debug { "Look ma, data: $_" } qw{frew bar baz};
14 ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_debug passes data through correctly');
15 is( $var_log->var, <<'OUT', 'Output for Dlog_debug is correct');
16 dLook ma, data: "frew"
20 my $bar = DlogS_debug { "Look ma, data: $_" } [qw{frew bar baz}];
21 ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_debug passes data through correctly');
22 is( $var_log->var, <<'OUT', 'Output for DlogS_debug is correct');