person() now expects a hash reference.

Genealogy/Chart/SVG.pm

@@ -148,28 +148,29 @@ sub BUILD {
 # Produce a bar containing the details of one person.
 sub person {
   my $self = shift;
+  my ($person) = @_;
   my ( $n, $name, $b, $d ) = @_;
 
-  my $gen = ahnen($n)->generation;
+  my $gen = ahnen($person->{id})->generation;
 
-  my $until = $d || $self->left;
+  my $until = $person->{death} || $self->left;
 
   $self->rect(
     x              => ( $self->left - $until ) * $self->pixels_per_year,
-    y              => ( $self->height * y_pos($n) ) - ( $self->bar_height / 2 ),
-    width          => ( $until - $b ) * $self->pixels_per_year,
+    y              => ( $self->height * y_pos($person->{id}) ) - ( $self->bar_height / 2 ),
+    width          => ( $until - $person->{birth} ) * $self->pixels_per_year,
     height         => $self->bar_height,
     fill           => $self->colours->[$gen],
     stroke         => $self->bar_outline_colour,
     'stroke-width' => 1
   );
 
-  my $text = "$n: $name ($b - ";
-  $text .= $d if $d;
+  my $text = "$person->{id}: $person->{name} ($person->{birth} - ";
+  $text .= $person->{death} if $person->{death};
   $text .= ')';
   $self->text(
     x => ( $self->left - $until + 1 ) * $self->pixels_per_year,
-    y => ( $self->height * y_pos($n) )
+    y => ( $self->height * y_pos($person->{id}) )
        + ( $self->bar_height / 2 )
        - ( 2 * $self->bar_padding ),
     'font-size' => $self->bar_height - $self->bar_padding,

chart

@@ -36,16 +36,20 @@ use Genealogy::Chart::SVG;
 
 my $chart = Genealogy::Chart::SVG->new;
 
+my @cols = qw[id name birth death];
+
 while (<>) {
   chomp;
   my ($line) = split /#/;
   next unless $line && $line =~ /\S/;
-  my @person = split /,/, $line;
-  if (@person < 3) {
+  my @data = split /,/, $line;
+  if (@data < 3) {
     warn "Invalid record: $_\n";
     next;
   }
-  $chart->person(@person);
+  my %person;
+  @person{@cols} = @data;
+  $chart->person(\%person);
 }
 
 print $chart->xmlify;