PhraseCount

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Text.RegularExpressions

Namespace BayesClassifier

    Public Class PhraseCount
        Private m_RawPhrase As String
        Private m_Count As Integer

        Public Sub New()
            MyBase.New()
        End Sub

        Public Sub New(ByVal rawPhrase As String)
            m_RawPhrase = rawPhrase
            m_Count = 0
        End Sub
        Public ReadOnly Property RawPhrase() As String
            Get
                Return m_RawPhrase
            End Get
        End Property

        Public Property Count() As Integer
            Get
                Return m_Count
            End Get
            Set(ByVal value As Integer)
                m_Count = value
            End Set
        End Property
    End Class
End Namespace