view release on metacpan or  search on metacpan

lib/Git/Annex.pm  view on Meta::CPAN

    } else {
        close STDERR;
        my $output;
        try {
            $output = capturex "git", "-C", $toplevel, "rev-parse",
              "--is-inside-work-tree";
        };
        exit($output and $output =~ /true/);
    }

    bless { toplevel => $toplevel } => $class;
}


sub toplevel { shift->{toplevel} }


sub git {
    my $self = shift;
    $self->{git} //= Git::Wrapper->new($self->toplevel);
}