#!/usr/bin/env perl

use warnings;
use strict;

use Log::Report;

dispatcher SYSLOG => 'syslog';

try {
  report {is_fatal => 0, to => 'syslog'}, ERROR => "Non fatal error";
  error "This is an error";
};

warn "HERE";

$@->reportAll(is_fatal => 0);
