* zts/pod-cleanup:
Move all POD below the code, for ::Repo and ::Project.
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) );