eval {
    # Do stuff
}; if (my $e = $@) {
    unless (UNIVERSAL::isa($e, 'Our::Project::Exception')) {
        $e = Our::Project::Exception::ThirdPartyError->new($e);
    }
    # Handle any errors
}