From: Aaron Trevena 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 for these: =item send_output +=item warn + =back =cut