From: Zachary Stevens <zts@cryptocracy.com>
Date: Fri, 6 Nov 2009 21:00:38 +0000 (+0000)
Subject: Gave Repo a method to return a Project.
X-Git-Tag: 0.000000_01~86
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba033c360a8d3d88beb343a86e519fc59b6e78b7;p=catagits%2FGitalist.git

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
--- 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
--- 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');