Help language development. Donate to The Perl Foundation

LibGit2 cpan:CTILMES last updated on 2018-03-28


LibGit2 -- Direct access to Git via libgit2 library


This is a WORK IN PROGRESS. The tests are under construction and many of them probably won't work on your computer..

This module provides Perl 6 access to libgit2

That library must be installed, and this module will be subject to the features enabled during the build/install of that library.

This module is EXPERIMENTAL. In particular, I'm still trying to refine the Perl 6 API to be as friendly as possible, and also as Perl-ish as possible. I've converted some callbacks into Channels, and some options into :pairs, etc. If you see anything that could be done better, PLEASE raise an issue.

There are also still some unimplemented corners, so if you see anything you can't do, raise an issue and we can try to add more libgit2 bindings. Also some functionality that looks like it should work doesn't seem to... Debugging, test improvements, etc. are all appreciated -- feel free to ask questions or offer patches!

For now, there are also some 64-bit assumptions. If there is demand for a 32-bit version, there are ways to adapt it I can work with someone who wants to tackle that. It also doesn't currently support Windows, but could probably do so if someone wants to port it. Patches welcome!

Global Initialization

Always start with use LibGit2 rather than using individual Git::* modules. That pulls in the rest of the modules, and also initializes the library as a whole.

Query some global information about the library:

use LibGit2;
say LibGit2.version;
say LibGit2.features;



If libgit2 is compiled with tracing support, you can enable that tracing from Perl6.

LibGit2.trace('debug');  # none,fatal,error,warn,info,debug,trace

The default trace callback just prints the message and its level to STDOUT. You can also supply a callback:

use NativeCall;
sub my-trace($level, $message) { say "$level $message" }

LibGit2.trace('info', &my-trace);


my $repo = Git::Repository.init('/my/dir');

my $repo = Git::Repository.init('/my/dir', :bare);

my $repo = Git::Repository.init('/my/dir', :mkpath,
description => 'my description', ...);

See Git::Repository::InitOptions for the complete init option list.


my $repo = Git::Repository.clone('', '/my/dir');

my $repo = Git::Repository.clone('', '/my/dir', :bare);

See Git::Clone::Options for the complete clone option list.


my $repo ='/my/dir');

my $repo ='/my/dir', :bare);

my $repo ='/my/dir/some/subdir', :search);

See Git::Repository::OpenOptions for the complete open options list.


From a Git::Repository, you can use the .config method to access configuration information.

my $config = $repo.config;


Get status for a specific file/path:

my $status = $repo.status-file('afile');

say $status.status;
say $status.path;
say "new in workdir" if $;

Other queries on status: is-current is-index-new is-index-modified is-index-deleted is-index-renamed is-index-typechange is-workdir-new is-workdir-modified is-workdir-deleted is-workdir-typechange is-workdir-renamed is-workdir-unreadable is-ignored is-conflicted

Query for status of everything, or specific pathes/globs:

for $repo.status-each {
    say 'new' if .is-workdir-new;

say .path for $repo.status-each('*.p6', :include-untracked);

See Git::Status::Options for more information on status options.


Retrieve an object representing the repository's index with .index, then you can add files to the index, either a specific file .add-bypath or a group of files or all files with .add-all, or just update with .update-all.

my $repo.index;
$index.add-bypath('afile.p6');  # Even works on ignored files
$index.add-all('*.p6');         # Add any new files or update any changes
$index.update-all('*.t');       # Just update, don't add new files

Remove from index with .remove-bypath or .remove-all.

The index is maintained in memory. To persist the changes to disk, always $index.write after completeing changes. Use .read(:force) to discard any changes and re-read index from disk.

See Git::Index for more information on options.

After adding new or changed files to the index, create a Git::Tree representing the changes with .write-tree which returns a Git::Oid for the new tree.

my $tree-id = $index.write-tree;


my $tree = $repo.tree-lookup($tree-id);


my $sig = $repo.signature-default;  # Fails if, not set
my $sig = Git::Signature('Full Name <');
my $sig = Git::Signature('Full Name', '');
my $sig = Git::Signature('Full Name', '','...'));


A commit requires several components:

See ... for more information about commits.


Look up references by name with:

 my $ref = $repo.reference-lookup('/refs/heads/master');

or by 'short name' (by git precedence rules) with:

my $ref = $repo.ref('master');

They return Git::Reference.

You can get list of names references:

.say for $repo.reference-list;

or a list of full references:

.name.say for $repo.references;  # Say each full name


.short.say for $repo.references;  # Say each short name


or limit with a glob:

.name.say for $repo.references('refs/tags/*')

You can also get the Oid from a reference name:

my $oid = $'HEAD');