Commit | Line | Data |
1ef8dc7d |
1 | # XXX Deprecated. |
2 | |
d7c9a32f |
3 | package Gitalist::Model::GPP; |
4 | |
5 | #use base 'Catalyst::Model::Adaptor'; |
6 | use Moose; |
7 | use namespace::autoclean; |
8 | |
9 | extends 'Catalyst::Model'; |
10 | |
11 | use Git::PurePerl; |
12 | |
13 | has git => ( |
14 | #isa => 'Git::PurePerl' |
15 | is => 'ro', |
16 | required => 1, |
17 | lazy => 1, |
18 | default => sub { |
19 | my($self) = @_; |
20 | return Git::PurePerl->new( |
21 | directory => $self->project_path |
22 | ); |
23 | }, |
24 | ); |
25 | |
26 | has project => ( |
27 | is => 'rw', |
28 | isa => 'Str', |
29 | ); |
30 | has project_path => ( |
31 | is => 'rw', |
32 | ); |
33 | |
34 | |
35 | sub ACCEPT_CONTEXT { |
36 | my ( $self, $c ) = @_; |
37 | $self->project( $c->req->param('p') ); |
38 | $self->project_path( $c->model('Git')->project_dir( $self->project ) ); |
39 | # XXX Or just return a new Git:PP object? |
40 | return $self; |
41 | } |
42 | |
43 | sub get_object { |
44 | $_[0]->git->get_object($_[1]); |
45 | } |
46 | |
47 | 1; |