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',
22 default_model => 'Git', # Yes, we are going to be changing this.
25 # Start the application
28 around uri_for => sub {
29 my ($orig, $c) = (shift, shift);
30 my $params = Catalyst::Utils::merge_hashes(
31 { p => $c->model('Git')->project },
32 ref($_[-1]) eq 'HASH' ? pop @_ : {}
34 (my $uri = $c->$orig(@_, $params))
41 Gitalist - Catalyst based application
45 script/gitalist_server.pl
49 [enter your description here]
53 L<Gitalist::Controller::Root>, L<Catalyst>
55 =head1 AUTHORS AND COPYRIGHT
58 (C) 2009 Venda Ltd and Dan Brook <dbrook@venda.com>
60 Original gitweb.cgi from which this was derived:
61 (C) 2005-2006, Kay Sievers <kay.sievers@vrfy.org>
62 (C) 2005, Christian Gierke
66 FIXME - Is this going to be GPLv2 as per gitweb? If so this is broken..
68 This library is free software. You can redistribute it and/or modify
69 it under the same terms as Perl itself.