Changeset 497

Timestamp:

02/01/09 00:06:59 (3 years ago)

Author:

dom

Message:

fix up pod and add pod testing (fixes #45)

Location:

wiki-toolkit/trunk

Files:

• Changes (modified) (1 diff)
• MANIFEST (modified) (2 diffs)
• lib/Wiki/Toolkit.pm (modified) (3 diffs)
• lib/Wiki/Toolkit/Feed/Atom.pm (modified) (4 diffs)
• lib/Wiki/Toolkit/Feed/Listing.pm (modified) (13 diffs)
• lib/Wiki/Toolkit/Feed/RSS.pm (modified) (3 diffs)
• lib/Wiki/Toolkit/Formatter/WikiLinkFormatterParent.pm (modified) (4 diffs)
• lib/Wiki/Toolkit/Search/Base.pm (modified) (9 diffs)
• t/500_pod.t (added)

wiki-toolkit/trunk/Changes

@@ +1 @@
+0.78
+        Fix various POD errors and add POD testing (#45)
+
 0.77    24 December 2008
         Complete support for store->list_metadata_by_type, which

wiki-toolkit/trunk/MANIFEST

@@ -4 +4 @@
 Makefile.PL
 README
-SIGNATURE
 bin/wiki-toolkit-rename-node
 bin/wiki-toolkit-delete-node
@@ -82 +81 @@
 t/400_upgrade.t
 t/401_null_change.t
+t/500_pod.t
 t/lib/Wiki/Toolkit/Plugin/Bar.pm
 t/lib/Wiki/Toolkit/Plugin/Foo.pm
-
-META.yml                                 Module meta-data (added by MakeMaker)

wiki-toolkit/trunk/lib/Wiki/Toolkit.pm

@@ -4 +4 @@
 
 use vars qw( $VERSION );
-$VERSION = '0.77';
+$VERSION = '0.78';
 
 use Carp qw(croak carp);
@@ -927 +927 @@
 }
 
+=back
+
 =head1 SEE ALSO
 
@@ -1030 +1032 @@
 
      Copyright (C) 2002-2004 Kake Pugh.  All Rights Reserved.
-     Copyright (C) 2006-2008 the Wiki::Toolkit team. All Rights Reserved.
+     Copyright (C) 2006-2009 the Wiki::Toolkit team. All Rights Reserved.
 
 This module is free software; you can redistribute it and/or modify it

wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/Atom.pm

@@ -13 +13 @@
 use Wiki::Toolkit::Feed::Listing;
 @ISA = qw( Wiki::Toolkit::Feed::Listing );
-
-sub new {
-    my $class = shift;
-    my $self  = {};
-    bless $self, $class;
-
-    my %args = @_;
-    my $wiki = $args{wiki};
-
-    unless ($wiki && UNIVERSAL::isa($wiki, 'Wiki::Toolkit')) {
-        croak 'No Wiki::Toolkit object supplied';
-    }
-  
-    $self->{wiki} = $wiki;
-  
-    # Mandatory arguments.
-    foreach my $arg (qw/site_name site_url make_node_url atom_link/) {
-        croak "No $arg supplied" unless $args{$arg};
-        $self->{$arg} = $args{$arg};
-    }
-
-    # Must-supply-one-of arguments
-    my %mustoneof = ( 'html_equiv_link' => ['html_equiv_link','recent_changes_link'] );
-    $self->handle_supply_one_of(\%mustoneof,\%args);
-  
-    # Optional arguments.
-    foreach my $arg (qw/site_description software_name software_version software_homepage encoding/) {
-        $self->{$arg} = $args{$arg} || '';
-    }
-
-    # Supply some defaults, if a blank string isn't what we want
-    unless($self->{encoding}) {
-        $self->{encoding} = $self->{wiki}->store->{_charset};
-    }
-
-    $self->{timestamp_fmt} = $Wiki::Toolkit::Store::Database::timestamp_fmt;
-    $self->{utc_offset} = strftime "%z", localtime;
-    $self->{utc_offset} =~ s/(..)(..)$/$1:$2/;
-  
-    # Escape any &'s in the urls
-    foreach my $key qw(site_url atom_link) {
-        my @ands = ($self->{$key} =~ /(\&.{1,6})/g);
-        foreach my $and (@ands) {
-            if($and ne "&") {
-                my $new_and = $and;
-                $new_and =~ s/\&/\&/;
-                $self->{$key} =~ s/$and/$new_and/;
-            }
-        }
-    }
-
-    $self;
-}
-
-=item <build_feed_start>
-
-Internal method, to build all the stuff that will go at the start of a feed.
-Outputs the feed header, and initial feed info.
-
-=cut
-
-sub build_feed_start {
-    my ($self,$atom_timestamp) = @_;
-
-    my $generator = '';
-  
-    if ($self->{software_name}) {
-        $generator  = '  <generator';
-        $generator .= ' uri="' . $self->{software_homepage} . '"'   if $self->{software_homepage};
-        $generator .= ' version=' . $self->{software_version} . '"' if $self->{software_version};
-        $generator .= ">\n";
-        $generator .= $self->{software_name} . "</generator>\n";
-    }                          
-
-    my $subtitle = $self->{site_description}
-                 ? '<subtitle>' . $self->{site_description} . "</subtitle>\n"
-                 : '';
-
-    $atom_timestamp ||= '';
-
-    my $atom = qq{<?xml version="1.0" encoding="} . $self->{encoding} . qq{"?>
-
-<feed 
- xmlns         = "http://www.w3.org/2005/Atom"
- xmlns:geo     = "http://www.w3.org/2003/01/geo/wgs84_pos#"
- xmlns:space   = "http://frot.org/space/0.1/"
->
-
-  <link href="}            . $self->{site_url}     . qq{" />
-  <title>}                 . $self->{site_name}    . qq{</title>
-  <link rel="self" href="} . $self->{atom_link}    . qq{" />
-  <updated>}               . $atom_timestamp       . qq{</updated>
-  <id>}                    . $self->{site_url}     . qq{</id>
-  $subtitle};
-  
-    return $atom;
-}
-
-=item <build_feed_end>
-
-Internal method, to build all the stuff that will go at the end of a feed.
-
-=cut
-
-sub build_feed_end {
-    my ($self,$feed_timestamp) = @_;
-
-    return "</feed>\n";
-}
-
-=item <generate_node_list_feed>
-  
-Generate and return an Atom feed for a list of nodes
-  
-=cut
-
-sub generate_node_list_feed {
-    my ($self,$atom_timestamp,@nodes) = @_;
-
-    my $atom = $self->build_feed_start($atom_timestamp);
-
-    my (@urls, @items);
-
-    foreach my $node (@nodes) {
-        my $node_name = $node->{name};
-
-        my $item_timestamp = $node->{last_modified};
-    
-        # Make a Time::Piece object.
-        my $time = Time::Piece->strptime($item_timestamp, $self->{timestamp_fmt});
-
-        my $utc_offset = $self->{utc_offset};
-    
-        $item_timestamp = $time->strftime( "%Y-%m-%dT%H:%M:%S$utc_offset" );
-
-        my $author      = $node->{metadata}{username}[0] || $node->{metadata}{host}[0] || 'Anonymous';
-        my $description = $node->{metadata}{comment}[0]  || 'No description given for node';
-
-        $description .= " [$author]" if $author;
-
-        my $version = $node->{version};
-        my $status  = (1 == $version) ? 'new' : 'updated';
-
-        my $major_change = $node->{metadata}{major_change}[0];
-        $major_change = 1 unless defined $major_change;
-        my $importance = $major_change ? 'major' : 'minor';
-
-        my $url = $self->{make_node_url}->($node_name, $version);
-
-        # make XML-clean
-        my $title =  $node_name;
-        $title =~ s/&/&amp;/g;
-        $title =~ s/</&lt;/g;
-        $title =~ s/>/&gt;/g;
-
-        # Pop the categories into atom:category elements (4.2.2)
-        # We can do this because the spec says:
-        #   "This specification assigns no meaning to the content (if any) 
-        #    of this element."
-        # TODO: Decide if we should include the "all categories listing" url
-        #        as the scheme (URI) attribute?
-        my $category_atom = "";
-        if ($node->{metadata}->{category}) {
-            foreach my $cat (@{ $node->{metadata}->{category} }) {
-                $category_atom .= "    <category term=\"$cat\" />\n";
-            }
-        }
-
-        # Include geospacial data, if we have it
-        my $geo_atom = $self->format_geo($node->{metadata});
-
-        # TODO: Find an Atom equivalent of ModWiki, so we can include more info
-
-    
-        push @items, qq{
-  <entry>
-    <title>$title</title>
-    <link href="$url" />
-    <id>$url</id>
-    <summary>$description</summary>
-    <updated>$item_timestamp</updated>
-    <author><name>$author</name></author>
-$category_atom
-$geo_atom
-  </entry>
-};
-
-    }
-  
-    $atom .= join('', @items) . "\n";
-    $atom .= $self->build_feed_end($atom_timestamp);
-
-    return $atom;   
-}
-
-=item <generate_node_name_distance_feed>
-  
-Generate a very cut down atom feed, based just on the nodes, their locations
-(if given), and their distance from a reference location (if given).
-
-Typically used on search feeds.
-  
-=cut
-
-sub generate_node_name_distance_feed {
-    my ($self,$atom_timestamp,@nodes) = @_;
-
-    my $atom = $self->build_feed_start($atom_timestamp);
-
-    my (@urls, @items);
-
-    foreach my $node (@nodes) {
-        my $node_name = $node->{name};
-
-        my $url = $self->{make_node_url}->($node_name);
-
-        # make XML-clean
-        my $title =  $node_name;
-        $title =~ s/&/&amp;/g;
-        $title =~ s/</&lt;/g;
-        $title =~ s/>/&gt;/g;
-
-        # What location stuff do we have?
-        my $geo_atom = $self->format_geo($node);
-
-        push @items, qq{
-  <entry>
-    <title>$title</title>
-    <link href="$url" />
-    <id>$url</id>
-$geo_atom
-  </entry>
-};
-
-    }
-  
-    $atom .= join('', @items) . "\n";
-    $atom .= $self->build_feed_end($atom_timestamp);
-
-    return $atom;   
-}
-
-=item B<feed_timestamp>
-
-Generate the timestamp for the Atom, based on the newest node (if available).
-Will return a timestamp for now if no node dates are available
-
-=cut
-
-sub feed_timestamp {
-    my ($self, $newest_node) = @_;
-  
-    my $time;
-    if ($newest_node->{last_modified}) {
-        $time = Time::Piece->strptime( $newest_node->{last_modified}, $self->{timestamp_fmt} );
-    } else {
-        $time = localtime;
-    }
-
-    my $utc_offset = $self->{utc_offset};
-    
-    return $time->strftime( "%Y-%m-%dT%H:%M:%S$utc_offset" );
-}
-
-
-=item B<parse_feed_timestamp>
-
-Take a feed_timestamp and return a Time::Piece object. 
-
-=cut
-
-sub parse_feed_timestamp {
-    my ($self, $feed_timestamp) = @_;
-   
-    $feed_timestamp = substr($feed_timestamp, 0, -length( $self->{utc_offset}));
-    return Time::Piece->strptime( $feed_timestamp, '%Y-%m-%dT%H:%M:%S' );
-}
-1;
-
-__END__
 
 =head1 NAME
@@ -451 +171 @@
 =back
 
+=cut
+
+sub new {
+    my $class = shift;
+    my $self  = {};
+    bless $self, $class;
+
+    my %args = @_;
+    my $wiki = $args{wiki};
+
+    unless ($wiki && UNIVERSAL::isa($wiki, 'Wiki::Toolkit')) {
+        croak 'No Wiki::Toolkit object supplied';
+    }
+  
+    $self->{wiki} = $wiki;
+  
+    # Mandatory arguments.
+    foreach my $arg (qw/site_name site_url make_node_url atom_link/) {
+        croak "No $arg supplied" unless $args{$arg};
+        $self->{$arg} = $args{$arg};
+    }
+
+    # Must-supply-one-of arguments
+    my %mustoneof = ( 'html_equiv_link' => ['html_equiv_link','recent_changes_link'] );
+    $self->handle_supply_one_of(\%mustoneof,\%args);
+  
+    # Optional arguments.
+    foreach my $arg (qw/site_description software_name software_version software_homepage encoding/) {
+        $self->{$arg} = $args{$arg} || '';
+    }
+
+    # Supply some defaults, if a blank string isn't what we want
+    unless($self->{encoding}) {
+        $self->{encoding} = $self->{wiki}->store->{_charset};
+    }
+
+    $self->{timestamp_fmt} = $Wiki::Toolkit::Store::Database::timestamp_fmt;
+    $self->{utc_offset} = strftime "%z", localtime;
+    $self->{utc_offset} =~ s/(..)(..)$/$1:$2/;
+  
+    # Escape any &'s in the urls
+    foreach my $key qw(site_url atom_link) {
+        my @ands = ($self->{$key} =~ /(\&.{1,6})/g);
+        foreach my $and (@ands) {
+            if($and ne "&amp;") {
+                my $new_and = $and;
+                $new_and =~ s/\&/\&amp;/;
+                $self->{$key} =~ s/$and/$new_and/;
+            }
+        }
+    }
+
+    $self;
+}
+
+# Internal method, to build all the stuff that will go at the start of a feed.
+# Outputs the feed header, and initial feed info.
+
+sub build_feed_start {
+    my ($self,$atom_timestamp) = @_;
+
+    my $generator = '';
+  
+    if ($self->{software_name}) {
+        $generator  = '  <generator';
+        $generator .= ' uri="' . $self->{software_homepage} . '"'   if $self->{software_homepage};
+        $generator .= ' version=' . $self->{software_version} . '"' if $self->{software_version};
+        $generator .= ">\n";
+        $generator .= $self->{software_name} . "</generator>\n";
+    }                          
+
+    my $subtitle = $self->{site_description}
+                 ? '<subtitle>' . $self->{site_description} . "</subtitle>\n"
+                 : '';
+
+    $atom_timestamp ||= '';
+
+    my $atom = qq{<?xml version="1.0" encoding="} . $self->{encoding} . qq{"?>
+
+<feed 
+ xmlns         = "http://www.w3.org/2005/Atom"
+ xmlns:geo     = "http://www.w3.org/2003/01/geo/wgs84_pos#"
+ xmlns:space   = "http://frot.org/space/0.1/"
+>
+
+  <link href="}            . $self->{site_url}     . qq{" />
+  <title>}                 . $self->{site_name}    . qq{</title>
+  <link rel="self" href="} . $self->{atom_link}    . qq{" />
+  <updated>}               . $atom_timestamp       . qq{</updated>
+  <id>}                    . $self->{site_url}     . qq{</id>
+  $subtitle};
+  
+    return $atom;
+}
+
+# Internal method, to build all the stuff that will go at the end of a feed.
+
+sub build_feed_end {
+    my ($self,$feed_timestamp) = @_;
+
+    return "</feed>\n";
+}
+
+=head2 C<generate_node_list_feed>
+  
+Generate and return an Atom feed for a list of nodes
+  
+=cut
+
+sub generate_node_list_feed {
+    my ($self,$atom_timestamp,@nodes) = @_;
+
+    my $atom = $self->build_feed_start($atom_timestamp);
+
+    my (@urls, @items);
+
+    foreach my $node (@nodes) {
+        my $node_name = $node->{name};
+
+        my $item_timestamp = $node->{last_modified};
+    
+        # Make a Time::Piece object.
+        my $time = Time::Piece->strptime($item_timestamp, $self->{timestamp_fmt});
+
+        my $utc_offset = $self->{utc_offset};
+    
+        $item_timestamp = $time->strftime( "%Y-%m-%dT%H:%M:%S$utc_offset" );
+
+        my $author      = $node->{metadata}{username}[0] || $node->{metadata}{host}[0] || 'Anonymous';
+        my $description = $node->{metadata}{comment}[0]  || 'No description given for node';
+
+        $description .= " [$author]" if $author;
+
+        my $version = $node->{version};
+        my $status  = (1 == $version) ? 'new' : 'updated';
+
+        my $major_change = $node->{metadata}{major_change}[0];
+        $major_change = 1 unless defined $major_change;
+        my $importance = $major_change ? 'major' : 'minor';
+
+        my $url = $self->{make_node_url}->($node_name, $version);
+
+        # make XML-clean
+        my $title =  $node_name;
+        $title =~ s/&/&amp;/g;
+        $title =~ s/</&lt;/g;
+        $title =~ s/>/&gt;/g;
+
+        # Pop the categories into atom:category elements (4.2.2)
+        # We can do this because the spec says:
+        #   "This specification assigns no meaning to the content (if any) 
+        #    of this element."
+        # TODO: Decide if we should include the "all categories listing" url
+        #        as the scheme (URI) attribute?
+        my $category_atom = "";
+        if ($node->{metadata}->{category}) {
+            foreach my $cat (@{ $node->{metadata}->{category} }) {
+                $category_atom .= "    <category term=\"$cat\" />\n";
+            }
+        }
+
+        # Include geospacial data, if we have it
+        my $geo_atom = $self->format_geo($node->{metadata});
+
+        # TODO: Find an Atom equivalent of ModWiki, so we can include more info
+
+    
+        push @items, qq{
+  <entry>
+    <title>$title</title>
+    <link href="$url" />
+    <id>$url</id>
+    <summary>$description</summary>
+    <updated>$item_timestamp</updated>
+    <author><name>$author</name></author>
+$category_atom
+$geo_atom
+  </entry>
+};
+
+    }
+  
+    $atom .= join('', @items) . "\n";
+    $atom .= $self->build_feed_end($atom_timestamp);
+
+    return $atom;   
+}
+
+=head2 C<generate_node_name_distance_feed>
+  
+Generate a very cut down atom feed, based just on the nodes, their locations
+(if given), and their distance from a reference location (if given).
+
+Typically used on search feeds.
+  
+=cut
+
+sub generate_node_name_distance_feed {
+    my ($self,$atom_timestamp,@nodes) = @_;
+
+    my $atom = $self->build_feed_start($atom_timestamp);
+
+    my (@urls, @items);
+
+    foreach my $node (@nodes) {
+        my $node_name = $node->{name};
+
+        my $url = $self->{make_node_url}->($node_name);
+
+        # make XML-clean
+        my $title =  $node_name;
+        $title =~ s/&/&amp;/g;
+        $title =~ s/</&lt;/g;
+        $title =~ s/>/&gt;/g;
+
+        # What location stuff do we have?
+        my $geo_atom = $self->format_geo($node);
+
+        push @items, qq{
+  <entry>
+    <title>$title</title>
+    <link href="$url" />
+    <id>$url</id>
+$geo_atom
+  </entry>
+};
+
+    }
+  
+    $atom .= join('', @items) . "\n";
+    $atom .= $self->build_feed_end($atom_timestamp);
+
+    return $atom;   
+}
+
 =head2 C<feed_timestamp()>
 
@@ -460 +415 @@
 need this to print a Last-Modified HTTP header so user-agents can determine
 whether they need to reload the feed or not.
-  
+
+=cut
+
+sub feed_timestamp {
+    my ($self, $newest_node) = @_;
+  
+    my $time;
+    if ($newest_node->{last_modified}) {
+        $time = Time::Piece->strptime( $newest_node->{last_modified}, $self->{timestamp_fmt} );
+    } else {
+        $time = localtime;
+    }
+
+    my $utc_offset = $self->{utc_offset};
+    
+    return $time->strftime( "%Y-%m-%dT%H:%M:%S$utc_offset" );
+}
+
+
+=head2 C<parse_feed_timestamp>
+
+Take a feed_timestamp and return a Time::Piece object. 
+
+=cut
+
+sub parse_feed_timestamp {
+    my ($self, $feed_timestamp) = @_;
+   
+    $feed_timestamp = substr($feed_timestamp, 0, -length( $self->{utc_offset}));
+    return Time::Piece->strptime( $feed_timestamp, '%Y-%m-%dT%H:%M:%S' );
+}
+1;
+
+__END__
+
+
 =head1 SEE ALSO
 
@@ -477 +467 @@
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2006-2008 Earle Martin and the Wiki::Toolkit team.
+Copyright 2006-2009 Earle Martin and the Wiki::Toolkit team.
 
 This module is free software; you can redistribute it and/or modify it

wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/Listing.pm

@@ -4 +4 @@
 use Carp qw( croak );
 
-=item B<fetch_recently_changed_nodes>
+=head1 NAME
+
+Wiki::Toolkit::Feed::Listing - parent class for Feeds from Wiki::Toolkit.
+
+=head1 DESCRIPTION
+
+Handles common data fetching tasks, so that child classes need only
+worry about formatting the feeds.
+
+Also enforces some common methods that must be implemented.
+
+=head1 METHODS
+
+=head2 C<fetch_recently_changed_nodes>
 
 Based on the supplied criteria, fetch a list of the recently changed nodes
@@ -40 +53 @@
 }
 
-=item B<fetch_newest_for_recently_changed>
+=head2 C<fetch_newest_for_recently_changed>
 
 Based on the supplied criteria (but not using all of those used by
@@ -56 +69 @@
 
 
-=item B<fetch_node_all_versions>
+=head2 C<fetch_node_all_versions>
 
 For a given node (name or ID), return all the versions there have been,
@@ -92 +105 @@
 
 
-=item B<recent_changes>
+=head2 C<recent_changes>
 
 Build an Atom Feed of the recent changes to the Wiki::Toolkit instance,
@@ -120 +133 @@
 
 
-=item B<node_all_versions>
+=head2 C<node_all_versions>
 
 Build an Atom Feed of all the different versions of a given node.
@@ -144 +157 @@
 } 
 
-=item B<format_geo>
+=head2 C<format_geo>
 
 Using the geo and space xml namespaces, format the supplied node metadata
@@ -187 +200 @@
 }
 
-#item B<handle_supply_one_of>
 # Utility method, to help with argument passing where one of a list of 
 #  arguments must be supplied
-#
-#=cut
 
 sub handle_supply_one_of {
@@ -214 +224 @@
 
 
-# The following are methods that any feed renderer must provide
-
-=item B<feed_timestamp>
+=pod
+
+The following are methods that any feed renderer must provide:
+
+=head2 C<feed_timestamp>
 
 All implementing feed renderers must implement a method to produce a
@@ -225 +237 @@
 sub feed_timestamp          { die("Not implemented by feed renderer!"); }
 
-=item B<generate_node_list_feed>
+=head2 C<generate_node_list_feed>
 
 All implementing feed renderers must implement a method to produce a
@@ -234 +246 @@
 sub generate_node_list_feed { die("Not implemented by feed renderer!"); }
 
-=item B<generate_node_name_distance_feed>
+=head2 C<generate_node_name_distance_feed>
 
 All implementing feed renderers must implement a method to produce a
@@ -244 +256 @@
 sub generate_node_name_distance_feed { die("Not implemented by feed renderer!"); }
 
-=item B<parse_feed_timestamp>
+=head2 C<parse_feed_timestamp>
 
 Take a feed_timestamp and return a Time::Piece object. 
@@ -256 +268 @@
 __END__
 
-=head1 NAME
-
-Wiki::Toolkit::Feed::Listing - parent class for Feeds from Wiki::Toolkit.
-
-=head1 DESCRIPTION
-
-Handles common data fetching tasks, so that child classes need only
-worry about formatting the feeds.
-
-Also enforces some common methods that must be implemented.
-
 =head1 MAINTAINER
 
@@ -273 +274 @@
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2006 the Wiki::Toolkit team.
+Copyright 2006-2009 the Wiki::Toolkit team.
 
 This module is free software; you can redistribute it and/or modify it

wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/RSS.pm

@@ -13 +13 @@
 use Wiki::Toolkit::Feed::Listing;
 @ISA = qw( Wiki::Toolkit::Feed::Listing );
-
-sub new {
-    my $class = shift;
-    my $self  = {};
-    bless $self, $class;
-
-    my %args = @_;
-    my $wiki = $args{wiki};
-
-    unless ($wiki && UNIVERSAL::isa($wiki, 'Wiki::Toolkit')) {
-        croak 'No Wiki::Toolkit object supplied';
-    }
-  
-    $self->{wiki} = $wiki;
-  
-    # Mandatory arguments.
-    foreach my $arg (qw/site_name site_url make_node_url/) {
-        croak "No $arg supplied" unless $args{$arg};
-        $self->{$arg} = $args{$arg};
-    }
-
-    # Must-supply-one-of arguments
-    my %mustoneof = ( 'html_equiv_link' => ['html_equiv_link','recent_changes_link'] );
-    $self->handle_supply_one_of(\%mustoneof,\%args);
-  
-    # Optional arguments.
-    foreach my $arg (qw/site_description interwiki_identifier make_diff_url make_history_url encoding software_name software_version software_homepage/) {
-        $self->{$arg} = $args{$arg} || '';
-    }
-
-    # Supply some defaults, if a blank string isn't what we want
-    unless($self->{encoding}) {
-        $self->{encoding} = $self->{wiki}->store->{_charset};
-    }
-
-    $self->{timestamp_fmt} = $Wiki::Toolkit::Store::Database::timestamp_fmt;
-    $self->{utc_offset} = strftime "%z", localtime;
-    $self->{utc_offset} =~ s/(..)(..)$/$1:$2/;
-
-    $self;
-}
-
-=item <build_feed_start>
-
-Internal method, to build all the stuff that will go at the start of a feed.
-Generally will output namespaces, headers and so on.
-
-=cut
-
-sub build_feed_start {
-    my ($self,$feed_timestamp) = @_;
-
-    #"http://purl.org/rss/1.0/modules/wiki/"
-    return qq{<?xml version="1.0" encoding="}. $self->{encoding} .qq{"?>
-
-<rdf:RDF
- xmlns         = "http://purl.org/rss/1.0/"
- xmlns:dc      = "http://purl.org/dc/elements/1.1/"
- xmlns:doap    = "http://usefulinc.com/ns/doap#"
- xmlns:foaf    = "http://xmlns.com/foaf/0.1/"
- xmlns:rdf     = "http://www.w3.org/1999/02/22-rdf-syntax-ns#"
- xmlns:rdfs    = "http://www.w3.org/2000/01/rdf-schema#"
- xmlns:modwiki = "http://www.usemod.com/cgi-bin/mb.pl?ModWiki"
- xmlns:geo     = "http://www.w3.org/2003/01/geo/wgs84_pos#"
- xmlns:space   = "http://frot.org/space/0.1/"
->
-};
-}
-
-=item <build_feed_mid>
-
-Internal method, to build all the stuff (except items) to go inside the channel
-
-=cut
-
-sub build_feed_mid {
-    my ($self,$feed_timestamp) = @_;
-
-    my $rss .= qq{<dc:publisher>} . $self->{site_url} . qq{</dc:publisher>\n};
-
-    if ($self->{software_name}) {
-        $rss .= qq{<foaf:maker>
-        <doap:Project>
-        <doap:name>} . $self->{software_name} . qq{</doap:name>\n};
-    }
-
-    if ($self->{software_name} && $self->{software_homepage}) {
-        $rss .= qq{    <doap:homepage rdf:resource="} . $self->{software_homepage} . qq{" />\n};
-    }
-
-    if ($self->{software_name} && $self->{software_version}) {
-        $rss .= qq{    <doap:release>
-      <doap:Version>
-      <doap:revision>} . $self->{software_version} . qq{</doap:revision>
-      </doap:Version>
-    </doap:release>\n};
-    }
-
-    if ($self->{software_name}) {
-        $rss .= qq{  </doap:Project>
-</foaf:maker>\n};
-    }
-
-    $feed_timestamp ||= '';
-
-    $rss .= qq{<title>}   . $self->{site_name}             . qq{</title>
-<link>}               . $self->{html_equiv_link}       . qq{</link>
-<description>}        . $self->{site_description}      . qq{</description>
-<dc:date>}            . $feed_timestamp                . qq{</dc:date>
-<modwiki:interwiki>}     . $self->{interwiki_identifier} . qq{</modwiki:interwiki>};
-
-   return $rss;
-}
-
-=item <build_feed_end>
-
-Internal method, to build all the stuff that will go at the end of a feed
-
-=cut
-
-sub build_feed_end {
-    my ($self,$feed_timestamp) = @_;
-
-    return "</rdf:RDF>\n";
-}
-
-
-=item <generate_node_list_feed>
-
-Generate and return an RSS feed for a list of nodes
-
-=cut
-
-sub generate_node_list_feed {
-    my ($self,$feed_timestamp,@nodes) = @_;
-
-    # Start our feed
-    my $rss = $self->build_feed_start($feed_timestamp);
-    $rss .= qq{
-
-<channel rdf:about="">
-
-};
-    $rss .= $self->build_feed_mid($feed_timestamp);
-
-    # Generate the items list, and the individiual item entries
-    my (@urls, @items);
-    foreach my $node (@nodes) {
-        my $node_name = $node->{name};
-
-        my $timestamp = $node->{last_modified};
-    
-        # Make a Time::Piece object.
-        my $time = Time::Piece->strptime($timestamp, $self->{timestamp_fmt});
-
-        my $utc_offset = $self->{utc_offset};
-    
-        $timestamp = $time->strftime( "%Y-%m-%dT%H:%M:%S$utc_offset" );
-
-        my $author      = $node->{metadata}{username}[0] || $node->{metadata}{host}[0] || '';
-        my $description = $node->{metadata}{comment}[0]  || '';
-
-        $description .= " [$author]" if $author;
-
-        my $version = $node->{version};
-        my $status  = (1 == $version) ? 'new' : 'updated';
-
-        my $major_change = $node->{metadata}{major_change}[0];
-        $major_change = 1 unless defined $major_change;
-        my $importance = $major_change ? 'major' : 'minor';
-
-        my $url = $self->{make_node_url}->($node_name, $version);
-
-        push @urls, qq{    <rdf:li rdf:resource="$url" />\n};
-
-        my $diff_url = '';
-    
-        if ($self->{make_diff_url}) {
-            $diff_url = $self->{make_diff_url}->($node_name);
-        }
-
-        my $history_url = '';
-    
-        if ($self->{make_history_url}) {
-            $history_url = $self->{make_history_url}->($node_name);
-        }
-
-        my $node_url = $self->{make_node_url}->($node_name);
-
-        my $rdf_url =  $node_url;
-        $rdf_url =~ s/\?/\?id=/;
-        $rdf_url .= ';format=rdf';
-
-        # make XML-clean
-        my $title =  $node_name;
-        $title =~ s/&/&amp;/g;
-        $title =~ s/</&lt;/g;
-        $title =~ s/>/&gt;/g;
-
-        # Pop the categories into dublin core subject elements
-        #  (http://dublincore.org/usage/terms/history/#subject-004)
-        # TODO: Decide if we should include the "all categories listing" url
-        #        as the scheme (URI) attribute?
-        my $category_rss = "";
-        if($node->{metadata}->{category}) {
-            foreach my $cat (@{ $node->{metadata}->{category} }) {
-                $category_rss .= "  <dc:subject>$cat</dc:subject>\n";
-            }
-        }
-
-        # Include geospacial data, if we have it
-        my $geo_rss = $self->format_geo($node->{metadata});
-
-        push @items, qq{
-<item rdf:about="$url">
-  <title>$title</title>
-  <link>$url</link>
-  <description>$description</description>
-  <dc:date>$timestamp</dc:date>
-  <dc:contributor>$author</dc:contributor>
-  <modwiki:status>$status</modwiki:status>
-  <modwiki:importance>$importance</modwiki:importance>
-  <modwiki:diff>$diff_url</modwiki:diff>
-  <modwiki:version>$version</modwiki:version>
-  <modwiki:history>$history_url</modwiki:history>
-  <rdfs:seeAlso rdf:resource="$rdf_url" />
-$category_rss
-$geo_rss
-</item>
-};
-    }
-  
-    # Output the items list
-    $rss .= qq{
-
-<items>
-  <rdf:Seq>
-} . join('', @urls) . qq{  </rdf:Seq>
-</items>
-
-</channel>
-};
-
-    # Output the individual item entries
-    $rss .= join('', @items) . "\n";
-
-    # Finish up
-    $rss .= $self->build_feed_end($feed_timestamp);
- 
-    return $rss;   
-}
-
-
-=item B<generate_node_name_distance_feed>
-
-Generate a very cut down rss feed, based just on the nodes, their locations
-(if given), and their distance from a reference location (if given). 
-
-Typically used on search feeds.
-
-=cut
-
-sub generate_node_name_distance_feed {
-    my ($self,$feed_timestamp,@nodes) = @_;
-
-    # Start our feed
-    my $rss = $self->build_feed_start($feed_timestamp);
-    $rss .= qq{
-
-<channel rdf:about="">
-
-};
-    $rss .= $self->build_feed_mid($feed_timestamp);
-
-    # Generate the items list, and the individiual item entries
-    my (@urls, @items);
-    foreach my $node (@nodes) {
-        my $node_name = $node->{name};
-
-        my $url = $self->{make_node_url}->($node_name);
-
-        push @urls, qq{    <rdf:li rdf:resource="$url" />\n};
-
-        my $rdf_url =  $url;
-        $rdf_url =~ s/\?/\?id=/;
-        $rdf_url .= ';format=rdf';
-
-        # make XML-clean
-        my $title =  $node_name;
-        $title =~ s/&/&amp;/g;
-        $title =~ s/</&lt;/g;
-        $title =~ s/>/&gt;/g;
-
-        # What location stuff do we have?
-        my $geo_rss = $self->format_geo($node);
-
-        push @items, qq{
-<item rdf:about="$url">
-  <title>$title</title>
-  <link>$url</link>
-  <rdfs:seeAlso rdf:resource="$rdf_url" />
-$geo_rss
-</item>
-};
-    }
-  
-    # Output the items list
-    $rss .= qq{
-
-<items>
-  <rdf:Seq>
-} . join('', @urls) . qq{  </rdf:Seq>
-</items>
-
-</channel>
-};
-
-    # Output the individual item entries
-    $rss .= join('', @items) . "\n";
-
-    # Finish up
-    $rss .= $self->build_feed_end($feed_timestamp);
- 
-    return $rss;   
-}
-
-=item B<feed_timestamp>
-
-Generate the timestamp for the RSS, based on the newest node (if available).
-Will return a timestamp for now if no node dates are available
-
-=cut
-
-sub feed_timestamp {
-    my ($self, $newest_node) = @_;
-
-    my $time;
-    if ($newest_node->{last_modified}) {
-        $time = Time::Piece->strptime( $newest_node->{last_modified}, $self->{timestamp_fmt} );
-    } else {
-        $time = localtime;
-    }
-
-    my $utc_offset = $self->{utc_offset};
-
-    return $time->strftime( "%Y-%m-%dT%H:%M:%S$utc_offset" );
-}
-
-# Compatibility method - use feed_timestamp with a node instead
-sub rss_timestamp {
-    my ($self, %args) = @_;
-
-    warn("Old style method used - please convert to calling feed_timestamp with a node!");
-    my $feed_timestamp = $self->feed_timestamp(
-                              $self->fetch_newest_for_recently_changed(%args)
-    );
-    return $feed_timestamp;
-}
-
-=item B<parse_feed_timestamp>
-
-Take a feed_timestamp and return a Time::Piece object. 
-
-=cut
-
-sub parse_feed_timestamp {
-    my ($self, $feed_timestamp) = @_;
-   
-    $feed_timestamp = substr($feed_timestamp, 0, -length( $self->{utc_offset}));
-    return Time::Piece->strptime( $feed_timestamp, '%Y-%m-%dT%H:%M:%S' );
-}
-
-1;
-
-__END__
 
 =head1 NAME
@@ -563 +188 @@
 need this to print a Last-Modified HTTP header so user-agents can determine
 whether they need to reload the feed or not.
+
+=cut
+
+sub new {
+    my $class = shift;
+    my $self  = {};
+    bless $self, $class;
+
+    my %args = @_;
+    my $wiki = $args{wiki};
+
+    unless ($wiki && UNIVERSAL::isa($wiki, 'Wiki::Toolkit')) {
+        croak 'No Wiki::Toolkit object supplied';
+    }
   
+    $self->{wiki} = $wiki;
+  
+    # Mandatory arguments.
+    foreach my $arg (qw/site_name site_url make_node_url/) {
+        croak "No $arg supplied" unless $args{$arg};
+        $self->{$arg} = $args{$arg};
+    }
+
+    # Must-supply-one-of arguments
+    my %mustoneof = ( 'html_equiv_link' => ['html_equiv_link','recent_changes_link'] );
+    $self->handle_supply_one_of(\%mustoneof,\%args);
+  
+    # Optional arguments.
+    foreach my $arg (qw/site_description interwiki_identifier make_diff_url make_history_url encoding software_name software_version software_homepage/) {
+        $self->{$arg} = $args{$arg} || '';
+    }
+
+    # Supply some defaults, if a blank string isn't what we want
+    unless($self->{encoding}) {
+        $self->{encoding} = $self->{wiki}->store->{_charset};
+    }
+
+    $self->{timestamp_fmt} = $Wiki::Toolkit::Store::Database::timestamp_fmt;
+    $self->{utc_offset} = strftime "%z", localtime;
+    $self->{utc_offset} =~ s/(..)(..)$/$1:$2/;
+
+    $self;
+}
+
+# Internal method, to build all the stuff that will go at the start of a feed.
+# Generally will output namespaces, headers and so on.
+
+sub build_feed_start {
+    my ($self,$feed_timestamp) = @_;
+
+    #"http://purl.org/rss/1.0/modules/wiki/"
+    return qq{<?xml version="1.0" encoding="}. $self->{encoding} .qq{"?>
+
+<rdf:RDF
+ xmlns         = "http://purl.org/rss/1.0/"
+ xmlns:dc      = "http://purl.org/dc/elements/1.1/"
+ xmlns:doap    = "http://usefulinc.com/ns/doap#"
+ xmlns:foaf    = "http://xmlns.com/foaf/0.1/"
+ xmlns:rdf     = "http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+ xmlns:rdfs    = "http://www.w3.org/2000/01/rdf-schema#"
+ xmlns:modwiki = "http://www.usemod.com/cgi-bin/mb.pl?ModWiki"
+ xmlns:geo     = "http://www.w3.org/2003/01/geo/wgs84_pos#"
+ xmlns:space   = "http://frot.org/space/0.1/"
+>
+};
+}
+
+# Internal method, to build all the stuff (except items) to go inside the channel
+
+sub build_feed_mid {
+    my ($self,$feed_timestamp) = @_;
+
+    my $rss .= qq{<dc:publisher>} . $self->{site_url} . qq{</dc:publisher>\n};
+
+    if ($self->{software_name}) {
+        $rss .= qq{<foaf:maker>
+        <doap:Project>
+        <doap:name>} . $self->{software_name} . qq{</doap:name>\n};
+    }
+
+    if ($self->{software_name} && $self->{software_homepage}) {
+        $rss .= qq{    <doap:homepage rdf:resource="} . $self->{software_homepage} . qq{" />\n};
+    }
+
+    if ($self->{software_name} && $self->{software_version}) {
+        $rss .= qq{    <doap:release>
+      <doap:Version>
+      <doap:revision>} . $self->{software_version} . qq{</doap:revision>
+      </doap:Version>
+    </doap:release>\n};
+    }
+
+    if ($self->{software_name}) {
+        $rss .= qq{  </doap:Project>
+</foaf:maker>\n};
+    }
+
+    $feed_timestamp ||= '';
+
+    $rss .= qq{<title>}   . $self->{site_name}             . qq{</title>
+<link>}               . $self->{html_equiv_link}       . qq{</link>
+<description>}        . $self->{site_description}      . qq{</description>
+<dc:date>}            . $feed_timestamp                . qq{</dc:date>
+<modwiki:interwiki>}     . $self->{interwiki_identifier} . qq{</modwiki:interwiki>};
+
+   return $rss;
+}
+
+# Internal method, to build all the stuff that will go at the end of a feed
+
+sub build_feed_end {
+    my ($self,$feed_timestamp) = @_;
+
+    return "</rdf:RDF>\n";
+}
+
+
+=head2 C<generate_node_list_feed>
+
+Generate and return an RSS feed for a list of nodes
+
+=cut
+
+sub generate_node_list_feed {
+    my ($self,$feed_timestamp,@nodes) = @_;
+
+    # Start our feed
+    my $rss = $self->build_feed_start($feed_timestamp);
+    $rss .= qq{
+
+<channel rdf:about="">
+
+};
+    $rss .= $self->build_feed_mid($feed_timestamp);
+
+    # Generate the items list, and the individiual item entries
+    my (@urls, @items);
+    foreach my $node (@nodes) {
+        my $node_name = $node->{name};
+
+        my $timestamp = $node->{last_modified};
+    
+        # Make a Time::Piece object.
+        my $time = Time::Piece->strptime($timestamp, $self->{timestamp_fmt});
+
+        my $utc_offset = $self->{utc_offset};
+    
+        $timestamp = $time->strftime( "%Y-%m-%dT%H:%M:%S$utc_offset" );
+
+        my $author      = $node->{metadata}{username}[0] || $node->{metadata}{host}[0] || '';
+        my $description = $node->{metadata}{comment}[0]  || '';
+
+        $description .= " [$author]" if $author;
+
+        my $version = $node->{version};
+        my $status  = (1 == $version) ? 'new' : 'updated';
+
+        my $major_change = $node->{metadata}{major_change}[0];
+        $major_change = 1 unless defined $major_change;
+        my $importance = $major_change ? 'major' : 'minor';
+
+        my $url = $self->{make_node_url}->($node_name, $version);
+
+        push @urls, qq{    <rdf:li rdf:resource="$url" />\n};
+
+        my $diff_url = '';
+    
+        if ($self->{make_diff_url}) {
+            $diff_url = $self->{make_diff_url}->($node_name);
+        }
+
+        my $history_url = '';
+    
+        if ($self->{make_history_url}) {
+            $history_url = $self->{make_history_url}->($node_name);
+        }
+
+        my $node_url = $self->{make_node_url}->($node_name);
+
+        my $rdf_url =  $node_url;
+        $rdf_url =~ s/\?/\?id=/;
+        $rdf_url .= ';format=rdf';
+
+        # make XML-clean
+        my $title =  $node_name;
+        $title =~ s/&/&amp;/g;
+        $title =~ s/</&lt;/g;
+        $title =~ s/>/&gt;/g;
+
+        # Pop the categories into dublin core subject elements
+        #  (http://dublincore.org/usage/terms/history/#subject-004)
+        # TODO: Decide if we should include the "all categories listing" url
+        #        as the scheme (URI) attribute?
+        my $category_rss = "";
+        if($node->{metadata}->{category}) {
+            foreach my $cat (@{ $node->{metadata}->{category} }) {
+                $category_rss .= "  <dc:subject>$cat</dc:subject>\n";
+            }
+        }
+
+        # Include geospacial data, if we have it
+        my $geo_rss = $self->format_geo($node->{metadata});
+
+        push @items, qq{
+<item rdf:about="$url">
+  <title>$title</title>
+  <link>$url</link>
+  <description>$description</description>
+  <dc:date>$timestamp</dc:date>
+  <dc:contributor>$author</dc:contributor>
+  <modwiki:status>$status</modwiki:status>
+  <modwiki:importance>$importance</modwiki:importance>
+  <modwiki:diff>$diff_url</modwiki:diff>
+  <modwiki:version>$version</modwiki:version>
+  <modwiki:history>$history_url</modwiki:history>
+  <rdfs:seeAlso rdf:resource="$rdf_url" />
+$category_rss
+$geo_rss
+</item>
+};
+    }
+  
+    # Output the items list
+    $rss .= qq{
+
+<items>
+  <rdf:Seq>
+} . join('', @urls) . qq{  </rdf:Seq>
+</items>
+
+</channel>
+};
+
+    # Output the individual item entries
+    $rss .= join('', @items) . "\n";
+
+    # Finish up
+    $rss .= $self->build_feed_end($feed_timestamp);
+ 
+    return $rss;   
+}
+
+
+=head2 C<generate_node_name_distance_feed>
+
+Generate a very cut down rss feed, based just on the nodes, their locations
+(if given), and their distance from a reference location (if given). 
+
+Typically used on search feeds.
+
+=cut
+
+sub generate_node_name_distance_feed {
+    my ($self,$feed_timestamp,@nodes) = @_;
+
+    # Start our feed
+    my $rss = $self->build_feed_start($feed_timestamp);
+    $rss .= qq{
+
+<channel rdf:about="">
+
+};
+    $rss .= $self->build_feed_mid($feed_timestamp);
+
+    # Generate the items list, and the individiual item entries
+    my (@urls, @items);
+    foreach my $node (@nodes) {
+        my $node_name = $node->{name};
+
+        my $url = $self->{make_node_url}->($node_name);
+
+        push @urls, qq{    <rdf:li rdf:resource="$url" />\n};
+
+        my $rdf_url =  $url;
+        $rdf_url =~ s/\?/\?id=/;
+        $rdf_url .= ';format=rdf';
+
+        # make XML-clean
+        my $title =  $node_name;
+        $title =~ s/&/&amp;/g;
+        $title =~ s/</&lt;/g;
+        $title =~ s/>/&gt;/g;
+
+        # What location stuff do we have?
+        my $geo_rss = $self->format_geo($node);
+
+        push @items, qq{
+<item rdf:about="$url">
+  <title>$title</title>
+  <link>$url</link>
+  <rdfs:seeAlso rdf:resource="$rdf_url" />
+$geo_rss
+</item>
+};
+    }
+  
+    # Output the items list
+    $rss .= qq{
+
+<items>
+  <rdf:Seq>
+} . join('', @urls) . qq{  </rdf:Seq>
+</items>
+
+</channel>
+};
+
+    # Output the individual item entries
+    $rss .= join('', @items) . "\n";
+
+    # Finish up
+    $rss .= $self->build_feed_end($feed_timestamp);
+ 
+    return $rss;   
+}
+
+=head2 C<feed_timestamp>
+
+Generate the timestamp for the RSS, based on the newest node (if available).
+Will return a timestamp for now if no node dates are available
+
+=cut
+
+sub feed_timestamp {
+    my ($self, $newest_node) = @_;
+
+    my $time;
+    if ($newest_node->{last_modified}) {
+        $time = Time::Piece->strptime( $newest_node->{last_modified}, $self->{timestamp_fmt} );
+    } else {
+        $time = localtime;
+    }
+
+    my $utc_offset = $self->{utc_offset};
+
+    return $time->strftime( "%Y-%m-%dT%H:%M:%S$utc_offset" );
+}
+
+# Compatibility method - use feed_timestamp with a node instead
+sub rss_timestamp {
+    my ($self, %args) = @_;
+
+    warn("Old style method used - please convert to calling feed_timestamp with a node!");
+    my $feed_timestamp = $self->feed_timestamp(
+                              $self->fetch_newest_for_recently_changed(%args)
+    );
+    return $feed_timestamp;
+}
+
+=head2 C<parse_feed_timestamp>
+
+Take a feed_timestamp and return a Time::Piece object. 
+
+=cut
+
+sub parse_feed_timestamp {
+    my ($self, $feed_timestamp) = @_;
+   
+    $feed_timestamp = substr($feed_timestamp, 0, -length( $self->{utc_offset}));
+    return Time::Piece->strptime( $feed_timestamp, '%Y-%m-%dT%H:%M:%S' );
+}
+
+1;
+
+__END__
+
+
 =head1 SEE ALSO
 
@@ -584 +575 @@
 Copyright 2003-4 Kake Pugh.
 Copyright 2005 Earle Martin.
-Copyright 2006-2008 the Wiki::Toolkit team
+Copyright 2006-2009 the Wiki::Toolkit team
 
 This module is free software; you can redistribute it and/or modify it

wiki-toolkit/trunk/lib/Wiki/Toolkit/Formatter/WikiLinkFormatterParent.pm

@@ -27 +27 @@
 }
 
-=item B<rename_links>
+=head1 METHODS
+
+=head2 C<rename_links>
 
   $formatter->rename_links( $from, $to, $content );
@@ -56 +58 @@
 }
 
-=item B<find_internal_links>
+=head2 C<find_internal_links>
 
   my @links_to = $formatter->find_internal_links( $content );
@@ -95 +97 @@
 }
 
-=cut
-
 =head1 SEE ALSO
 
@@ -108 +108 @@
 
      Copyright (C) 2002-2003 Kake Pugh.  All Rights Reserved.
-     Copyright (C) 2006 the Wiki::Toolkit team. All Rights Reserved.
+     Copyright (C) 2006-2009 the Wiki::Toolkit team. All Rights Reserved.
 
 This module is free software; you can redistribute it and/or modify it

wiki-toolkit/trunk/lib/Wiki/Toolkit/Search/Base.pm

@@ -29 +29 @@
 =head1 METHODS
 
-=over 4
-
-=item B<new>
+=head2 C<new>
 
   my $search = Wiki::Toolkit::Search::XXX->new( @args );
@@ -53 +51 @@
 }
 
-=item B<search_nodes>
+=head2 C<search_nodes>
 
   # Find all the nodes which contain the word 'expert'.
@@ -86 +84 @@
 sub _do_search { shift->_abstract };
 
-=item B<analyze>
+=head2 C<analyze>
 
     @terms = $self->analyze($string)
@@ -106 +104 @@
 }
 
-=item B<fuzzy_title_match>
+=head2 C<fuzzy_title_match>
 
   $wiki->write_node( "King's Cross St Pancras", "A station." );
@@ -133 +131 @@
 sub _fuzzy_match { shift->_abstract };
 
-=item B<index_node>
+=head2 C<index_node>
 
   $search->index_node($node, $content);
@@ -175 +173 @@
 }
 
-=item B<delete_node>
+=head2 C<delete_node>
 
   $search->delete_node($node);
@@ -192 +190 @@
 sub _delete_node { shift->_abstract };
 
-=item B<supports_phrase_searches>
+=head2 C<supports_phrase_searches>
 
   if ( $search->supports_phrase_searches ) {
@@ -205 +203 @@
 sub supports_phrase_searches { shift->_abstract };
 
-=item B<supports_fuzzy_searches>
+=head2 C<supports_fuzzy_searches>
 
   if ( $search->supports_fuzzy_searches ) {
@@ -218 +216 @@
 sub supports_fuzzy_searches { shift->_abstract };
 
-=back
-
 =head1 SEE ALSO