3 BEGIN { require 5.008006; }
4 use Catalyst::Runtime 5.80;
5 use namespace::autoclean;
16 our $VERSION = '0.000000_01';
17 $VERSION = eval $VERSION;
21 default_view => 'Default',
22 default_model => 'GitRepos',
27 around uri_for => sub {
28 my ($orig, $c) = (shift, shift);
29 my $project_name = $c->stash->{'Project'} && $c->stash->{'Project'}->name;
30 my $hash = ref($_[-1]) eq 'HASH' ? pop @_ : {};
31 my $params = Catalyst::Utils::merge_hashes(
32 { p => $hash->{p} || $project_name },
35 delete $params->{p} unless defined $params->{p} && length $params->{p};
36 (my $uri = $c->$orig(@_, $params))
47 Gitalist - A modern git web viewer
51 script/gitalist_server.pl
55 As Gitalist follows the usual Perl module format the usual approach
56 for installation should work e.g
63 If you're running a git checkout of Gitalist then you'll additionally
64 need the author modules.
68 Gitalist is a web frontend for git repositories based on gitweb.cgi
69 and backed by Catalyst.
73 This project started off as an attempt to port gitweb.cgi to a
74 Catalyst app in a piecemeal fashion. As it turns out, thanks largely
75 to Florian Ragwitz's earlier effort, it was easier to use gitweb.cgi
76 as a template for building a new Catalyst application.
80 L<Gitalist::Controller::Root>
82 L<Gitalist::Git::Project>
86 =head1 AUTHORS AND COPYRIGHT
89 (C) 2009 Venda Ltd and Dan Brook <broq@cpan.org>
90 (C) 2009, Tom Doran <bobtfish@bobtfish.net>
91 (C) 2009, Zac Stevens <zts@cryptocracy.com>
93 Original gitweb.cgi from which this was derived:
94 (C) 2005-2006, Kay Sievers <kay.sievers@vrfy.org>
95 (C) 2005, Christian Gierke
97 Model based on http://github.com/rafl/gitweb
98 (C) 2008, Florian Ragwitz
102 Licensed under GNU GPL v2