view release on metacpan or  search on metacpan

GedNav/Menu.pm  view on Meta::CPAN

package GedNav::Menu;

use strict;

use File::Basename;

# Define external interface
use Exporter;
use vars qw( @ISA @EXPORT @EXPORT_OK $VERSION );
@ISA = qw( Exporter );
($VERSION) = ('$Revision: 1.1.1.1 $' =~ / ([\d\.]+) \$$/);

MANIFEST  view on Meta::CPAN

Changes
GedNav.pm
GedNav/Event.pm
GedNav/Family.pm
GedNav/Individual.pm
GedNav/Menu.pm
GedNav/Source.pm
MANIFEST
Makefile.PL
README
outline.pl
royal92.ged
test.pl
META.yml                                 Module YAML meta-data (added by MakeMaker)
META.json                                Module JSON meta-data (added by MakeMaker)

outline.pl  view on Meta::CPAN

#!/usr/local/bin/perl

use CGI;
use Data::Dumper;
use File::Basename;
use Roman;

use strict;

use GedNav::Menu;
use GedNav;

##  This script is provided as an example.
##  It doesn't wrap lines or paginate, but you get what you pay for...  :)

my $filename = shift || 'royal92';
my $indicode = shift || 'I52';

my $dataset = new GedNav($filename);