Fix POD typos and add POD to get to 100% POD coverage.

This commit is contained in:
Colin Kuskie 2009-04-01 04:10:14 +00:00
parent a3a073296c
commit 04217e67e0
5 changed files with 43 additions and 4 deletions

View file

@ -45,6 +45,22 @@ These methods are available from this class:
=cut
#-------------------------------------------------------------------
=head2 unzip ( $storage, $filename )
Uncompress and/or expand an archive, based on the file extension of the filename.
Returns 1 if the unzip was successful. Returns 0 if there were problems.
=head3 $storage
A WebGUI::Storage object containing the archive.
=head3 $filename
The filename of the archive.
=cut
sub unzip {
my $self = shift;
my $storage = shift;
@ -78,8 +94,8 @@ sub unzip {
=head2 addRevision ( )
This method exists for demonstration purposes only. The superclass
handles revisions to ZipArchive Assets.
This method exists for demonstration purposes only. The superclass
handles revisions to ZipArchive Assets.
=cut

View file

@ -574,7 +574,7 @@ sub setRatings {
#-------------------------------------------------------------------
=head2 view ( hasRated )
=head2 updateScore ( )
Updates the score of a MatrixListing.

View file

@ -58,7 +58,7 @@ sub www_switchOffAdmin {
#-------------------------------------------------------------------
=head2 www_adminConsole ( )
=head2 www_switchOnAdmin ( )
If the current user is in the Turn On Admin Group, then allow them to turn on Admin mode.

View file

@ -451,6 +451,17 @@ sub www_commitVersionTagConfirm {
}
#-------------------------------------------------------------------
=head2 www_leaveVersionTag ( session )
Clears the current working version tag, and returns the user to www_manageVersions.
=head3 session
A reference to the current session.
=cut
sub www_leaveVersionTag {
my $session = shift;
WebGUI::VersionTag->getWorking($session)->clearWorking;

View file

@ -226,6 +226,18 @@ Returns a reference to the current session.
=cut
#-------------------------------------------------------------------
=head2 www_addPaymentGateway ( $session )
Add a new payment gateway, based on the className form variable. It will throw
an error, WebGUI::Error::InvalidParram if no className is passed.
=head3 $session
A reference to the current session object.
=cut
sub www_addPaymentGateway {
my $self = shift;
my $session = $self->session;