lib/Gitalist/Git/CollectionOfRepositories/FromDirectoryRecursive.pm

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