#26 Attempt to fix this by obfuscating the generated pod in *.pod.PL

.gitignore

@@ -1,3 +1,10 @@
 Build
 Build.bat
 _build
+blib
+*.tmp
+lib/Physics/Unit/UnitsByName.pod
+lib/Physics/Unit/UnitsByName.html
+lib/Physics/Unit/UnitsByType.pod
+lib/Physics/Unit/UnitsByType.html
+

MANIFEST

@@ -20,3 +20,4 @@ t/scalar.t
 t/unit.t
 lib/Physics/Unit/UnitsByName.pod         Generated Pod
 lib/Physics/Unit/UnitsByType.pod         Generated Pod
+META.yml

lib/Physics/Unit.pm

@@ -11,7 +11,7 @@ use vars qw(
     $number_re
 );
 
-$VERSION = '0.51';
+$VERSION = '0.51_1';
 $VERSION = eval $VERSION;
 
 @EXPORT_OK = qw(

lib/Physics/Unit/Scalar.pm

@@ -5,7 +5,7 @@ use Carp;
 use base qw(Exporter);
 use vars qw( $VERSION @EXPORT_OK %EXPORT_TAGS $debug);
 
-$VERSION = '0.51';
+$VERSION = '0.51_1';
 $VERSION = eval $VERSION;
 
 @EXPORT_OK = qw( ScalarFactory GetScalar );

lib/Physics/Unit/Script.pm

@@ -6,7 +6,7 @@ use warnings;
 use Physics::Unit ':ALL';
 use Physics::Unit::Script::GenPages;
 
-our $VERSION = '0.51';
+our $VERSION = '0.51_1';
 $VERSION = eval $VERSION;
 
 use base 'Exporter';

lib/Physics/Unit/Script/GenPages.pm

@@ -6,7 +6,7 @@ package Physics::Unit::Script::GenPages;
 use strict;
 use warnings;
 
-our $VERSION = '0.51';
+our $VERSION = '0.51_1';
 $VERSION = eval $VERSION;
 
 use Physics::Unit ':ALL';

lib/Physics/Unit/UnitsByName.pod.PL

@@ -7,27 +7,33 @@ use Physics::Unit::Script::GenPages 'GenNameTable';
 my $filename = shift;
 open my $fh, ">", $filename or die "Could not open $filename for writing";
 
-print $fh <<'PODHEADER';
-=head1 NAME
+# Make sure none of the generated POD commands appear in column 1, to they
+# won't be confused with real POD.
+
+print $fh '=head1 NAME
 
 Physics::Unit::UnitsByName
 
-=head1 DESCRIPTION
+', '=head1 DESCRIPTION
 
-This document lists the units provided by L<Physics::Unit> sorted by name. Since the POD standard does not do tables, they are formatted as HTML tables, therefore this is best viewed in a browser-based POD renderer. Note that the L<physics-unit> script can produce a very similar HTML file in the location of your choosing should this be more convenient.
+This document lists the units provided by L<Physics::Unit> sorted by name.
+Since the POD standard does not do tables, they are formatted as HTML
+tables, therefore this is best viewed in a browser-based POD renderer.
+Note that the L<physics-unit> script can produce a very similar HTML file
+in the location of your choosing should this be more convenient.
 
-=head1 UNITS
+', '=head1 UNITS
 
-=begin html
+', '=begin html
 
-PODHEADER
+';
 
 GenNameTable($fh);
 
-print $fh <<'PODFOOTER';
+print $fh '
 
-=end html
+', '=end html
 
-=cut
+', '=cut
 
-PODFOOTER
+';

lib/Physics/Unit/UnitsByType.pod.PL

@@ -7,30 +7,31 @@ use Physics::Unit::Script::GenPages 'GenTypeTable';
 my $filename = shift;
 open my $fh, ">", $filename or die "Could not open $filename for writing";
 
-print $fh <<'PODHEADER';
-=head1 NAME
+# Make sure none of the generated POD commands appear in column 1, to they
+# won't be confused with real POD.
+
+print $fh '=head1 NAME
 
 Physics::Unit::UnitsByType
 
-=head1 DESCRIPTION
+', '=head1 DESCRIPTION
 
-This document lists the units provided by L<Physics::Unit> sorted by type. Since the POD 
-standard does not do tables, they are formatted as HTML tables, therefore this is best 
-viewed in a browser-based POD renderer. Note that the L<physics-unit> script can produce 
-a very similar HTML file in the location of your choosing should this be more convenient.
+This document lists the units provided by L<Physics::Unit> sorted by type.
+Since the POD standard does not do tables, they are formatted as HTML
+tables, therefore this is best viewed in a browser-based POD renderer.
+Note that the L<physics-unit> script can produce a very similar HTML file
+in the location of your choosing should this be more convenient.
 
-=head1 UNITS
+', '=head1 UNITS
 
-=begin html
+', '=begin html
 
-PODHEADER
+';
 
 GenTypeTable($fh);
 
-print $fh <<'PODFOOTER';
-
-=end html
+print $fh '=end html
 
-=cut
+', '=cut
 
-PODFOOTER
+';