Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re: Pod::Usage prepends "Usage:" to my synopses -- why?

by shoness (Friar)
on Oct 11, 2007 at 14:42 UTC ( #644259=note: print w/replies, xml ) Need Help??

in reply to Pod::Usage prepends "Usage:" to my synopses -- why?

It looks like you're stuck with "Usage:". The source code for Pod::Usage seems to change your "SYNOPSIS" to "USAGE" then lowercase it and append the colon:

sub preprocess_paragraph { my $self = shift; local($_) = shift; ## See if this is a heading and we arent printing the entire manpa +ge. if (($self->{VERBOSE} < 2) && /^=head/o) { ## Change the title of the SYNOPSIS section to USAGE s/^=head1\s+SYNOPSIS\s*$/=head1 USAGE/o; ## Try to do some lowercasing instead of all-caps in headings s{([A-Z])([A-Z]+)}{((length($2) > 2) ? $1 : lc($1)) . lc($2)}g +e; ## Use a colon to end all headings s/\s*$/:/o unless (/:\s*$/o); } return $self->SUPER::preprocess_paragraph($_); }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://644259]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (4)
As of 2020-10-27 18:20 GMT
Find Nodes?
    Voting Booth?
    My favourite web site is:

    Results (257 votes). Check out past polls.