Exception::Base

exception.pl

use 5.014;
use warnings;

use Try::Tiny;
use Exception::Base;

try {
    if ( 0 ) {
        Exception::Base->throw( message => 'this sucks', value => 0 );
    }

    if ( 1 ) {
        Exception::Base->throw( message => 'this really sucks', value => 1 );
    }
}
catch {
    given ( $_ ) {
        when ( $_ == 0 ) {
            say $_;
        }
        when ( $_ == 1 ) {
            say $_;
        }
    }
}