SYNOPSIS

use Text::Beautify;

$text = "badly written text ,,you know ?"

$new_text = beautify($text);
# $new_text now holds "Badly written text, you know?"

# or

$text = Text::Beautify->new("badly written text ,,you know ?");
$new_text = $text->beautify;

# and also

enable_feature('repeated_punctuation'); # enables the feature
disable_feature('trailing_space');      # disables the feature

@features_enables = enabled_features();

@all_features = features();

enable_all();
disable_all();

DESCRIPTION

Beautifies text. This involves operations like squeezing double spaces, removing spaces from the beginning and end of lines, upper casing the first character in a string, etc.

You can enable / disable features with enable_feature / disable_feature. These commands return a true value if they are successful.

To know which features are beautified, see FEATURES

FEATURES

All features are enabled by default

  • heading_space

    Removes heading spaces
  • trailing_space

    Removes trailing spaces
  • double_spaces

    Squeezes double spaces
  • repeated_punctuation

    Squeezes repeated punctuation
  • space_in_front_of_punctuation

    Removes spaces in front of punctuation
  • space_after_punctuation

    Puts a spaces after punctuation
  • uppercase_first

    Uppercases the first character in the string

METHODS

new

Creates a new Text::Beautify object

beautify

Applies all the enabled features

enabled_features

Returns a list with the enabled features

features

Returns a list containing all the features

enable_feature

Enables a feature

disable_feature

Disables a feature

enable_all

Enables all features

disable_all

Disables all features

TO DO

  • Allow the user to select the order in which features are applied

  • Allow creation of new features

AUTHOR

Jose Castro, <cog@cpan.org>

COPYRIGHT & LICENSE

Copyright 2004 Jose Castro, All Rights Reserved.

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