Add missing POD and fix POD typos in subroutine names. 30/441 failing 100% POD coverage.

This commit is contained in:
Colin Kuskie 2009-07-04 20:09:35 +00:00
parent 2e2e436d1f
commit 3cd1e13051
3 changed files with 65 additions and 1 deletions

View file

@ -123,6 +123,14 @@ END_SCRIPT
return $output;
}
#-------------------------------------------------------------------
=head2 www_searchAsJSON
Returns search results in the form variable C<search> as JSON.
=cut
sub www_searchAsJSON {
my $session = shift;
my $search = $session->form->param('search');
@ -134,16 +142,40 @@ sub www_searchAsJSON {
return JSON::to_json({keywords => $keywords});
}
#-------------------------------------------------------------------
=head2 getDefaultValue
Extends the base method to return keywords in a comma delimited string.
=cut
sub getDefaultValue {
my $self = shift;
return _formatKeywordsAsWanted($self->SUPER::getDefaultValue(@_));
}
#-------------------------------------------------------------------
=head2 getOriginalValue
Extends the base method to return keywords in a comma delimited string.
=cut
sub getOriginalValue {
my $self = shift;
return _formatKeywordsAsWanted($self->SUPER::getOriginalValue(@_));
}
#-------------------------------------------------------------------
=head2 getValue
Extends the base method to return keywords in a comma delimited string.
=cut
sub getValue {
my $self = shift;
return _formatKeywordsAsWanted($self->SUPER::getValue(@_));