Raw.xs: Added features()

Raw.xs

@@ -1489,6 +1489,25 @@ MODULE = Git::Raw			PACKAGE = Git::Raw
 BOOT:
 	git_threads_init();
 
+void
+features(class)
+	SV *class
+
+	PREINIT:
+		int features;
+
+	PPCODE:
+		features = git_libgit2_features();
+
+		mXPUSHs(newSVpv("threads", 0));
+		mXPUSHs(newSViv((features & GIT_FEATURE_THREADS) ? 1 : 0));
+		mXPUSHs(newSVpv("https", 0));
+		mXPUSHs(newSViv((features & GIT_FEATURE_HTTPS) ? 1 : 0));
+		mXPUSHs(newSVpv("ssh", 0));
+		mXPUSHs(newSViv((features & GIT_FEATURE_SSH) ? 1 : 0));
+
+		XSRETURN(6);
+
 INCLUDE: xs/Blame.xs
 INCLUDE: xs/Blame/Hunk.xs
 INCLUDE: xs/Blob.xs

lib/Git/Raw.pm

@@ -33,6 +33,11 @@ API.
 B<WARNING>: The API of this module is unstable and may change without warning
 (any change will be appropriately documented in the changelog).
 
+=head2 features( )
+
+List of (optional) compiled in features. Git::Raw may be built with support
+for threads, HTTPS and SSH.
+
 =head1 AUTHOR
 
 Alessandro Ghedini <alexbio@cpan.org>

t/23-diagnostics.t

@@ -0,0 +1,17 @@
+#!perl
+
+use Test::More;
+
+use Git::Raw;
+
+my %features;
+
+ok (eval { %features = Git::Raw -> features });
+is scalar(keys %features), 3;
+
+diag("Build info:");
+diag("Built with threads support: $features{threads}");
+diag("Built with HTTPS support: $features{https}");
+diag("Built with SSH support: $features{ssh}");
+
+done_testing;