lib/Gitalist/Git/CollectionOfRepositories/FromDirectoryRecursive.pm

   1 use MooseX::Declare;
   2
   3 class Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive
   4     with Gitalist::Git::CollectionOfRepositories {
   5
   6     use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
   7     use MooseX::Types::Path::Class qw/Dir/;
   8
   9     use Moose::Autobox;
  10     use List::Util 'first';
  11
  12     has repo_dir => (
  13         isa => Dir,
  14         is => 'ro',
  15         required => 1,
  16         coerce => 1,
  17     );
  18
  19     method BUILD {
  20       # Make sure repo_dir is an absolute path so that ->contains() works correctly.
  21       $self->repo_dir->resolve;
  22     }
  23
  24     method _find_repos(Dir $dir) {
  25       return map {
  26         $self->_is_git_repo($_) ? $_ : $self->_find_repos($_)
  27       } grep $_->is_dir, $dir->children;
  28     }
  29
  30     method _get_path_for_repository_name (NonEmptySimpleStr $name) {
  31       my $repo = first { $_->name eq $name } $self->repositories->flatten
  32         or return;
  33       return $repo->path;
  34     }
  35
  36     ## Builders
  37     method _build_repositories {
  38       return [
  39         map Gitalist::Git::Repository->new($_), $self->_find_repos( $self->repo_dir )
  40       ];
  41     }
  42 }                         # end class
  43
  44 __END__
  45
  46 =head1 NAME
  47
  48 Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive - Model of recursive directories containing git repositories
  49
  50 =head1 SYNOPSIS
  51
  52     my $repo = Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive->new( repo_dir => $Dir );
  53     my $repository_list = $repo->repositories;
  54     my $first_repository = $repository_list->[0];
  55     my $named_repository = $repo->get_repository('Gitalist');
  56
  57 =head1 DESCRIPTION
  58
  59 This class provides a list of Repositories recursively found in the given directory.
  60
  61 =head1 ATTRIBUTES
  62
  63 =head2 repo_dir (C<Path::Class::Dir>)
  64
  65 The filesystem root of the C<Repo>.
  66
  67 =head1 SEE ALSO
  68
  69 L<Gitalist::Git::CollectionOfRepositories>, L<Gitalist::Git::Repository>
  70
  71 =head1 AUTHORS
  72
  73 See L<Gitalist> for authors.
  74
  75 =head1 LICENSE
  76
  77 See L<Gitalist> for the license.
  78
  79 =cut