18 lines
396 B
Plaintext
18 lines
396 B
Plaintext
[source,vbnet]
|
|
----
|
|
Imports System
|
|
Imports JetBrains.Annotations
|
|
|
|
Public Class Utils
|
|
<TerminatesProgram>
|
|
Public Sub TerminateProgram()
|
|
Environment.FailFast("A catastrophic failure has occurred.")
|
|
End Sub
|
|
|
|
Public Sub Method()
|
|
Dim MyObject As Object = Nothing
|
|
TerminateProgram()
|
|
MyObject.ToString() ' Compliant: unreachable
|
|
End Sub
|
|
End Class
|
|
---- |