#!/usr/bin/perl
use warnings;
use strict;

use Try::Tiny;

sub handle_error {
    my ($e, $dispatch_error) = @_;

    my $error_type = ref $e;
    $error_type = '' unless exists $dispatch_error->{$error_type};
    $dispatch_error->{$error_type}->($e);

    return
}

for my $case (0, 1, 2) {
    try {
        [ sub { die bless {source => 'Int', target => 'Float'}, 'TypeError' },
          sub { die bless {value => 2**65,
                           min   => -2**32,
                           max   => 2**32}, 'RangeError' },
          sub { die bless {}, 'Segmentation Fault' }
      ]->[$case]->()
    } catch {
        handle_error($_, {
            TypeError => sub {
                warn "Coercing type $_[0]{source} to $_[0]{target}" },
            RangeError => sub {
                warn "$_[0]{value} not between $_[0]{min} and $_[0]{max}" },
            '' => sub { die $_[0] },
        });
    };
    print "next\n";
}