#!/usr/bin/env perl

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

try { error "help!" };
if(my $died = $@->died)
{   print "Died normal, with $died; ref=", ref $died, "\n";
    print "   -> ", $@->wasFatal;
}


try { die "argggh!" };
if(my $died = $@->died)
{   print "Died decoded, with $died; ref=", ref $died, "\n";
    print "   -> ", $@->wasFatal;
}
