Odb/Object.xs: added data()

jacquesg · Mar 21, 2017 · 45a4b89 · 45a4b89
1 parent b84102b
commit 45a4b89
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 0 deletions.
diff --git a/lib/Git/Raw/Odb/Object.pm b/lib/Git/Raw/Odb/Object.pm
@@ -34,6 +34,10 @@ Get the object type.
 
 Get the object size.
 
+=head2 data( )
+
+Get the uncompressed, raw data without the leading header.
+
 =head1 LICENSE AND COPYRIGHT
 
 Copyright 2016 Jacques Germishuys.

diff --git a/t/02-commit.t b/t/02-commit.t
@@ -436,6 +436,8 @@ isa_ok $obj, "Git::Raw::Odb::Object";
 is $obj -> type, Git::Raw::Object -> COMMIT;
 is $obj -> id, $commit4 -> id;
 is $obj -> size, 186;
+my $data = $obj -> data;
+is length($data), 186;
 
 is $commit4 -> message, "fourth commit\n";
 is $commit4 -> summary, "fourth commit";

diff --git a/xs/Odb/Object.xs b/xs/Odb/Object.xs
@@ -27,6 +27,15 @@ type(self)
 
 	OUTPUT: RETVAL
 
+SV *
+data(self)
+	Odb_Object self
+
+	CODE:
+		RETVAL = newSVpv(git_odb_object_data(self), git_odb_object_size(self));
+
+	OUTPUT: RETVAL
+
 void
 DESTROY(self)
 	SV *self