Text::Refer 1.106

Text::Refer can parse Unix "refer" files.

SYNOPSIS

Pull in the module:

use Text::Refer;

Parse a refer stream from a filehandle:

while ($ref = input Text::Refer *FH) {
# ...do stuff with $ref...
}
defined($ref) or die "error parsing input";

Same, but using a parser object for more control:

# Create a new parser:
$parser = new Text::Refer::Parser LeadWhite=>KEEP;

# Parse:
while ($ref = $parser->input(*FH)) {
# ...do stuff with $ref...
}
defined($ref) or die "error parsing input";

Manipulating reference objects, using high-level methods:

# Get the title, author, etc.:
$title = $ref->title;
@authors = $ref->author; # list context
$lastAuthor = $ref->author; # scalar context

# Set the title and authors:
$ref->title("Cyberiad");
$ref->author(["S. Trurl", "C. Klapaucius"]); # arrayref for >1 value!

# Delete the abstract:
$ref->abstract(undef);

Same, using low-level methods:

# Get the title, author, etc.:
$title = $ref->get(T);
@authors = $ref->get(A); # list context
$lastAuthor = $ref->get(A); # scalar context

# Set the title and authors:
$ref->set(T, "Cyberiad");
$ref->set(A, "S. Trurl", "C. Klapaucius");

# Delete the abstract:
$ref->set(X); # sets to empty array of values

Output:

print $ref->as_string;