use Fcntl qw(:flock);

# Clone or update a branch of a repository into our SCM cache.
sub _cloneRepo {
    my ($self, $uri, $branch, $deepClone) = @_;

sub _parseValue {
    my ($value) = @_;
    (my $uri, my $branch, my $deepClone) = split ' ', $value;
    $branch = defined $branch ? $branch : "master";
    return ($uri, $branch, $deepClone);
}
sub fetchInput {
    my ($self, $type, $name, $value) = @_;
    return undef if $type ne "git";
    my ($uri, $branch, $deepClone) = _parseValue($value);

    # Clone or update a branch of the repository into our SCM cache.

    open(my $lock, ">", "$clonePath.lock") or die;
    flock($lock, LOCK_EX) or die;

    return $clonePath;
}
sub _parseValue {
    my ($value) = @_;
    (my $uri, my $branch, my $deepClone) = split ' ', $value;
    $branch = defined $branch ? $branch : "master";
    return ($uri, $branch, $deepClone);
}
sub fetchInput {
    my ($self, $type, $name, $value) = @_;
    return undef if $type ne "git";

    my ($uri, $branch, $deepClone) = _parseValue($value);
    my $clonePath = $self->_cloneRepo($uri, $branch, $deepClone);

use Fcntl qw(:flock);

    open(my $lock, ">", "$clonePath.lock") or die;
    flock($lock, LOCK_EX) or die;