lib/Gitalist/Model/GPP.pm

   1 # XXX Deprecated.
   2
   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;