X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole.pm;h=5e85cdfe59b45b23e7cf16905b45598a926593ba;hb=5e09c784983b4a041e81d15e06456e0c16da5bf3;hp=b08edbda68cdbf10c1493cbfd4e24c629f8ed6ea;hpb=70a0d09c3f228f792775b4ac03894d0d37b5c444;p=maypole.git

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index b08edbd..5e85cdf 100644
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -476,7 +476,6 @@ sub component {
 
     $self->get_user;
     my $url = URI->new($path);
-    warn "path : $path\n";
     $self->{path} = $url->path;
     $self->parse_path;
     $self->params( $url->query_form_hash );
@@ -689,7 +688,7 @@ want to use something like Log::Log4perl instead.
 
 sub warn { }
 
-=head2 build_form_elements
+=item build_form_elements
 
 $r->build_form_elements(0);
 
@@ -990,7 +989,6 @@ sub parse_path
 
     my @pi = grep {length} split '/', $self->path;
 
-
     $self->table  || $self->table(shift @pi);
     $self->action || $self->action( shift @pi or 'index' );
     $self->args   || $self->args(\@pi);