EnumerableCategory

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

Namespace BayesClassifier

    Public Class EnumerableCategory
        Inherits Category
        Implements IEnumerable

        Public Sub New(ByVal Cat As String, ByVal Excluded As ExcludedWords)
            MyBase.New(Cat, Excluded)
        End Sub

        Function IEnumerable_GetEnumerator() As IEnumerator Implements IEnumerable.GetEnumerator
            Return GetEnumerator()
        End Function

        Public Function GetEnumerator() As IEnumerator
            Return m_Phrases.GetEnumerator
        End Function

    End Class

End Namespace