Gave Repo a method to return a Project.

diff --git a/lib/Gitalist/Git/Repo.pm b/lib/Gitalist/Git/Repo.pm
index 6470cbf..db035a5 100644 (file)
--- a/lib/Gitalist/Git/Repo.pm
+++ b/lib/Gitalist/Git/Repo.pm
@@ -8,6 +8,15 @@ class Gitalist::Git::Repo {
                       is => 'ro',
                       required => 1 );
 
+    method project (NonEmptySimpleStr $project) {
+        my $pd = $self->dir_from_project_name($project);
+        return Gitalist::Git::Project->new(
+            name => $project,
+            path => $pd,
+        );
+    }
+
+
 =head2 _is_git_repo
 
 Determine whether a given directory (as a L<Path::Class::Dir> object) is a

diff --git a/t/git/repo.t b/t/git/repo.t
index a46cf8e..274ac23 100644 (file)
--- a/t/git/repo.t
+++ b/t/git/repo.t
@@ -15,3 +15,6 @@ is($repo->repo_dir, $repo_dir, "repo->repo_dir is correct" );
 
 my $project_list = $repo->list_projects;
 isa_ok(@$project_list[0], 'Gitalist::Git::Project');
+
+my $project = $repo->project('repo1');
+isa_ok($project, 'Gitalist::Git::Project');