File Coverage

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

Criterion	Covered	Total	%
statement	11	17	64.7
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	15	25	60.0

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

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

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

class Lingua::TermWeight::WordCounter::Lossy {

  field $max_error_ratio : param;
  field $counter;

  ADJUST {
    $counter = Algorithm::LossyCount->new(max_error_ratio => $max_error_ratio);
  }

  method add_count ($word) {
    croak "word must be defined" unless defined $word;
    $counter->add_sample($word);
  }

  method clear {
    $counter = Algorithm::LossyCount->new(max_error_ratio => $max_error_ratio);
  }

  method counter { $counter }

  method frequencies {
    return $counter->frequencies;
  }

  method max_error_ratio {
    return $max_error_ratio;
  }
}

1;

__END__