NAME

DiaColloDB::Corpus - diachronic collocation db, source corpous

SYNOPSIS

 ##========================================================================
 ## PRELIMINARIES
 
 use DiaColloDB::Corpus;
 
 ##========================================================================
 ## Constructors etc.
 
 $corpus = CLASS_OR_OBJECT->new(%args);
 
 ##========================================================================
 ## API: open/close
 
 $bool = $corpus->open(\@ARGV, %opts);
 $bool = $corpus->close();
 
 ##========================================================================
 ## API: iteration
 
 $nfiles = $corpus->size();
 undef = $corpus->ibegin();
 $bool = $corpus->iok();
 $label = $corpus->ifile();
 $doc_or_undef = $corpus->idocument();
 $pos = $corpus->inext();
 $pos = $corpus->icur();
 

DESCRIPTION

Globals & Constants

Variable: @ISA

DiaColloDB::Corpus inherits from DiaColloDB::Logger.

Variable: $DCLASS_DEFAULT

Default document subclass; default = 'DDCTabs'.

Constructors etc.

new

 $corpus = CLASS_OR_OBJECT->new(%args);

%args, object structure:

 files => \@files,   ##-- source files
 dclass => $dclass,  ##-- DiaColloDB::Document subclass for loading (default=$DCLASS_DEFAULT)
 dopts  => \%opts,   ##-- options for $dclass->fromFile()
 cur    => $i,       ##-- index of current file

API: open/close

open

 $bool = $corpus->open(\@ARGV, %opts);

Open a corpus. %opts:

 glob => $bool,     ##-- whether to glob arguments
 list => $bool,     ##-- whether arguments are file-lists

close

 $bool = $corpus->close();

Close corpus.

API: iteration

size

 $nfiles = $corpus->size();

Get number of files in corpus.

ibegin

 undef = $corpus->ibegin();

reset iterator

iok

 $bool = $corpus->iok();

true if iterator is valid

ifile

 $label = $corpus->ifile();
 $label = $corpus->ifile($pos);

gets current iterator label (1st form) or label for document at $pos (2nd form).

idocument

 $doc_or_undef = $corpus->idocument();
 $doc_or_undef = $corpus->idocument($pos);

gets current document (1st form), or document at $pos (2nd form).

inext

 $pos = $corpus->inext();

increment iterator

icur

 $pos = $corpus->icur();

returns current position

AUTHOR

Bryan Jurish <moocow@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2015-2020 by Bryan Jurish

This package is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.14.2 or, at your option, any later version of Perl 5 you may have available.

SEE ALSO

DiaColloDB::Corpus::Compiled(3pm), DiaColloDB::Document(3pm), DiaColloDB(3pm), perl(1), ...