#!/usr/bin/env perl
use Log::Report 'testing';
my $mode = 'DEBUG';
my $tracing = '';
dispatcher PERL => 'default', mode => $mode if $mode;
open( MEMORY, '>', \$tracing ) or die "Can't open memory file: $!";
dispatcher PERL => 'default', mode => $mode if $mode;
trace "Test 1";
dispatcher FILE => 'tracing', mode => $mode, to => \*MEMORY if $mode;
trace "test2";
dispatcher disable => 'default';
trace "test3";
dispatcher enable => 'default';
trace "test4";
dispatcher close => 'tracing';
print "TRACING $tracing";
exit 0;

