File Coverage

blib/lib/Catalyst/Helper/Model/Gedcom.pm

Criterion	Covered	Total	%
statement	6	13	46.1
branch	0	2	0.0
condition			n/a
subroutine	2	4	50.0
pod	2	2	100.0
total	10	21	47.6

package Catalyst::Helper::Model::Gedcom;

use strict;
use warnings;

our $VERSION = '0.05';

=head1 NAME

Catalyst::Helper::Model::Gedcom - Helper for Gedcom models

=head1 SYNOPSIS

  script/myapp_create.pl model Gedcom Gedcom myfamily.ged

=head1 DESCRIPTION

Helper for the C Gedcom model.

=head1 METHODS

=head2 mk_compclass

Makes the Gedcom model class.

=cut

sub mk_compclass {
    my ( $self, $helper, $filename ) = @_;

    die( 'No filename specified' ) unless $filename;

    $helper->{ filename } = $filename;
    $helper->render_file( 'modelclass', $helper->{ file } );

    return 1;
}

=head2 mk_comptest

Makes tests for the Gedcom model.

=cut

sub mk_comptest {
    my ( $self, $helper ) = @_;

    $helper->render_file( 'modeltest', $helper->{ test } );
}

=head1 SEE ALSO

L, L, L

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

=cut

1;

__DATA__