3 package Gitalist::Model::GPP;
5 #use base 'Catalyst::Model::Adaptor';
7 use MooseX::Types::Moose qw/Str/;
8 use namespace::autoclean;
10 extends 'Catalyst::Model';
15 #isa => 'Git::PurePerl'
21 return Git::PurePerl->new(
22 directory => $self->project_path
37 my ( $self, $c ) = @_;
38 $self->project( $c->req->param('p') );
39 $self->project_path( $c->model('Git')->project_dir( $self->project ) );
40 # XXX Or just return a new Git:PP object?
45 $_[0]->git->get_object($_[1]);