use Exception::Class::Nested (
  'MyException' => {
    description => 'This is mine!',

    'YetAnotherException' => {
      description => 'These exceptions are related to IPC',

      'ExceptionWithFields' => {
        fields => [ 'grandiosity', 'quixotic' ],
        alias => 'throw_fields',
        full_message => sub {
          my $self = shift;
          my $msg = $self->message;
          $msg .= " and grandiosity was " . $self->grandiosity;
          return $msg;
        }
      }
    }
  }
);