Add POD and fix typos to get POD coverage up

This commit is contained in:
Colin Kuskie 2009-04-01 03:53:34 +00:00
parent c2e38ac416
commit a3a073296c
3 changed files with 18 additions and 1 deletions

View file

@ -137,7 +137,7 @@ sub getFolder {
#-------------------------------------------------------------------
=head2 getNamepsaceRoot ( )
=head2 getNamespaceRoot ( )
Figures out what the cache root for this namespace should be. A class method.

View file

@ -88,6 +88,17 @@ sub handler {
}
#-------------------------------------------------------------------
=head2 formatXML ( content )
Escape XML entities, &, <, >, ' and ".
=head3 content
The content that will have XML entities escaped.
=cut
sub formatXML {
my $content = shift;
$content =~ s/&/&amp;/g;

View file

@ -182,6 +182,12 @@ sub toHtml {
return $self->SUPER::toHtml.'<p style="display:inline;vertical-align:middle;"><img src="'.$storage->getUrl($filename).'" style="border-style:none;vertical-align:middle;" alt="captcha" /></p>';
}
=head2 getErrorMessage ( )
Returns an internationalized error message based on which kind of captcha is being used.
=cut
sub getErrorMessage {
my $self = shift;
my $session = $self->session;