use MooseX::Declare;
class Gitalist::Git::CollectionOfRepositories::FromDirectory
with Gitalist::Git::CollectionOfRepositories {
use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
use MooseX::Types::Path::Class qw/Dir/;
has repo_dir => (
isa => Dir,
is => 'ro',
required => 1,
coerce => 1,
);
method debug_string { 'repository directory ' . $self->repo_dir }
method BUILD {
# Make sure repo_dir is an absolute path so that
# ->contains() works correctly.
$self->repo_dir->resolve;
}
method _get_path_for_repository_name (NonEmptySimpleStr $name) {
my $path = $self->repo_dir->subdir($name)->resolve;
die "Directory traversal prohibited"
unless $self->repo_dir->contains($path);
return $path;
}
method _get_repo_from_name (NonEmptySimpleStr $name) {
return Git::Gitalist::Repository->new($self->_get_path_for_repository_name($name));
}
## Builders
method _build_repositories {
my $dh = $self->repo_dir->open || die "Could not open repo_dir";
my @ret;
while (my $dir_entry = $dh->read) {
# try to get a repository for each entry in repo_dir
eval {
my $p = $self->get_repository($dir_entry);
push @ret, $p;
};
}
return \@ret;
}
} # end class
__END__
=head1 NAME
Gitalist::Git::CollectionOfRepositories::FromDirectory - Model of a directory containing git repositories
=head1 SYNOPSIS
my $repo = Gitalist::Git::CollectionOfRepositories::FromDirectory->new( repo_dir => $Dir );
my $repository_list = $repo->repositories;
my $first_repository = $repository_list->[0];
my $named_repository = $repo->get_repository('Gitalist');
=head1 DESCRIPTION
This class provides a list of Repositories found in the given directory.
=head1 ATTRIBUTES
=head2 repo_dir (C<Path::Class::Dir>)
The filesystem root of the C<Repo>.
=head1 SEE ALSO
L<Gitalist::Git::CollectionOfRepositories>, L<Git::Gitalist::Repository>
=head1 AUTHORS
See L<Gitalist> for authors.
=head1 LICENSE
See L<Gitalist> for the license.
=cut