Select Code to Download

use Exception::Class (
    'MyException',
...
        alias  => 'throw_fields',
    },
);

 
eval{ die { a=>b=>c=>d=>}; } or print %{ $@ };;
c d a b

  # catch
  if ( $e = Exception::Class->caught('MyException') ) {
...
      $e = Exception::Class->caught();
      ref $e ? $e->rethrow : die $e;
  }