Merge remote branch 'zts/pod-cleanup'
Tomas Doran [Mon, 7 Dec 2009 22:47:54 +0000 (22:47 +0000)]
* zts/pod-cleanup:
  Move all POD below the code, for ::Repo and ::Project.

1  2 
lib/Gitalist/Git/Repo.pm

@@@ -55,20 -20,9 +20,11 @@@ class Gitalist::Git::Repo 
          lazy_build => 1,
      );
  
- =head1 METHODS
- =head2 project
- Returns a L<Gitalist::Git::Project> for the specified project
- name.
- =cut
+     ## Public methods
      method project (NonEmptySimpleStr $project) {
          my $path = $self->repo_dir->subdir($project)->resolve;
 +        $self->repo_dir->resolve; # FIXME - This needs to be called, or if repo_dir contains .., it'll explode below!
 +                                  #         This is a Path::Class::Dir bug, right?
          die "Directory traversal prohibited" unless $self->repo_dir->contains($path);
          die "Not a valid Project" unless $self->_is_git_repo($path);
          return Project->new( $self->repo_dir->subdir($project) );