Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

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

by shoness (Friar)
on Oct 11, 2007 at 14:42 UTC ( [id://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?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (2)
As of 2024-03-19 05:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found