#!/usr/bin/env perl

use warnings;
use strict;

use lib '../../lib';
use Log::Report;

use Data::Dumper;
$Data::Dumper::Indent = 1;

try { report {is_fatal => 1}, INFO => __"oops"; };
warn defined($@->wasFatal) ? "YES" : "NO";
warn Dumper $@;

my $success = try { report {is_fatal => 1}, INFO => __"Not"; } on_die => 'PANIC';

if($@)
{   my $exception = $@->wasFatal;
    warn "EX=$exception";
    my $failure   = __x"...";
    $exception->message($failure . $exception->message);
    $exception->throw(is_fatal => 0);
}

