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.
=head2 cache ($asset)
Returns the cached PDF for an asset, if necessary
=cut
sub cache {
my $asset = shift;
my $session = $asset->session;
@ -72,6 +78,12 @@ sub cache {
#-------------------------------------------------------------------
# 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 {
my $asset = shift;
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 {
my $session = shift;
@ -112,6 +129,12 @@ sub getRequestedAsset {
#-------------------------------------------------------------------
# Top-level handler.
=head2 handler ($session)
Top-level handler
=cut
sub handler {
my $session = shift;
my $op = $session->form->get('op');