Skip Menu |

This queue is for tickets about the RISC-Workload CPAN distribution.

Report information
The Basics
Id: 107242
Status: new
Priority: 0/
Queue: RISC-Workload

People
Owner: Nobody in particular
Requestors: gsullivan [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)



Subject: POD errors and warnings
When I run "podchecker Workload.pm" with Perl version v5.16.3, I get an error and several warnings: *** WARNING: empty section in previous paragraph at line 60 in file Workload.pm *** WARNING: line containing nothing but whitespace in paragraph at line 65 in file Workload.pm *** WARNING: line containing nothing but whitespace in paragraph at line 80 in file Workload.pm *** ERROR: Spurious =cut command at line 105 in file Workload.pm *** WARNING: line containing nothing but whitespace in paragraph at line 129 in file Workload.pm *** WARNING: line containing nothing but whitespace in paragraph at line 155 in file Workload.pm *** WARNING: line containing nothing but whitespace in paragraph at line 181 in file Workload.pm *** WARNING: line containing nothing but whitespace in paragraph at line 207 in file Workload.pm *** WARNING: line containing nothing but whitespace in paragraph at line 233 in file Workload.pm Workload.pm has 1 pod syntax error. The patch eliminates all these errors and warnings. Additionally, the EXPORT section did not render correctly; all sub names showed up on one long line with the EXPORT word. The patch also fixes that by creating a proper verbatim paragraph.
Here is the patch.
Subject: diff-u.txt
--- Workload.pm.orig 2015-09-22 09:08:34.581688000 -0400 +++ Workload.pm 2015-09-22 09:08:34.590690000 -0400 @@ -47,6 +47,7 @@ * Find example scripts in the example folder =head1 EXPORT + Decode GetWorkloadSummaryJSON GetGroupsByPlan @@ -62,7 +63,7 @@ =head2 Decode Decode the Base64 return object - + =cut sub Decode { @@ -77,7 +78,7 @@ * isPlan=false and does not currently accommodate isPlan=true * id parameter should be a group id (use GetGroupsByPlan subroutine to get a list of group IDs) * This method returns a Base64 String and will require decoding - + =cut sub GetWorkloadSummaryJSON { @@ -98,10 +99,11 @@ }; return $result->result(); } + =head2 GetGroupsByPlan Get a list of group IDs from a plan ID - + =cut sub GetGroupsByPlan { @@ -126,7 +128,7 @@ Get workload device by device ID * This method returns a Base64 String and will require decoding - + =cut sub GetWorkloadDeviceJSON { @@ -152,7 +154,7 @@ Get workload disk by device ID * This method returns a Base64 String and will require decoding - + =cut sub GetWorkloadDiskJSON { @@ -178,7 +180,7 @@ Get workload file system by device ID * This method returns a Base64 String and will require decoding - + =cut sub GetWorkloadFileSystemJSON { @@ -204,7 +206,7 @@ Get workload Nic by device ID * This method returns a Base64 String and will require decoding - + =cut sub GetWorkloadNicJSON { @@ -230,7 +232,7 @@ Get workload applications by device ID * This method returns a Base64 String and will require decoding - + =cut sub GetWorkloadApplicationJSON {