3 use namespace::autoclean;
5 use Catalyst::Runtime 5.80;
14 our $VERSION = '0.01';
16 # Bring in the libified gitweb.cgi.
21 default_view => 'Default',
24 # Start the application
27 around uri_for => sub {
28 my ($orig, $c) = (shift, shift);
29 my $params = Catalyst::Utils::merge_hashes(
30 { p => $c->model('Git')->project },
31 ref($_[-1]) eq 'HASH' ? pop @_ : {}
33 (my $uri = $c->$orig(@_, $params))
40 Gitalist - Catalyst based application
44 script/gitalist_server.pl
48 [enter your description here]
52 L<Gitalist::Controller::Root>, L<Catalyst>
54 =head1 AUTHORS AND COPYRIGHT
57 (C) 2009 Venda Ltd and Dan Brook <dbrook@venda.com>
59 Original gitweb.cgi from which this was derived:
60 (C) 2005-2006, Kay Sievers <kay.sievers@vrfy.org>
61 (C) 2005, Christian Gierke
65 FIXME - Is this going to be GPLv2 as per gitweb? If so this is broken..
67 This library is free software. You can redistribute it and/or modify
68 it under the same terms as Perl itself.