NAME

DTA::CAB::Analyzer::DTAClean - Chain::DTA cleanup (prune sensitive and redundant data from document)

SYNOPSIS

##========================================================================
## PRELIMINARIES

use DTA::CAB::Analyzer::DTAClean;

##========================================================================
## Constructors etc.

$obj = CLASS_OR_OBJ->new(%args);

##========================================================================
## Methods: Analysis

$bool = $anl->doAnalyze(\%opts, $name);
$doc = $ach->analyzeClean($doc,\%opts);

DESCRIPTION

DTA::CAB::Analyzer::DTAClean DTA::CAB::Analyzer::DTAClean provides a DTA::CAB::Analyzer class for removing temporary internal data from documents processed with a DTA::CAB::Chain::DTA analyzer.

Constructors etc.

new

$obj = CLASS_OR_OBJ->new(%args);

%$obj, %args:

label => $label,     ##-- default='clean'
forceClean => $bool, ##-- always run analyzeClean() regardless of user options? (also checked in analyzeClean() itself)

Methods: Analysis

doAnalyze

$bool = $anl->doAnalyze(\%opts, $name);

Alias for $anl->can("analyze${name}") && (!exists($opts{"doAnalyze${name}"}) || $opts{"doAnalyze${name}"}). Override checks $anl->{forceClean} flag.

analyzeClean

$doc = $ach->analyzeClean($doc,\%opts);

Cleanup any temporary data associated with $doc. Override removes all but the following keys from each token in $doc:

text
xlit
mlatin
eqpho
eqrw
eqlemma
moot

Additionally, the 'analyses' key of the 'moot' field is removed if present.

AUTHOR

Bryan Jurish <moocow@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2011-2019 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.24.1 or, at your option, any later version of Perl 5 you may have available.

SEE ALSO

dta-cab-analyze.perl(1), DTA::CAB::Chain::DTA(3pm), DTA::CAB::Analyzer(3pm), DTA::CAB::Chain(3pm), DTA::CAB(3pm), perl(1), ...