diff --git a/.gitignore b/.gitignore index ab5e328..e61cc05 100644 --- a/.gitignore +++ b/.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 + diff --git a/MANIFEST b/MANIFEST index a06061f..29eb79a 100644 --- a/MANIFEST +++ b/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 diff --git a/lib/Physics/Unit.pm b/lib/Physics/Unit.pm index c57fde6..9387888 100755 --- a/lib/Physics/Unit.pm +++ b/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( diff --git a/lib/Physics/Unit/Scalar.pm b/lib/Physics/Unit/Scalar.pm index 4aa6a2f..0e660a7 100755 --- a/lib/Physics/Unit/Scalar.pm +++ b/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 ); diff --git a/lib/Physics/Unit/Script.pm b/lib/Physics/Unit/Script.pm index 2fddb06..34c58ab 100755 --- a/lib/Physics/Unit/Script.pm +++ b/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'; diff --git a/lib/Physics/Unit/Script/GenPages.pm b/lib/Physics/Unit/Script/GenPages.pm index efa65a2..7f8f877 100755 --- a/lib/Physics/Unit/Script/GenPages.pm +++ b/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'; diff --git a/lib/Physics/Unit/UnitsByName.pod.PL b/lib/Physics/Unit/UnitsByName.pod.PL index 063f0f2..a3da9c7 100644 --- a/lib/Physics/Unit/UnitsByName.pod.PL +++ b/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 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 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 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 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 +'; diff --git a/lib/Physics/Unit/UnitsByType.pod.PL b/lib/Physics/Unit/UnitsByType.pod.PL index f7552aa..f187317 100644 --- a/lib/Physics/Unit/UnitsByType.pod.PL +++ b/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 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 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 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 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 +';