fixed pod for warn method

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@540 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm
index 1695bf5f525d0332a5810b565f4acdc8f02c5886..e9caa396679f3f652745b9a6bdeb1432ed111b19 100644 (file)
--- a/lib/Apache/MVC.pm
+++ b/lib/Apache/MVC.pm
@@ -101,6 +101,10 @@ sub get_request {
     $self->ar($ar);
 }
 
+=item parse_location
+
+=cut
+
 sub warn {
   my ($self,@args) = @_;
   my ($package, $line) = (caller)[0,2];
@@ -112,7 +116,7 @@ sub warn {
   return;
 }
 
-=item parse_location
+=item warn
 
 =cut
 

diff --git a/lib/CGI/Maypole.pm b/lib/CGI/Maypole.pm
index d223c768c335b20e85d10af609fd0c271498c339..4724a1b532d64625de4bcd3b8ba8c8759a2de731 100644 (file)
--- a/lib/CGI/Maypole.pm
+++ b/lib/CGI/Maypole.pm
@@ -105,6 +105,10 @@ sub parse_location
     $r->parse_args;
 }
 
+=item warn
+
+=cut
+
 sub warn {
     my ($self,@args) = @_;
     my ($package, $line) = (caller)[0,2];

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index b08edbda68cdbf10c1493cbfd4e24c629f8ed6ea..4f4008500aa0ad94a916c311453591ab6fa073e3 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -689,7 +689,7 @@ want to use something like Log::Log4perl instead.
 
 sub warn { }
 
-=head2 build_form_elements
+=item build_form_elements
 
 $r->build_form_elements(0);
 

diff --git a/lib/Maypole/CLI.pm b/lib/Maypole/CLI.pm
index 8f8a50eb4cd0243a71ff514a644a04e652c0a9a6..facedc12d2b27dc04bcda72a533a0bf97a582b7f 100644 (file)
--- a/lib/Maypole/CLI.pm
+++ b/lib/Maypole/CLI.pm
@@ -144,6 +144,8 @@ functionality. See L<Maypole> for these:
 
 =item send_output
 
+=item warn
+
 =back
 
 =cut