Renamed module to SVG::TImeline::Genealogy.

Makefile.PL

@@ -1,8 +1,8 @@
 use ExtUtils::MakeMaker;
 
 WriteMakefile(
-  NAME => 'Genealogy::Chart::SVG',
-  VERSION_FROM => 'lib/Genealogy/Chart/SVG.pm',
+  NAME => 'SVG::Timeline::Genealogy',
+  VERSION_FROM => 'lib/SVG/Timeline/Genealogy.pm',
   LICENSE      => 'perl_5',
   MIN_PERL_VERSION => '5.10.0',
 
@@ -21,8 +21,8 @@ WriteMakefile(
     resources => {
       repository => {
         type => 'git',
-        url => 'git://github.com/davorg/genealogy-chart-svg.git',
-        web => 'https://github.com/davorg/genealgoy-chart-svge',
+        url => 'git://github.com/davorg/svg-timeline-genealogy.git',
+        web => 'https://github.com/davorg/svg-timeline-genealgoy',
       },
     },
   },

bin/chart

@@ -32,9 +32,9 @@
 use strict;
 use warnings;
 
-use Genealogy::Chart::SVG;
+use SVG::Timeline::Genealogy;
 
-my $chart = Genealogy::Chart::SVG->new;
+my $chart = SVG::Timeline::Genealogy->new;
 
 my @cols = qw[id name birth death];
 

lib/Genealogy/Chart/SVG.pm → lib/SVG/Timeline/Genealogy.pm

@@ -1,14 +1,14 @@
 =head1 NAME
 
-Genealogy::Chart::SVG
+SVG::Timeline::Genealogy
 
 =head1 DESCRIPTION
 
 Perl extension for drawing Genealogical charts using SVG.
 
 =cut
 
-package Genealogy::Chart::SVG;
+package SVG::Timeline::Genealogy;
 
 use strict;
 use warnings;

t/01-basic.t

@@ -1,17 +1,17 @@
 
 use Test::More;
 
-use Genealogy::Chart::SVG;
+use SVG::Timeline::Genealogy;
 
-my $gcs = Genealogy::Chart::SVG->new;
+my $tl = SVG::Timeline::Genealogy->new;
 
-$gcs->person({
+$tl->person({
   id => 1,
   name => 'Mr Example',
   birth => 1900,
   death => 2000,
 });
 
-ok(my $chart = $gcs->xmlify);
+ok(my $chart = $tl->xmlify);
 
 done_testing();

t/load.t

@@ -1,10 +1,10 @@
 use Test::More;
 
 BEGIN {
-  use_ok 'Genealogy::Chart::SVG';
+  use_ok 'SVG::Timeline::Genealogy';
 }
 
-ok(my $tl = Genealogy::Chart::SVG->new);
-isa_ok($tl, 'Genealogy::Chart::SVG');
+ok(my $tl = SVG::Timeline::Genealogy->new);
+isa_ok($tl, 'SVG::Timeline::Genealogy');
 
 done_testing;