Genealogy::Ahnentafel

[email protected] (Dave Cross) Tue, 23 Feb 2016 16:28:58 +0000
Newsgroups perl.gedcom
Message-ID <[email protected]>
Assuming that this list has the largest concentration of Perl  
programmers who are also genealogists, some of you might be interested  
in my recent release to CPAN of Genealogy::Ahnentafel.

   https://metacpan.org/pod/Genealogy::Ahnentafel

It's a module for handling Ahnentafel numbers. I wrote it because it  
was going to be useful for another side project that I'm working on  
(of which, hopefully, more later).

 From the synopsis:

     use Genealogy::Ahnentafel;

     my $ahnen = ahnen(1);
     say $ahnen->gen;         # 1
     say $ahnen->gender;      # Unknown
     say $ahnen->description; # Person

     my $ahnen = ahnen(2);
     say $ahnen->gen;         # 2
     say $ahnen->gender;      # Male
     say $ahnen->description; # Father

     my $ahnen = ahnen(5);
     say $ahnen->gen;         # 3
     say $ahnen->gender;      # Female
     say $ahnen->description; # Grandmother

I'd love to know if anyone finds it at all useful or if you can  
suggest any missing features.

Also, patches are (obviously) welcome at:

   https://github.com/davorg/genealogy-ahnentafel/

Cheers,

Dave...