SYNOPSIS use Pod::Elide qw(elide); print elide(<<EOP, 20); =head1 NAME Foo - Do something fooish =head1 VERSION 1.23 =head1 SYNOPSIS blah blah blah blah blah blah =head1 DESCRIPTION Some description some description some description. Some description some description some description some description. Some description some description some description. Some description some description some description some description. Some description some description some description. Some description some description some description some description. =head1 FUNCTIONS =head2 func1 Blah blah blah Blah blah blah =head2 func2 Blah blah blah Blah blah blah =head1 SEE ALSO L<Bar> =cut EOP The output is something like: =head1 NAME =head1 VERSION =head1 SYNOPSIS =head1 DESCRIPTION Some description some description some description. Some description some description some description some description. Some description some .. =head1 FUNCTIONS =head2 func1 =head2 func2 =head1 SEE ALSO =cut DESCRIPTION This module can be used to elide lines from a POD string to reduce its number of lines (e.g. for summarizing a POD). It will try to elide text lines first before POD command lines. head3 will be elided before head2, head2 before head1, and so on. FUNCTIONS elide($pod, $len[, \%opts]) => str Elide lines from POD string $pod if the string contains more than $len lines. Known options: * marker => str (default: '..') * truncate => 'top'|'middle'|'bottom'|'ends' (default: 'bottom') * retain_level => int (1|2|3|9, default: 9) SEE ALSO