I wanted to suggest

• dropping the $_ because it's redundant
• dropping the default case ' => sub { die $_[0] },' because it's redundant too
• elevating handle_error or rather handle to the same level like catch
• like this a simple catch could be used if the default isn't wanted.

But I think Lukas already did this in Try::Tiny::ByClass

use Try::Tiny::ByClass;
 
try {
      die $exception_object;
} catch_case [
  'Some::Class' => sub {
    # handle Some::Class exceptions
  },
  'Exception::DivByZero' => sub {
    # handle Exception::DivByZero exceptions
  },
], finally {
  # always do this
};
[download]

Tho I sense a bit of confusion between finally and a "naked" catch