SYNOPSIS use Pod::Elide qw(elide); print elide(< =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