| Catalyst-Model-Gedcom documentation | view source | Contained in the Catalyst-Model-Gedcom distribution. |
Catalyst::Model::Gedcom - Gedcom Model Class
# lib/MyApp/Model/Gedcom.pm
package MyApp::Model::Gedcom;
use base qw( Catalyst::Model::Gedcom );
__PACKAGE__->config(
gedcom_file => 'root/my.ged',
read_only => 1
);
1;
my $gedcom = $c->model( 'Gedcom' );
my @individuals = $gedcom->individuals;
This is a model class to connect Gedcom files to Catalyst.
passes your config options to Gedcom's new method.
Brian Cassidy <bricas@cpan.org>
Copyright 2005-2009 by Brian Cassidy
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Catalyst-Model-Gedcom documentation | view source | Contained in the Catalyst-Model-Gedcom distribution. |