3 role Gitalist::Git::CollectionOfRepositories
4 with Gitalist::Git::Serializable
5 with Gitalist::Git::CollectionOfRepositories::Role::Context {
6 use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
7 use MooseX::Types::Moose qw/ArrayRef/;
9 use aliased 'Gitalist::Git::Repository';
11 requires 'debug_string';
15 isa => ArrayRef['Gitalist::Git::Repository'],
25 method get_repository (NonEmptySimpleStr $name) {
26 my $repo = $self->_get_repo_from_name($name);
27 confess("Couldn't get_repository '$name' - not a valid git repository.")
28 unless $self->_is_git_repo($repo->path);
32 # Determine whether a given directory is a git repo.
33 # http://www.kernel.org/pub/software/scm/git/docs/gitrepository-layout.html
34 method _is_git_repo ($dir) {
35 my $has_head = -f $dir->file('HEAD') || -f $dir->file('.git', 'HEAD');
36 my $eok_file = $self->export_ok
38 my $is_visible = $eok_file
39 && (-f $dir->file($eok_file) || -f $dir->file('.git', $eok_file));
41 return $has_head && $is_visible;
48 around _build_repositories {
49 [sort { $a->name cmp $b->name } $self->$orig->flatten];
57 Gitalist::Git::CollectionOfRepositories - Interface and partial implementation of a collection of git repositories
61 package My::Example::CollectionOfRepositories;
63 use namespace::autoclean;
65 with 'Gitalist::Git::CollectionOfRepositories';
67 sub _build_repositories {
69 [ $self->get_repository('Gitalist') ];
71 sub _get_path_for_repository_name {
72 my ($self, $name) = @_;
73 '/var/example/' . $name . '.git';
76 my $collection = My::Example::CollectionOfRepositories->new
77 my $repository_list = $collection->repositories;
78 my $only_repository = $repository_list->[0];
79 my $named_repository = $repo->get_repository('Gitalist');
83 This role provides an abstraction for a list of Repository directories.
89 An array of all L<Gitalist::Git::Repository>s.
93 =head2 get_repository (Str $name)
95 Returns a L<Gitalist::Git::Repository> for the given name.
96 If C<$name> is not a valid git repository an exception will be thrown.
100 L<Gitalist::Git::CollectionOfRepositories::FromListOfDirectories>,
101 L<Gitalist::Git::CollectionOfRepositories::FromDirectory>,
102 L<Gitalist::Git::Repository>.
106 See L<Gitalist> for authors.
110 See L<Gitalist> for the license.