#!/usr/bin/env perl

use lib '../../lib';
use Log::Report mode => 'VERBOSE';

dispatcher CALLBACK => 'cb', callback => sub { print "CB=$_[3]\n" };
report {to=>'cb'}, WARNING => "Test\n";

print "PROTECT REPORT\n";

try { report {to=>'cb'}, WARNING => "Foobar" } 
#try { warning "Foobar", _to => 'cb' }
   hide => 'ALL', accept => 'ALL';

print "REPORT ALL\n";
print "MSG $_\n" for $@->exceptions;
$@->reportAll(is_fatal => 0);
