Add some (very basic) tests.

Makefile.PL

@@ -0,0 +1,30 @@
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+  NAME => 'Genealogy::Chart::SVG',
+  VERSION_FROM => 'lib/Genealogy/Chart/SVG.pm',
+  LICENSE      => 'perl_5',
+  MIN_PERL_VERSION => '5.10.0',
+
+  BUILD_REQUIRES => {
+    'Test::More' => 0,
+    'ExtUtils::MakeMaker' => 0,
+    SVG => 0,
+    Moose => 0,
+  },
+  PREREQ_PM => {
+    SVG => 0,
+    Moose => 0,
+  },
+  META_MERGE => {
+    'meta-spec' => { version => 2 },
+    resources => {
+      repository => {
+        type => 'git',
+        url => 'git://github.com/davorg/genealogy-chart-svg.git',
+        web => 'https://github.com/davorg/genealgoy-chart-svge',
+      },
+    },
+  },
+  EXE_FILES => [ 'bin/chart' ],
+);

lib/Genealogy/Chart/SVG.pm

@@ -1,3 +1,13 @@
+=head1 NAME
+
+Genealogy::Chart::SVG
+
+=head1 DESCRIPTION
+
+Perl extension for drawing Genealogical charts using SVG.
+
+=cut
+
 package Genealogy::Chart::SVG;
 
 use strict;
@@ -115,6 +125,12 @@ has bar_outline_colour => (
   default => 'rgb(0,0,0)',
 );
 
+=head1 METHODS
+
+=head2 BUILD
+
+=cut
+
 sub BUILD {
   my $self = shift;
 
@@ -145,6 +161,10 @@ sub BUILD {
   return $self;
 }
 
+=head2 person
+
+=cut
+
 # Produce a bar containing the details of one person.
 sub person {
   my $self = shift;
@@ -188,13 +208,21 @@ sub person {
 # The 3rd generation appears 1/8, 3/8, 5/8 and 7/8 down the page. 
 # etc ...
 
+=head2 y_pos
+
+=cut
+
 sub y_pos {
   croak 'No generation passed to y_pos()' unless @_;
 
   # TODO: int?
   return num( $_[0] ) / den( $_[0] );
 }
 
+=head2 num
+
+=cut
+
 # No idea how this works. But it does.
 sub num {
   my $num = shift;
@@ -212,6 +240,10 @@ sub num {
 # So convert the persons number to a generation number, and calculate
 # 2 ** the generation number.
 
+=head2 den
+
+=cut
+
 sub den {
   my $num = shift;
 

t/01-basic.t

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

t/load.t

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

t/pod-coverage.t

@@ -0,0 +1,5 @@
+use Test::More;
+eval "use Test::Pod::Coverage 1.00";
+plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@;
+all_pod_coverage_ok();
+

t/pod.t

@@ -0,0 +1,7 @@
+use Test::More;
+
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();
+
+done_testing;