Catalyst::Helper::Model::SVN - Helper for SVN Models

Catalyst-Model-SVN documentation Contained in the Catalyst-Model-SVN distribution.

Index

Code Index:

NAME

Top

Catalyst::Helper::Model::SVN - Helper for SVN Models

SYNOPSIS

Top

    script/create.pl model <newclass> SVN <repository> [<revision>]
    script/create.pl model SVN SVN http://xample.com/svn/repos HEAD

DESCRIPTION

Top

A Helper for creating models to browse Subversion repositories.

METHODS

Top

mk_compclass

Makes a SVN Model class for you.

mk_comptest

Makes a SVN Model test for you.

SEE ALSO

Top

Catalyst::Manual, Catalyst::Helper, Catalyst::Model::SVN

AUTHOR

Top

    Christopher H. Laco
    CPAN ID: CLACO
    claco@chrislaco.com
    http://today.icantfocus.com/blog/
Catalyst-Model-SVN documentation Contained in the Catalyst-Model-SVN distribution. 
# $Id: /mirror/claco/Catalyst-Model-SVN/branches/devel-0.07-t0m/lib/Catalyst/Helper/Model/SVN.pm 695 2005-11-02T00:59:12.554101Z claco  $
package Catalyst::Helper::Model::SVN;
use strict;
use warnings;

sub mk_compclass {
    my ($self, $helper, $repository, $revision) = @_;
    my $file = $helper->{file};
    $helper->{'repository'}  = $repository  || die 'No repository specified!';
    $helper->{'revision'} = $revision || 'HEAD';

    $helper->render_file('model', $file);
};

sub mk_comptest {
    my ($self, $helper) = @_;
    my $test = $helper->{'test'};

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

1;
__DATA__
__model__
package [% class %];
use strict;
use warnings;
use base 'Catalyst::Model::SVN';

__PACKAGE__->config(
    repository => '[% repository %]',
    revision => '[% revision %]'
);

1;
__test__
use Test::More tests => 2;
use strict;
use warnings;

use_ok(Catalyst::Test, '[% app %]');
use_ok('[% class %]');
__END__