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...


Reply via email to