lazy_build => 1,
);
- method BUILD { $self->projects() }
-
=head1 METHODS
method project (NonEmptySimpleStr $project) {
my $path = $self->repo_dir->subdir($project);
die "Not a valid Project" unless $self->_is_git_repo($path);
- return Project->new(
- name => $project,
- path => $self->repo_dir->subdir($project),
- );
+ return Project->new( $self->repo_dir->subdir($project) );
}
method _is_git_repo ($dir) {
return -f $dir->file('HEAD') || -f $dir->file('.git', 'HEAD');
}
+} # end class
+__END__
=head1 SEE ALSO
L<Gitalist::Git::Project>
-=head1 AUTHORS AND COPYRIGHT
+=head1 AUTHORS
- Catalyst application:
- (C) 2009 Venda Ltd and Dan Brook <dbrook@venda.com>
-
- Original gitweb.cgi from which this was derived:
- (C) 2005-2006, Kay Sievers <kay.sievers@vrfy.org>
- (C) 2005, Christian Gierke
+See L<Gitalist> for authors.
=head1 LICENSE
-FIXME - Is this going to be GPLv2 as per gitweb? If so this is broken..
-
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
+See L<Gitalist> for the license.
=cut
-
-
-} # end class