From 675150f98a65de2b49b5ac1524798915b2f6dc86 Mon Sep 17 00:00:00 2001
From: ronsavage <ron@savage.net.au>
Date: Sun, 25 Jan 2015 14:12:09 +1100
Subject: [PATCH] Change bareword filehandles. Rename github repo

---
 Build.PL             | 79 ++++++++++++++++++++++++++++++--------------
 Changelog.ini        | 18 ++++++----
 CHANGES => Changes   |  8 ++++-
 Makefile.PL          |  3 ++
 lib/HTML/Timeline.pm | 25 ++++++++------
 5 files changed, 91 insertions(+), 42 deletions(-)
 rename CHANGES => Changes (81%)

diff --git a/Build.PL b/Build.PL
index abe4a5e..335477d 100644
--- a/Build.PL
+++ b/Build.PL
@@ -1,29 +1,58 @@
+use strict;
+use warnings;
+
 use Module::Build;
 
-Module::Build -> new
+my $class = Module::Build->subclass(code => <<'EOF');
+
+sub ACTION_authortest
+{
+	my($self) = @_;
+
+	$self->depends_on('build');
+	$self->depends_on('manifest');
+	$self->depends_on('distmeta');
+
+	$self->test_files( qw< t xt/author > );
+	$self->recursive_test_files(1);
+
+	$self->depends_on('test');
+
+	return;
+}
+EOF
+
+$class -> new
 (
- module_name    => 'HTML::Timeline',
- license        => 'artistic_2',
- dist_abstract  => 'Convert a Gedcom file into a Timeline file',
- dist_author    => 'Ron Savage <ron@savage.net.au>',
- build_requires =>
- {
-	 Test::More=> 0,
-#	 Test::Pod  => 1.45, # Make it optional. See t/pod.t
- },
- configure_requires =>
- {
- 	 Module::Build => 0.3800,
- },
- requires =>
- {
-	 accessors        => 0,
-	 Carp             => 0,
-	 Config::IniFiles => 0,
-	 Gedcom           => 0,
-	 Gedcom::Date     => 0,
-	 HTML::Template   => 0,
-	 Path::Class      => 0,
- },
- script_files => ['bin/timeline.pl'],
+	module_name    => 'HTML::Timeline',
+	license        => 'artistic_2',
+	dist_abstract  => 'Convert a Gedcom file into a Timeline file',
+	dist_author    => 'Ron Savage <ron@savage.net.au>',
+	build_requires =>
+	{
+		'Test::More' => 0,
+#		'Test::Pod'  => 1.45, # Make it optional. See t/pod.t
+	},
+	configure_requires =>
+	{
+		'Module::Build' => 0.3800,
+	},
+	meta_merge =>
+	{
+		resources =>
+		{
+			repository => 'https://github.com/ronsavage/HTML-Timeline',
+		},
+	},
+	requires =>
+	{
+		'accessors'        => 0,
+		'Carp'             => 0,
+		'Config::IniFiles' => 0,
+		'Gedcom'           => 0,
+		'Gedcom::Date'     => 0,
+		'HTML::Template'   => 0,
+		'Path::Class'      => 0,
+	},
+	script_files => ['bin/timeline.pl'],
 ) -> create_build_script();
diff --git a/Changelog.ini b/Changelog.ini
index 60fd27f..22cd65d 100644
--- a/Changelog.ini
+++ b/Changelog.ini
@@ -1,13 +1,19 @@
 [Module]
 Name=HTML::Timeline
-Changelog.Creator=Module::Metadata::Changes V 1.08
-Changelog.Parser=Config::IniFiles V 2.66
+Changelog.Creator=Module::Metadata::Changes V 2.05
+Changelog.Parser=Config::IniFiles V 2.83
 
 [V 1.08]
-Date=2011-02-15T17:00:00
+Date=2014-01-25T14:07:00
 Comments= <<EOT
 - Replace /usr/bin/perl with /usr/bin/env perl.
-- Replace common::sense with use strict and use warnings to get uninit var warnings.
+- Replace common::sense with use strict and use warnings, to get uninit var warnings.
+- Rename CHANGES to Changes, as per CPAN::Changes::Spec.
+- Rewrite bareword filehandles (INX) to use a variable (my $fh).
+- Rename github repo from html--timeline to HTML-Timeline - My new standard.
+Update Build.PL and Makefile.PL to match.
+- Reformat the docs, and this file, slighty, to be <= 100 chars per line - My new standard.
+- Move t/pod.t to xt/author/.
 EOT
 
 [V 1.07]
@@ -35,7 +41,7 @@ EOT
 [V 1.03]
 Date=2008-08-22T12:23:00
 Comments= <<EOT
-- Add support for ~/.timelinerc using Config::IniFiles
+- Add support for ~/.timelinerc, using Config::IniFiles
 - Rename Changes.txt to CHANGES because search.cpan.org won't display Changes.txt
 - Ensure spouse of root person is included when processing descendents and spouses
 - Fix date-parsing via Gedcom::Date
@@ -45,7 +51,7 @@ EOT
 Date=2008-08-18T13:50:00
 Comments= <<EOT
 - Switch from Date::Manip as used by ged2xml.pl to Gedcom::Date.
-Backwards-incompatability if any with Date::Manip is deemed to be a feature
+Backwards-incompatability, if any, with Date::Manip, is deemed to be a feature
 - Add the -output_dir option. This requires Path::Class
 - Add the -template_dir option. This requires HTML::Template
 - Add the -template_name option
diff --git a/CHANGES b/Changes
similarity index 81%
rename from CHANGES
rename to Changes
index 4138dd3..46947f0 100644
--- a/CHANGES
+++ b/Changes
@@ -1,8 +1,14 @@
 Revision history for Perl extension HTML::Timeline.
 
-1.08  Unreleased
+1.08  Sun Jan 25 14:07:00 2014
 	- Replace /usr/bin/perl with /usr/bin/env perl.
 	- Replace common::sense with use strict and use warnings, to get uninit var warnings.
+	- Rename CHANGES to Changes, as per CPAN::Changes::Spec.
+	- Rewrite bareword filehandles (INX) to use a variable (my $fh).
+	- Rename github repo from html--timeline to HTML-Timeline - My new standard.
+		Update Build.PL and Makefile.PL to match.
+	- Reformat the docs, and this file, slighty, to be <= 100 chars per line - My new standard.
+	- Move t/pod.t to xt/author/.
 
 1.07  Sun Feb 21 12:55:20 2010
 	- Remove text 'All rights reserved' (for Debian licensing).
diff --git a/Makefile.PL b/Makefile.PL
index c554ed3..c3ff6a6 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,3 +1,6 @@
+use strict;
+use warnings;
+
 use ExtUtils::MakeMaker;
 
 # See lib/ExtUtils/MakeMaker.pm for details of how to influence
diff --git a/lib/HTML/Timeline.pm b/lib/HTML/Timeline.pm
index d969224..5455e84 100644
--- a/lib/HTML/Timeline.pm
+++ b/lib/HTML/Timeline.pm
@@ -59,7 +59,7 @@ our @EXPORT = qw(
 
 );
 
-our $VERSION = '1.07';
+our $VERSION = '1.08';
 
 # -----------------------------------------------
 
@@ -214,9 +214,9 @@ sub generate_xml_file
 		$output_file_name = file($output_dir, $output_file_name);
 	}
 
-	open(OUT, "> $output_file_name") || Carp::croak "Can't open(> $output_file_name): $!";
-	print OUT join("\n", @xml), "\n";
-	close OUT;
+	open(my $fh, "> $output_file_name") || Carp::croak "Can't open(> $output_file_name): $!";
+	print $fh join("\n", @xml), "\n";
+	close $fh;
 
 	$self -> log(sprintf($self -> format(), 'Created', $output_file_name) );
 
@@ -256,9 +256,9 @@ sub generate_xml_file
 		$output_file_name = file($output_dir, $output_file_name);
 	}
 
-	open(OUT, "> $output_file_name") || Carp::croak "Can't open(> $output_file_name): $!";
-	print OUT $template -> output();
-	close OUT;
+	open(my $fh, "> $output_file_name") || Carp::croak "Can't open(> $output_file_name): $!";
+	print $fh $template -> output();
+	close $fh;
 
 	$self -> log(sprintf($self -> format(), 'Created', $output_file_name) );
 
@@ -500,7 +500,7 @@ help on unpacking and installing.
 
 new(...) returns an object of type C<HTML::Timeline>.
 
-This is the class's contructor.
+This is the class contructor.
 
 Usage: C<< HTML::Timeline -> new() >>.
 
@@ -549,7 +549,7 @@ The default is 0.
 
 If this option is 1, people with missing birthdates are listed under the timeline, in a table.
 
-If this option is 0, such people appear on the timeline, with today's date as their birthdate.
+If this option is 0, such people appear on the timeline, with a date (today) as their birthdate.
 
 =item output_dir a_dir_name
 
@@ -575,7 +575,8 @@ If this option is not used, 'timeline.tmpl' will be used.
 
 =item url_for_xml a_url
 
-If this option is used, it becomes the prefix of the name of the output XML file written into timeline.html.
+If this option is used, it becomes the prefix of the name of the output XML file written into
+timeline.html.
 
 If this option is not used, no prefix is used.
 
@@ -670,6 +671,10 @@ Ron Savage wrote bin/timeline.pl.
 
 examples/timeline.xml is the output of this program, using the default options.
 
+=head1 Repository
+
+L<https://github.com/ronsavage/HTML-Timeline>
+
 =head1 Author
 
 C<HTML::Timeline> was written by Ron Savage I<E<lt>ron@savage.net.auE<gt>> in 2008.