File Coverage

blib/lib/Lingua/TermWeight/WordCounter/Simple.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	19	21	90.4

# SPDX-FileCopyrightText: 2014 Koichi SATOH
# SPDX-FileCopyrightText: 2026 Wesley Schwengle
#
# SPDX-License-Identifier: MIT

package Lingua::TermWeight::WordCounter::Simple;
our $VERSION = '0.01';
# ABSTRACT: Simple word counter

use v5.26;
use Object::Pad;
use Carp qw(croak);

class Lingua::TermWeight::WordCounter::Simple {

  field %frequencies;

  method add_count ($word) {
    croak "Word must be defined" unless defined $word;
    ++$frequencies{$word};
  }

  method clear {
    %frequencies = ();
  }

  method frequencies {
    return {%frequencies};
  }
}

1;

__END__