Option Strict On
Option Explicit On

Namespace Nexamas.UI.Localization

    ''' <summary>
    ''' Immutable readiness finding emitted by the Phase 6 Localization / RTL gate.
    ''' </summary>
    Friend NotInheritable Class MASLocalizationReadinessFinding
        Friend Sub New(code As String, message As String, severity As MASLocalizationReadinessSeverity)
            Me.Code = Normalize(code)
            Me.Message = Normalize(message)
            Me.Severity = severity
        End Sub

        Friend ReadOnly Property Code As String
        Friend ReadOnly Property Message As String
        Friend ReadOnly Property Severity As MASLocalizationReadinessSeverity

        Private Shared Function Normalize(value As String) As String
            Return If(value, String.Empty).Trim()
        End Function
    End Class

End Namespace