From d7112b2a3bc8d168af940a0f58d570439789b812 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 25 Jul 2011 16:11:57 -0700
Subject: [PATCH] Add POD to PDFGenerator so it passes tests.

---
 lib/WebGUI/Content/PDFGenerator.pm | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Content/PDFGenerator.pm b/lib/WebGUI/Content/PDFGenerator.pm
index c747c9c4f..d0d783831 100644
--- a/lib/WebGUI/Content/PDFGenerator.pm
+++ b/lib/WebGUI/Content/PDFGenerator.pm
@@ -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');