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 MooseX::Types::Moose qw/Str/;
   8 use namespace::autoclean;
   9
  10 extends 'Catalyst::Model';
  11
  12 use Git::PurePerl;
  13
  14 has git => (
  15  #isa => 'Git::PurePerl'
  16   is       => 'ro',
  17   required => 1,
  18   lazy     => 1,
  19   default  => sub {
  20     my($self) = @_;
  21     return Git::PurePerl->new(
  22       directory => $self->project_path
  23     );
  24   },
  25 );
  26
  27 has project => (
  28   is => 'rw',
  29   isa => Str,
  30 );
  31 has project_path => (
  32   is => 'rw',
  33 );
  34
  35
  36 sub ACCEPT_CONTEXT {
  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?
  41     return $self;
  42 }
  43
  44 sub get_object {
  45   $_[0]->git->get_object($_[1]);
  46 }
  47
  48 1;