Add POD to PDFGenerator so it passes tests.

This commit is contained in:
Colin Kuskie 2011-07-25 16:11:57 -07:00
parent 29f06a1062
commit d7112b2a3b

View file

@ -54,6 +54,12 @@ can also contain additional command line arguments to pass to wkhtmltopdf.
#------------------------------------------------------------------- #-------------------------------------------------------------------
# Return the cached pdf, generating if necessary. # Return the cached pdf, generating if necessary.
=head2 cache ($asset)
Returns the cached PDF for an asset, if necessary
=cut
sub cache { sub cache {
my $asset = shift; my $asset = shift;
my $session = $asset->session; my $session = $asset->session;
@ -72,6 +78,12 @@ sub cache {
#------------------------------------------------------------------- #-------------------------------------------------------------------
# Generate the pdf unconditionally and return it as a string. # Generate the pdf unconditionally and return it as a string.
=head2 generate ($asset)
Generate the pdf unconditionally and return it as a string.
=cut
sub generate { sub generate {
my $asset = shift; my $asset = shift;
my $session = $asset->session; my $session = $asset->session;
@ -96,7 +108,12 @@ sub generate {
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
# Figure out which asset we need to check permissions for
=head2 cache ($asset)
Figure out which asset we need to check permissions for
=cut
sub getRequestedAsset { sub getRequestedAsset {
my $session = shift; my $session = shift;
@ -112,6 +129,12 @@ sub getRequestedAsset {
#------------------------------------------------------------------- #-------------------------------------------------------------------
# Top-level handler. # Top-level handler.
=head2 handler ($session)
Top-level handler
=cut
sub handler { sub handler {
my $session = shift; my $session = shift;
my $op = $session->form->get('op'); my $op = $session->form->get('op');