Ignore:
Timestamp:
Dec 15, 2004, 11:56:39 AM (16 years ago)
Author:
kake
Message:

Make POD 80-column safe.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cgi-wiki-plugin-categoriser/trunk/lib/CGI/Wiki/Plugin/Categoriser.pm

    r180 r181  
    2323  my $wiki = CGI::Wiki->new( ... );
    2424  $wiki->write_node( "Red Lion", "nice beer", $checksum,
    25                      { category => [ "Pubs", "Pub Food" ] } );
     25                     { category => [ "Pubs", "Pub Food" ] }
     26                   ) or die "Can't write node";
    2627  $wiki->write_node( "Holborn Station", "busy at peak times", $checksum,
    27                      { category => "Tube Station" } );
     28                     { category => "Tube Station" }
     29                   ) or die "Can't write node";
    2830
    2931  my $categoriser = CGI::Wiki::Plugin::Categoriser->new;
     
    7375=item B<subcategories>
    7476
    75   $wiki->write_node( "Category Pub Food",
    76                      "pubs that serve food",
    77                      $checksum,
    78                      { category => [ "Pubs", "Food", "Category" ] } );
    79   my @subcategories = $categoriser->subcategories( category => "Pubs" );
     77  $wiki->write_node( "Category Pub Food", "mmm food", $checksum,
     78                     { category => [ "Pubs", "Food", "Category" ] }
     79                   ) or die "Can't write node";
     80  my @subcats = $categoriser->subcategories( category => "Pubs" );
    8081  # will return ( "Pub Food" )
    8182
    8283  # Or if you prefer CamelCase node names:
    83   $wiki->write_node( "CategoryPubFood",
    84                      "pubs that serve food",
    85                      $checksum,
    86                      { category => [ "Pubs", "Food", "Category" ] } );
    87   my @subcategories = $categoriser->subcategories( category => "Pubs" );
     84  $wiki->write_node( "CategoryPubFood", "mmm food", $checksum,
     85                     { category => [ "Pubs", "Food", "Category" ] }
     86                   ) or die "Can't write node";
     87  my @subcats = $categoriser->subcategories( category => "Pubs" );
    8888  # will return ( "PubFood" )
    8989
     
    116116=item B<categories>
    117117
    118   my @categories = $categoriser->categories( node => "Holborn Station" );
     118  my @cats = $categoriser->categories( node => "Holborn Station" );
    119119
    120120Returns an array of category names in no particular order.
     
    140140=over 4
    141141
    142 =item *
     142=item * L<CGI::Wiki>
    143143
    144 L<CGI::Wiki>
    145 
    146 =item *
    147 
    148 L<CGI::Wiki::Plugin>
     144=item * L<CGI::Wiki::Plugin>
    149145
    150146=back
Note: See TracChangeset for help on using the changeset viewer.