/ 
Text-Conjunct-1.0
River stage one • 1 direct dependent • 2 total dependents
/ Text::Conjunct

NAME

Text::Conjunct - join lists of items together

SYNOPSIS

use Text::Conjunct;

print conjunct "and", "3 apples", "2 pears", "no oranges";

prints

3 apples, 2 pears, and no oranges

DESCRIPTION

Text::Conjunct joins strings together with a conjunction, typically "and" or "or".

  • If there is only one string, it is just returned.

  • If there are two strings, they are returned with the supplied conjunction between them.

  • If there are three or more strings, all but the last are separated by commas. The separator between the second-to-last and the last is the conjunction, possibly with a comma preceding it (see "SERIAL COMMAS" below).

EXPORTED ROUTINE

conjunct

$string = conjunct $conjunction, @list;

Returns the strings conjoined as explained above. $conjunction can be any string, which can yield nonsensical results; generally it will be "and" or "or".

EXAMPLES

conjunct "and", "one apple"

one apple

conjunct "and", "one apple", "two oranges"

one apple and two oranges

conjunct "and", "one apple", "two oranges", "three pears"

one apple, two oranges, and three pears

SERIAL COMMAS

Text::Conjunct defaults to placing a comma before the final conjunction if there are more than two connected phrases (William Strunk Jr. and E.B. White, The Elements of Style, rule 2). This is commonly called the serial comma. Many people, however, omit this comma. I am not one of them, because this seems illogical to me, and frequently results in unintended ambiguity. Compare

    I'd like to thank my parents, Ayn Rand and God.

with

    I'd like to thank my parents, Ayn Rand, and God.

and see which you think makes more sense. Commas in writing generally reflect pauses in speech, and pretty much everybody except the children of Ayn Rand and God will pause between those two terms.

But this is Perl, where the standard dogma is that we don't do dogma. You can set the global variable $Text::Conjunct::SERIAL_COMMA to reflect your preference or requirements. It defaults to 1 to reflect my personal preference, but you can set it to zero if you would rather do it the other way.

COPYRIGHT AND LICENSE

Copyright 2004 Kevin Michael Vail

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

Kevin Michael Vail <kevin@vaildc.net>