Changeset 181 for cgi-wiki-plugin-categoriser

Timestamp:

Dec 15, 2004, 11:56:39 AM (16 years ago)

Author:

kake

Message:

Make POD 80-column safe.

File:

• cgi-wiki-plugin-categoriser/trunk/lib/CGI/Wiki/Plugin/Categoriser.pm (modified) (4 diffs)

cgi-wiki-plugin-categoriser/trunk/lib/CGI/Wiki/Plugin/Categoriser.pm

@@ -23 +23 @@
   my $wiki = CGI::Wiki->new( ... );
   $wiki->write_node( "Red Lion", "nice beer", $checksum,
-                     { category => [ "Pubs", "Pub Food" ] } );
+                     { category => [ "Pubs", "Pub Food" ] }
+                   ) or die "Can't write node";
   $wiki->write_node( "Holborn Station", "busy at peak times", $checksum,
-                     { category => "Tube Station" } );
+                     { category => "Tube Station" }
+                   ) or die "Can't write node";
 
   my $categoriser = CGI::Wiki::Plugin::Categoriser->new;
@@ -73 +75 @@
 =item B<subcategories>
 
-  $wiki->write_node( "Category Pub Food",
-                     "pubs that serve food",
-                     $checksum,
-                     { category => [ "Pubs", "Food", "Category" ] } );
-  my @subcategories = $categoriser->subcategories( category => "Pubs" );
+  $wiki->write_node( "Category Pub Food", "mmm food", $checksum,
+                     { category => [ "Pubs", "Food", "Category" ] }
+                   ) or die "Can't write node";
+  my @subcats = $categoriser->subcategories( category => "Pubs" );
   # will return ( "Pub Food" )
 
   # Or if you prefer CamelCase node names:
-  $wiki->write_node( "CategoryPubFood",
-                     "pubs that serve food",
-                     $checksum,
-                     { category => [ "Pubs", "Food", "Category" ] } );
-  my @subcategories = $categoriser->subcategories( category => "Pubs" );
+  $wiki->write_node( "CategoryPubFood", "mmm food", $checksum,
+                     { category => [ "Pubs", "Food", "Category" ] }
+                   ) or die "Can't write node";
+  my @subcats = $categoriser->subcategories( category => "Pubs" );
   # will return ( "PubFood" )
 
@@ -116 +116 @@
 =item B<categories>
 
-  my @categories = $categoriser->categories( node => "Holborn Station" );
+  my @cats = $categoriser->categories( node => "Holborn Station" );
 
 Returns an array of category names in no particular order.
@@ -140 +140 @@
 =over 4
 
-=item *
+=item * L<CGI::Wiki>
 
-L<CGI::Wiki>
-
-=item *
-
-L<CGI::Wiki::Plugin>
+=item * L<CGI::Wiki::Plugin>
 
 =back