Расследование сбоя Visual Basic-приложения

Module CrashBoundary
    Sub Main()
        Try
            Application.Run(New MainForm())
        Catch ex As Exception
            CrashReporter.Capture(ex)
            Throw
        End Try
    End Sub
End Module

Option Strict On
Namespace ReviewCase30_1
    Module CrashBoundary
        Sub Main()
            Try
                Application.Run(New MainForm())
            Catch reviewEx As Exception
                CrashReporter.Capture(reviewEx)
                Throw reviewEx
            End Try
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase30_1
    Module CrashBoundary
        Sub Main()
            Try
                Application.Run(New MainForm())
            Catch edgeEx As Exception
                CrashReporter.Capture(edgeEx)
                Throw
            End Try
        End Sub
    End Module
End Namespace

Class HangCapture
    Public Sub Capture(processId As Integer, path As String)
        ProcessDumper.WriteFullDump(processId, path, includeHeap:=True)
        SymbolStore.RecordVersion(path, BuildInfo.Commit)
    End Sub
End Class

Option Strict On
Namespace ReviewCase30_2
    Class HangCapture
        Public Sub Capture(reviewProcessId As Integer, reviewPath As String)
            ProcessDumper.WriteFullDump(reviewProcessId, reviewPath, includeHeap:=True)
            SymbolStore.RecordVersion(reviewPath, BuildInfo.Commit)
        End Sub
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase30_2
    Class HangCapture
        Public Sub Capture(edgeProcessId As Integer, edgePath As String)
            ProcessDumper.WriteFullDump(edgeProcessId, edgePath, includeHeap:=True)
            SymbolStore.RecordVersion(edgePath, BuildInfo.Commit)
        End Sub
    End Class
End Namespace

Class OperationLog
    Public Sub Write(orderId As Integer, stage As String, elapsed As TimeSpan)
        logger.Info(New With {.Operation = "order", .OrderIdHash = Hash(orderId), .Stage = stage, .ElapsedMs = elapsed.TotalMilliseconds})
    End Sub
End Class

Option Strict On
Namespace ReviewCase30_3
    Class OperationLog
        Public Sub Write(reviewOrderId As Integer, reviewStage As String, reviewElapsed As TimeSpan)
            logger.Info(New With {.Operation = "order", .OrderIdHash = Hash(reviewOrderId), .Stage = reviewStage, .ElapsedMs = reviewElapsed.TotalMilliseconds})
        End Sub
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase30_3
    Class OperationLog
        Public Sub Write(edgeOrderId As Integer, edgeStage As String, edgeElapsed As TimeSpan)
            logger.Info(New With {.Operation = "order", .OrderIdHash = Hash(edgeOrderId), .Stage = edgeStage, .ElapsedMs = edgeElapsed.TotalMilliseconds})
        End Sub
    End Class
End Namespace

Class RecoveryPlan
    Public Sub Execute()
        intake.Pause()
        evidence.Snapshot()
        database.SetReadOnly(True)
        service.StartMinimalMode()
        health.Verify()
    End Sub
End Class

Option Strict On
Namespace ReviewCase30_4
    Class RecoveryPlan
        Public Sub Execute()
            intake.Pause()
            evidence.Snapshot()
            database.SetReadOnly(True)
            service.StartMinimalMode()
            health.Verify()
        End Sub
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase30_4
    Class RecoveryPlan
        Public Sub Execute()
            intake.Pause()
            evidence.Snapshot()
            database.SetReadOnly(True)
            service.StartMinimalMode()
            health.Verify()
        End Sub
    End Class
End Namespace

Class DebtItem
    Public Property Risk As String
    Public Property IncidentsPerMonth As Decimal
    Public Property FixCostDays As Decimal
    Public Property ExitCondition As String
End Class

Option Strict On
Namespace ReviewCase30_5
    Class DebtItem
        Public Property Risk As String
        Public Property IncidentsPerMonth As Decimal
        Public Property FixCostDays As Decimal
        Public Property ExitCondition As String
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase30_5
    Class DebtItem
        Public Property Risk As String
        Public Property IncidentsPerMonth As Decimal
        Public Property FixCostDays As Decimal
        Public Property ExitCondition As String
    End Class
End Namespace

Class LegacyGateway
    Public Async Function ExecuteAsync(request As Request) As Task(Of Result)
        If flags.UseNewGateway Then Return Await modern.ExecuteAsync(request)
        Return Await legacy.ExecuteAsync(request)
    End Function
End Class

Option Strict On
Namespace ReviewCase30_6
    Class LegacyGateway
        Public Async Function ExecuteAsync(reviewRequest As Request) As Task(Of Result)
            If flags.UseNewGateway Then Return Await modern.ExecuteAsync(reviewRequest)
            Return Await legacy.ExecuteAsync(reviewRequest)
        End Function
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase30_6
    Class LegacyGateway
        Public Async Function ExecuteAsync(edgeRequest As Request) As Task(Of Result)
            If flags.UseNewGateway Then Return Await modern.ExecuteAsync(edgeRequest)
            Return Await legacy.ExecuteAsync(edgeRequest)
        End Function
    End Class
End Namespace