lib/Gitalist/URIStructure/Repository.pm

   1 package Gitalist::URIStructure::Repository;
   2 use MooseX::MethodAttributes::Role;
   3 use Try::Tiny qw/try catch/;
   4 use namespace::autoclean;
   5
   6 requires 'base';
   7
   8 with qw/
   9     Gitalist::URIStructure::WithLog
  10 /;
  11
  12 sub find : Chained('base') PathPart('') CaptureArgs(1) {
  13     my ($self, $c, $repos_name) = @_;
  14     # XXX FIXME - This should be in the repository fragment controller, and the repository
  15     #             controller should just check has_repository
  16     try {
  17         my $repos = $c->model()->get_repository($repos_name);
  18         $c->stash(
  19             Repository => $repos,
  20             HEAD => $repos->head_hash,
  21             data => $repos,
  22         );
  23     }
  24     catch {
  25         $c->detach('/error_404');
  26     };
  27 }
  28
  29 before 'log' => sub {
  30     my ($self, $c) = @_;
  31     $c->stash->{Commit} = $c->stash->{Repository}->get_object($c->stash->{Repository}->head_hash);
  32 };
  33
  34 sub object : Chained('find') PathPart('') Args(1) {
  35     my ($self, $c, $sha1) = @_;
  36
  37     my $repo = $c->stash->{Repository};
  38     my $obj  = $c->stash->{Commit} = $repo->get_object($sha1);
  39     my($act) = (ref($obj) || '') =~ /::(\w+)$/;
  40
  41     $c->res->redirect($c->uri_for_action("/ref/\L$act", [$repo->name, $obj->sha1]));
  42     $c->res->status(301);
  43
  44 }
  45
  46 sub summary : Chained('find') PathPart('') Args() {}
  47
  48 sub heads : Chained('find') Args() {}
  49
  50 sub tags : Chained('find') Args() {}
  51
  52 1;