File Coverage

blib/lib/Catalyst/Model/Gedcom.pm

Criterion	Covered	Total	%
statement	9	11	81.8
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	16	81.2

package Catalyst::Model::Gedcom;

use base qw( Gedcom );

use strict;
use warnings;

our $VERSION = '0.05';

=head1 NAME

Catalyst::Model::Gedcom - Gedcom Model Class

=head1 SYNOPSIS

    # 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;

=head1 DESCRIPTION

This is a model class to connect C files to C.

=head1 METHODS

=head2 COMPONENT( )

passes your config options to C's C method.

=cut

sub COMPONENT {
    my ( $class, $c, $config ) = @_;
    return $class->new( %$config );
}

=head1 AUTHOR

Brian Cassidy [e-mail]

=head1 COPYRIGHT AND LICENSE

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.

=head1 SEE ALSO

=over 4

=item * L

=item * L

=back

=cut

1;