17 Aug 2012 17:30:49 UTC
- Distribution: Text-Original
- Module version: 1.5
- Source (raw)
- Browse (raw)
- How to Contribute
- Issues (0)
- Testers (467 / 2 / 0)
- KwaliteeBus factor: 0
- 100.00% Coverage
- License: unknown
- Activity24 month
- Download (3.6KB)
- MetaCPAN Explorer
- Subscribe to distribution
- This version
- Latest versionSIMONW Simon Wistowand 1 contributors
- Simon Wistow
Text::Original - Find original, non-quoted text in a message
use Text::Original; my $sentence = first_sentence($email->body);
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.
Returns the first original paragraph of the message
Returns the first original sentence of the message
All of the above.
Simon Wistow and the Mariachi project. See http://siesta.unixbeard.net/
Packaged by Simon Cozens
Currently maintained by Simon Wistow <firstname.lastname@example.org>
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.
Module Install Instructions
To install Text::Original, copy and paste the appropriate command in to your terminal.
perl -MCPAN -e shell install Text::Original
For more information on module installation, please visit the detailed CPAN module installation guide.