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_repo_from_name (NonEmptySimpleStr $name) {
  31       my $repo = first { $_->name eq $name } $self->repositories->flatten
  32         or return;
  33       return $repo;
  34     }
  35
  36     method _get_repo_name (NonEmptySimpleStr $name) {
  37         # strip off the repo_dir part from a path
  38         return Path::Class::Dir->new($name)->relative($self->repo_dir)->stringify;
  39     }
  40
  41     ## Builders
  42     method _build_repositories {
  43       return [
  44         map { Gitalist::Git::Repository->new($_, $self->_get_repo_name("$_")) } $self->_find_repos( $self->repo_dir )
  45       ];
  46     }
  47 }                         # end class
  48
  49 __END__
  50
  51 =head1 NAME
  52
  53 Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive - Model of recursive directories containing git repositories
  54
  55 =head1 SYNOPSIS
  56
  57     my $repo = Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive->new( repo_dir => $Dir );
  58     my $repository_list = $repo->repositories;
  59     my $first_repository = $repository_list->[0];
  60     my $named_repository = $repo->get_repository('Gitalist');
  61
  62 =head1 DESCRIPTION
  63
  64 This class provides a list of Repositories recursively found in the given directory.
  65
  66 =head1 ATTRIBUTES
  67
  68 =head2 repo_dir (C<Path::Class::Dir>)
  69
  70 The filesystem root of the C<Repo>.
  71
  72 =head1 SEE ALSO
  73
  74 L<Gitalist::Git::CollectionOfRepositories>, L<Gitalist::Git::Repository>
  75
  76 =head1 AUTHORS
  77
  78 See L<Gitalist> for authors.
  79
  80 =head1 LICENSE
  81
  82 See L<Gitalist> for the license.
  83
  84 =cut