cvs commit: perlfaq perlfaq4.pod

cvsuser     03/07/28 10:35:22

  Modified:    .        perlfaq4.pod
  Log:
  From: Iain Truskett <[email protected]>
  To: [email protected]
  Subject: perlfaq4: How do I capitalize all the words on one line?
  Date: Mon, 28 Jul 2003 12:12:21 +1000
  
  * Mention Damian's Autoformat module.
  
  Revision  Changes    Path
  1.44      +14 -1     perlfaq/perlfaq4.pod
  
  Index: perlfaq4.pod
  ===================================================================
  RCS file: /cvs/public/perlfaq/perlfaq4.pod,v
  retrieving revision 1.43
  retrieving revision 1.44
  diff -u -w -r1.43 -r1.44
  --- perlfaq4.pod	23 Feb 2003 20:25:09 -0000	1.43
  +++ perlfaq4.pod	28 Jul 2003 17:35:21 -0000	1.44
  @@ -1,6 +1,6 @@
   =head1 NAME
   
  -perlfaq4 - Data Manipulation ($Revision: 1.43 $, $Date: 2003/02/23 20:25:09 $)
  +perlfaq4 - Data Manipulation ($Revision: 1.44 $, $Date: 2003/07/28 17:35:21 $)
   
   =head1 DESCRIPTION
   
  @@ -761,6 +761,19 @@
   case", but that's not quite accurate.  Consider the proper
   capitalization of the movie I<Dr. Strangelove or: How I Learned to
   Stop Worrying and Love the Bomb>, for example.
  +
  +Damian Conway's L<Text::Autoformat> module provides some smart
  +case transformations:
  +
  +    use Text::Autoformat;
  +    my $x = "Dr. Strangelove or: How I Learned to Stop ".
  +      "Worrying and Love the Bomb";
  +
  +    print $x, "\n";
  +    for my $style (qw( sentence title highlight ))
  +    {
  +        print autoformat($x, { case => $style }), "\n";
  +    }
   
   =head2 How can I split a [character] delimited string except when inside [character]?