Добавьте документ с помощью Text :: DocumentCollection в Perl

Question

Я пытаюсь использовать Text::DocumentCollection в Perl. Я хочу иметь возможность читать текст из дескриптора файла и создавать коллекцию документов из этого текста, хотя я не уверен, предназначено ли это для данного модуля.

Документация относится к добавлению "документа", но я не уверен, что это за документ. Это файл? Это может быть строка в переменной?

Следующий код возвращает ошибку:

use Text::DocumentCollection;

my $c = Text::DocumentCollection->new( file => 'test.db' );
$doc = 'test_doc';
$c->Add( 'doc1', $doc );

Ошибка:

Can't locate object method "WriteToString" via package "test_doc" 
(perhaps you forgot to load "test_doc"?) at ...DocumentCollection.pm line 62.

Что означает «загрузка» и что такое «пакет»?

Answer 1

Из тестов, включенных в дистрибутив CPAN, похоже, что второй аргумент метода Add должен быть ссылкой на объект Text::Document, а не простой строкой.

Например, от т / collection.t

use Text::DocumentCollection;
use Text::Document;

my $d1 = Text::Document->new();
$d1->AddContent( ' danelle folta michelle pfeiffer ' );

my $d2 = Text::Document->new();
$d2->AddContent( ' danelle folta mary elizabeth mastrantonio ' );

my $c = Text::DocumentCollection->new( file => 't/collection.db');

$c->Add( 'a', $d1 );
$c->Add( 'b', $d2 );