try-lite.pl

use strict;
use warnings;
use utf8;
use Perl6::Say;
use Try::Lite;

package 俺の例外;
use parent 'Exception::Tiny';

package main;

try {
    俺の例外->throw();
} @{
    '俺の例外' => sub {
        say "---> $@";
    },
    '*' => sub {
        say "--->> $@";
    }
}