File Coverage

blib/lib/GitMeta/SshDir.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch	0	2	0.0
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	20	34	58.8

###########################################
package GitMeta::SshDir;
###########################################
# 2010, Mike Schilli
###########################################
use strict;
use warnings;
use base qw(GitMeta);
use Sysadm::Install qw(:all);
use Log::Log4perl qw(:easy);

###########################################
sub expand {
###########################################
  my($self) = @_;

  my $ssh = "ssh";
  $ssh = $ENV{GIT_SSH} if defined $ENV{GIT_SSH};

  $self->param_check("host", "dir");

  INFO "Retrieving repos ",
       "from $self->{host}";

  my($stdout) = tap $ssh, $self->{host},
     "ls", $self->{dir};

  my @repos = ();

  while( $stdout =~ /(.*)\n/g ) {
      push @repos,
        "$self->{host}:$self->{dir}/$1";
  }

  return @repos;
}

1;

__END__