NAME

Text::Truncate - Perl module with simple string truncating routine.

SYNOPSIS

use Text::Truncate;

my $long_string = "This is a very long string";

# outputs "This is..."
print truncstr( $long_string, 10);

# outputs "This is a-"
print truncstr( $long_string, 10, "-");

# outputs "This is a "
print truncstr( $long_string, 10, "");

# outputs "This is---"
$Text::Truncate::DEFAULT_MARKER = "---";
print truncstr( $long_string, 10);

DESCRIPTION

This is a simple, no-brainer subroutine to truncate a string and add an optional cutoff marker (defaults to ``...'').

(Yes, this is a really brain-dead sort of thing to make a module out of, but then again, I use it so often that it might as well be in a module.)

The synopsis gives examples of how to use it.

EXPORT

The following functions are exported:

truncstr
$rstring = truncstr( $istring, $cutoff_length );

$rstring = truncstr( $istring, $cutoff_length, $continued_symbol );

If the $istring is longer than the $cutoff_length, then the string will be truncated to $cutoff_length characters, including the $continued_symbol (which defaults to ``...'' if none is specified).

The default $continued_symbol can be changed in $Text::Truncate::DEFAULT_MARKER.

SEE ALSO

L<String::Truncate>, L<Text::Elide>

REPOSITORY

https://github.com/ileiva/Text-Truncate

AUTHOR

Robert Rothenberg <rrwo at cpan.org> This is now being mantained by Israel Leiva <ilv@cpan.org>

LICENSE

Unrestricted. This module is in the public domain. No copyright is claimed.