Simon Wistow > Text-Original > Text::Original

Download:
Text-Original-1.5.tar.gz

Dependencies

Annotate this POD

CPAN RT

Open  0
View/Report Bugs
Module Version: 1.5   Source  

NAME ^

Text::Original - Find original, non-quoted text in a message

SYNOPSIS ^

    use Text::Original;
    my $sentence = first_sentence($email->body);

FUNCTIONS ^

first_lines

    first_lines($text, 20);

Returns the a number of lines after the first non blank, none quoted line of the body of the email.

It will guess at attribution lines and skip them as well.

It will return super cited lines. This is the super-citers' fault, not ours.

It won't catch all types of attribution lines;

It can optionally be passed a number of lines to get.

first_paragraph

Returns the first original paragraph of the message

first_sentence

Returns the first original sentence of the message

EXPORTS ^

All of the above.

AUTHOR ^

Simon Wistow and the Mariachi project. See http://siesta.unixbeard.net/

Packaged by Simon Cozens

Currently maintained by Simon Wistow <simon@thegestalt.org>

COPYRIGHT ^

Copyright 2004 The Siesta Project

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

syntax highlighting: