Subject: pod errors
Description: pod errors generate errors during
pod2man execution
Author: Olivier Sallou <osallou@debian.org>
Forwarded: yes
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=83927
Last-Updated: 2013-03-13
--- a/lib/UR/Util.pm
+++ b/lib/UR/Util.pm
@@ -228,6 +228,8 @@
 that is unique compared to $base.  If $target is not a subdirectory
 of $base, then it returns a relative pathname starting with $base.
 
+=back
+
 =cut
 
 sub path_relative_to {
@@ -270,6 +272,8 @@
 
 This method does not overwrite class methods that already exist.
 
+=back
+
 =cut
 
 sub generate_readwrite_methods
@@ -300,6 +304,8 @@
 
 =pod
 
+=over
+
 =item generate_readwrite_methods_override
 
   UR::Util->generate_readwrite_methods_override
@@ -311,6 +317,8 @@
 Same as generate_readwrite_function except that we force the functions
 into the namespace even if the function is already defined
 
+=back
+
 =cut
 
 sub generate_readwrite_methods_override
@@ -338,6 +346,8 @@
 
 =pod
 
+=over
+
 =item generate_readonly_methods
 
   UR::Util->generate_readonly_methods
@@ -354,6 +364,8 @@
 
 This method does not overwrite class methods that already exist.
 
+=back
+
 =cut
 
 sub generate_readonly_methods
@@ -384,6 +396,8 @@
 
 =pod 
 
+=over
+
 =item mapreduce_grep
 
     my @matches = UR::Util->map_reduce_grep { shift->some_test } @candidates;
@@ -396,6 +410,8 @@
 The test function is called with a single argument, an item from the list to
 be tested, and should return a true of false value.
 
+=back
+
 =cut
 
 sub mapreduce_grep($&@) {
--- a/lib/UR/ObjectDeprecated.pm
+++ b/lib/UR/ObjectDeprecated.pm
@@ -336,6 +336,8 @@
 
 =pod
 
+=over
+
 =item message_callback
 
   $sub_ref = UR::ModuleBase->message_callback($type);
--- a/lib/UR/Object/Type.pm
+++ b/lib/UR/Object/Type.pm
@@ -582,11 +582,15 @@
 
 =item all_columnless_property_metas
 
+=back
+
 Return lists of property meta objects and their names for properties that
 have no column name.
 
 =head1 METHODS
 
+=over
+
 =item property_meta_for_name
 
   $property_obj = $class_obj->property_meta_for_name($property_name);
--- a/lib/UR/Namespace/Command/Test/Run.pm
+++ b/lib/UR/Namespace/Command/Test/Run.pm
@@ -1019,8 +1019,12 @@
  This many tests should be run in parallel.  If --lsf is also specified, then
  these parallel tests will be submitted as LSF jobs.
 
+=back
+
 =head1 PENDING FEATURES
 
+=over
+
 =item automatic remote execution for tests requiring a distinct hardware platform
 
 =item logging profiling and coverage metrics with each test
--- a/lib/UR/ModuleBase.pm
+++ b/lib/UR/ModuleBase.pm
@@ -37,8 +37,6 @@
 
 =head1 METHODS
 
-=over 4
-
 =cut
 
 # set up package
@@ -54,6 +52,8 @@
 
 =pod
 
+=over 4
+
 =item C<class>
 
   $class = $obj->class;
@@ -811,7 +811,6 @@
 
 =pod
 
-=back
 
 =head1 SEE ALSO
 
--- a/lib/UR/DataSource.pod
+++ b/lib/UR/DataSource.pod
@@ -212,6 +212,8 @@
 listrefs about properties involved in a query.  The second-level data is
 sets of quads:
 
+=back
+
 =over 2
 
 =item 1.
--- a/lib/UR/Context/Process.pm
+++ b/lib/UR/Context/Process.pm
@@ -74,8 +74,6 @@
 
 =over 4
 
-=pod 
-
 =item get_current
 
  $ctx = UR::Context::Process->get_current();
@@ -84,6 +82,8 @@
 
 Also available as UR::Context->get_process();
 
+=back
+
 =cut
 
 
@@ -93,6 +93,8 @@
 
 =pod 
 
+=over
+
 =item has_changes()
 
  $bool = UR::Context::Process->has_changes();
@@ -100,6 +102,8 @@
 Returns true if the current process has changes which might be committed back to
 the underlying context.
 
+=back
+
 =cut
 
 sub has_changes {
@@ -116,6 +120,8 @@
 
 =pod 
 
+=over
+
 =item _create_for_current_process
 
  $ctx = UR::Context::Process->_create_for_current_process(@PARAMS)
@@ -126,6 +132,8 @@
 TODO: Remove the exception from create(), and allow other processes to be
 created explicitly w/ the appropriate characteristics.
 
+=back
+
 =cut
 
 sub _create_for_current_process {
@@ -157,12 +165,16 @@
 
 =pod
 
+=over
+
 =item base_name
 
   $name = UR::Context::Process->base_name;
 
 This is C<basename($0, '.pl'))>.
 
+=back
+
 =cut
 
 our $base_name = basename($0, '.pl');
@@ -170,6 +182,8 @@
 
 =pod
 
+=over
+
 =item prog_name
 
   $name = UR::Context::Process->prog_name;
@@ -184,6 +198,8 @@
 
 It defaults to C<basename> if unspecified.
 
+=back
+
 =cut
 
 our $prog_name;
@@ -201,6 +217,8 @@
 
 =pod
 
+=over
+
 =item pkg_name
 
   $name = UR::Context::Process->pkg_name;
@@ -221,6 +239,8 @@
 defaults to C<base_name>, which in turn defaults to
 C<basename($0)>.
 
+=back
+
 =cut
 
 # NOTE: this should not use App::Debug because App::Debug::level calls it
@@ -239,6 +259,8 @@
 
 =pod
 
+=over
+
 =item title
 
   $name = UR::Context::Process->title;
@@ -256,6 +278,8 @@
 turn defaults to C<base_name> when unspecified, which
 defaults to C<basename($0)> when unspecified.
 
+=back
+
 =cut
 
 our $title;
@@ -273,6 +297,8 @@
 
 =pod
 
+=over
+
 =item version
 
   $version = UR::Context::Process->version;
@@ -288,6 +314,8 @@
 This message defaults to C<$main::VERSION> if not set.  Note that
 C<$main::VERSION> may be C<undef>.
 
+=back
+
 =cut
 
 # set/get version
@@ -306,6 +334,8 @@
 
 =pod
 
+=over
+
 =item author
 
   $author = UR::Context::Process->author;
@@ -316,6 +346,8 @@
 or C<undef> if unsuccessful.  Without an argument, the current author
 is returned.
 
+=back
+
 =cut
 
 # set/get author
@@ -334,6 +366,8 @@
 
 =pod
 
+=over
+
 =item author_email
 
   $author_email = UR::Context::Process->author_email;
@@ -346,6 +380,8 @@
 address or C<undef> if unsuccessful.  Without an argument, the current
 email address is returned.
 
+=back
+
 =cut
 
 # set/return author email address
@@ -364,6 +400,8 @@
 
 =pod
 
+=over
+
 =item support_email
 
   $support_email = UR::Context::Process->support_email;
@@ -376,6 +414,8 @@
 email address or C<undef> if unsuccessful.  Without an argument, the
 current email address is returned.
 
+=back
+
 =cut
 
 # set/return author email address
@@ -394,6 +434,8 @@
 
 =pod
 
+=over
+
 =item real_user_name
 
   $login = UR::Context::Process->real_user_name;
@@ -401,6 +443,8 @@
 This method is used to get the login name of the effective user id of
 the running script.
 
+=back
+
 =cut
 
 # return the name of the user running the program
@@ -425,6 +469,8 @@
 
 =pod 
 
+=over
+
 =item fork
     $pid = UR::Context::Process->fork;
 
@@ -433,6 +479,9 @@
 Handles properly disconnecting database handles if necessary so that data sources in children
 are still valid.  Also ensures that the active UR::Context::process has the child's PID 
 recorded within.
+
+=back
+
 =cut
 
 sub fork 
@@ -469,6 +518,8 @@
 
 =pod
 
+=over
+
 =item effective_user_name
 
   $login = UR::Context::Process->effective_user_name;
@@ -476,6 +527,8 @@
 This method is used to get the login name of the effective user id of
 the running script.
 
+=back
+
 =cut
 
 # return the name of the user running the program
@@ -493,6 +546,8 @@
 
 =pod
 
+=over
+
 =item original_program_path
 
  $path = UR::Context::Process->original_program_path;
@@ -502,6 +557,8 @@
 (In truth it will find the path at the time UR::Context::Process was used.  So, a chdir
 before that happens will cause incorrect results; in that case, undef will be returned.
 
+=back
+
 =cut
 
 our ($original_program_name, $original_program_dir);
@@ -540,7 +597,6 @@
 
 =pod
 
-=back
 
 =head1 SEE ALSO
 
--- a/lib/UR/Object/Type/Initializer.pod
+++ b/lib/UR/Object/Type/Initializer.pod
@@ -282,6 +282,8 @@
 Works like 'sub_classification_method_name', except that the value of the
 property is directly used to subclass the loaded object. 
 
+=back
+
 =head2 Properties properties
 
 C<ur show properties UR::Object::Property> will print out an exhaustive list of all
@@ -351,8 +353,12 @@
 
 Indicates that this property can hold the value undef. 
 
+=back
+
 =head3 Calculated Properties
 
+=over
+
 =item is_calculated
 
 A flag indicating that the value of this property is determined from a
