Perltidied

davorg · Apr 9, 2015 · b6accd7 · b6accd7
1 parent d6285fc
commit b6accd7
Showing 1 changed file with 68 additions and 56 deletions.
diff --git a/Genealogy/Chart/SVG.pm b/Genealogy/Chart/SVG.pm
@@ -10,95 +10,106 @@ use File::Basename;
 use SVG;
 
 has svg => (
-  is  => 'ro',
-  isa => 'SVG',
+  is         => 'ro',
+  isa        => 'SVG',
   lazy_build => 1,
-  handles => [ qw[xmlify line text rect cdata] ],
+  handles    => [qw[xmlify line text rect cdata]],
 );
 
 sub _build_svg {
   my $self = shift;
   return SVG->new(
-    width => ($self->years * $self->pixels_per_year),
+    width  => ( $self->years * $self->pixels_per_year ),
     height => $self->height,
   );
 }
 
 has colours => (
-  is  => 'ro',
-  isa => 'ArrayRef',
+  is         => 'ro',
+  isa        => 'ArrayRef',
   lazy_build => 1,
 );
 
 sub _build_colours {
-  no warnings 'qw'; # I know what I'm doing here!
-  return [ map { "rgb($_)" }
-             qw(
-                0
-                255,127,127
-                127,255,127
-                127,127,255
-                255,255,127
-                255,127,255
-                127,255,255
-             ) ];
+  no warnings 'qw';    # I know what I'm doing here!
+  return [
+    map { "rgb($_)" }
+      qw(
+      0
+      255,127,127
+      127,255,127
+      127,127,255
+      255,255,127
+      255,127,255
+      127,255,255
+      )
+  ];
 }
 
 has bar_height => (
-  is  => 'ro',
-  isa => 'Int',
+  is      => 'ro',
+  isa     => 'Int',
   default => 18,
 );
 
 has years => (
-  is  => 'ro',
-  isa => 'Int',
+  is      => 'ro',
+  isa     => 'Int',
   default => 200,
 );
 
 has pixels_per_year => (
-  is  => 'ro',
-  isa => 'Int',
+  is      => 'ro',
+  isa     => 'Int',
   default => 5,
 );
 
 has height => (
-  is  => 'ro',
-  isa => 'Int',
+  is      => 'ro',
+  isa     => 'Int',
   default => 1500,
 );
 
 has left => (
-  is  => 'ro',
-  isa => 'Int',
+  is      => 'ro',
+  isa     => 'Int',
   default => localtime->year,
 );
 
 has decade_line_colour => (
-  is  => 'ro',
-  isa => 'Str',
+  is      => 'ro',
+  isa     => 'Str',
   default => 'rgb(127,127,127)',
 );
 
 has bar_outline_colour => (
-  is  => 'ro',
-  isa => 'Str',
+  is      => 'ro',
+  isa     => 'Str',
   default => 'rgb(0,0,0)',
 );
 
 sub BUILD {
   my $self = shift;
 
   my $curr_y = $self->left;
-  my $x = 0;
+  my $x      = 0;
+
   # Draw the decade lines
-  while ($curr_y > ($self->left - $self->years)) {
-    unless ($curr_y % 10) {
-      $self->line(x1 => $x, y1 => 0, x2 => $x, y2 => $self->height,
-                  stroke => $self->decade_line_colour,
-                  stroke_width => 1);
-      $self->text(x => $x + 1, y => 12,
-                 'font-size' => $self->bar_height / 2)->cdata($curr_y);
+  while ( $curr_y > ( $self->left - $self->years ) ) {
+    unless ( $curr_y % 10 ) {
+      $self->line(
+        x1           => $x,
+        y1           => 0,
+        x2           => $x,
+        y2           => $self->height,
+        stroke       => $self->decade_line_colour,
+        stroke_width => 1
+      );
+      $self->text(
+        x           => $x + 1,
+        y           => 12,
+        'font-size' => $self->bar_height / 2
+      )->cdata($curr_y);
     }
     $curr_y--;
     $x += $self->pixels_per_year;
@@ -109,28 +120,30 @@ sub BUILD {
 
 sub person {
   my $self = shift;
-  my ($n, $name, $b, $d) = @_;
+  my ( $n, $name, $b, $d ) = @_;
 
   my $gen = gen($n);
 
   my $until = $d || $self->left;
 
   my $p = $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,
-            height => $self->bar_height,
-            fill => $self->colours->[$gen],
-            stroke => $self->bar_outline_colour,
-            'stroke-width' => 1
-          );
+    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,
+    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;
   $text .= ')';
-  $self->text(x => ($self->left - $until + 2) * $self->pixels_per_year,
-              y => ($self->height * y_pos($n)) + ($self->bar_height / 2) - 3,
-              'font-size' => $self->bar_height - 4)->cdata($text);
+  $self->text(
+    x => ( $self->left - $until + 2 ) * $self->pixels_per_year,
+    y => ( $self->height * y_pos($n) ) + ( $self->bar_height / 2 ) - 3,
+    'font-size' => $self->bar_height - 4
+  )->cdata($text);
 }
 
 # Get the generation number from an Ahnentafel number.
@@ -141,7 +154,7 @@ sub person {
 sub gen {
   die unless @_;
 
-  return int log($_[0])/log(2) + 1;
+  return int log( $_[0] ) / log(2) + 1;
 }
 
 # Calculate the y-position for a given person number.
@@ -150,20 +163,19 @@ sub gen {
 sub y_pos {
   die unless @_;
 
-  return num($_[0]) / den($_[0]);
+  return num( $_[0] ) / den( $_[0] );
 }
 
 sub num {
   my $num = shift;
 
-  return 2 * ($num - den($num)/2) + 1;
+  return 2 * ( $num - den($num) / 2 ) + 1;
 }
 
 sub den {
   my $num = shift;
 
-  return 2 ** (gen($num));
+  return 2**( gen($num) );
 }
 
-
 1;