Your implementation provides no diagnostics on failure; that code accounts for much of the rest of Test::Exception's complexity.