ccessor::Fast/;
use List::Util qw(shuffle sum max);
use List::MoreUtils qw(uniq first_index);
use JSON::XS;
use vars qw($VERSION);
$VERSION = '0.03';
#Used for accessing $self->documents
__PACKAG
rations - Maximum Iterations
# $updateCorpus - 1 = Force update documents, 0 = allow loading from JSON
# $threshold - Minimum number of documents a word must appear in
# $numWords - Number of words pe
<- hash containing data
output:
1
example:
while (my $line = <$fh2>) {
my $obj = decode_json($line);
add(%$obj);
}
=cut
#Used to add to array of documents ($self->documents)
#Adds a w