From: Aaron Trevena <aaron.trevena@gmail.com>
Date: Mon, 30 Oct 2006 19:06:48 +0000 (+0000)
Subject: fixed pod for warn method
X-Git-Tag: 2.12~34
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=6cd7a25572c93242146d8d8ce0eb3f2bbb76917e;p=maypole.git

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 1695bf5..e9caa39 100644
--- 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 d223c76..4724a1b 100644
--- 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 b08edbd..4f40085 100644
--- 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 8f8a50e..facedc1 100644
--- 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