File Coverage

blib/lib/Lingua/JA/DocumentFrequency/AozoraBunko.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	4	100.0
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	40	40	100.0

package Lingua::JA::DocumentFrequency::AozoraBunko;

use 5.008001;
use strict;
use warnings;

use Carp ();
use Exporter qw/import/;
use Storable ();
use File::ShareDir ();

our $VERSION   = '0.01';
our @EXPORT    = qw(aozora_df);
our @EXPORT_OK = qw(number_of_documents df);

my $DATA_PATH = File::ShareDir::dist_file('Lingua-JA-DocumentFrequency-AozoraBunko', 'df.st');
my $DF_OF     = Storable::retrieve($DATA_PATH) or Carp::croak("Cannot read: $DATA_PATH");

sub number_of_documents { 11176 }

sub df
{
    my $word = shift;
    return undef unless defined $word;
    return defined $DF_OF->{$word} ? $DF_OF->{$word} : 0;
}

*aozora_df = \&df;

1;

__END__