| Catalyst-Model-Gedcom documentation | 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 | Contained in the Catalyst-Model-Gedcom distribution. |
package Catalyst::Model::Gedcom; use base qw( Gedcom ); use strict; use warnings; our $VERSION = '0.05';
sub COMPONENT { my ( $class, $c, $config ) = @_; return $class->new( %$config ); }
1;