Rename CollectionOfProjects to CollectionOfRepositories.

[catagits/Gitalist.git] / lib / Gitalist / Git / CollectionOfRepositories.pm

diff --git a/lib/Gitalist/Git/CollectionOfRepositories.pm b/lib/Gitalist/Git/CollectionOfRepositories.pm
new file mode 100644 (file)
index 0000000..c45a5d7
--- /dev/null
+++ b/lib/Gitalist/Git/CollectionOfRepositories.pm
@@ -0,0 +1,35 @@
+use MooseX::Declare;
+
+role Gitalist::Git::CollectionOfRepositories {
+    use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
+    use MooseX::Types::Moose qw/ArrayRef/;
+    use Moose::Autobox;
+    use aliased 'Gitalist::Git::Repository';
+
+    has projects => (
+        is => 'ro',
+        isa => ArrayRef['Gitalist::Git::Repository'],
+        required => 1,
+        lazy_build => 1,
+    );
+    method get_project (NonEmptySimpleStr $name) {
+        my $path = $self->_get_path_for_project_name($name);
+        die "Not a valid git repository."
+            unless $self->_is_git_repo($path);
+        return Repository->new( $path );
+    }
+    # Determine whether a given directory is a git repo.
+    method _is_git_repo ($dir) {
+        return -f $dir->file('HEAD') || -f $dir->file('.git', 'HEAD');
+    }
+    requires qw/
+        _build_projects
+        _get_path_for_project_name
+    /;
+
+    around _build_projects {
+        [sort { $a->name cmp $b->name } $self->$orig->flatten];
+    }
+}
+
+1;