Add built local::lib

[catagits/Gitalist.git] / local-lib5 / lib / perl5 / Git / PurePerl / Pack / WithIndex.pm

diff --git a/local-lib5/lib/perl5/Git/PurePerl/Pack/WithIndex.pm b/local-lib5/lib/perl5/Git/PurePerl/Pack/WithIndex.pm
new file mode 100644 (file)
index 0000000..67b25db
--- /dev/null
+++ b/local-lib5/lib/perl5/Git/PurePerl/Pack/WithIndex.pm
@@ -0,0 +1,53 @@
+package Git::PurePerl::Pack::WithIndex;
+use Moose;
+use MooseX::StrictConstructor;
+use namespace::autoclean;
+
+extends 'Git::PurePerl::Pack';
+
+has 'index_filename' =>
+    ( is => 'rw', isa => 'Path::Class::File', required => 0, coerce => 1 );
+has 'index' =>
+    ( is => 'rw', isa => 'Git::PurePerl::PackIndex', required => 0 );
+
+sub BUILD {
+    my $self = shift;
+    my $index_filename = $self->filename;
+    $index_filename =~ s/\.pack/.idx/;
+    $self->index_filename($index_filename);
+
+    my $index_fh = IO::File->new($index_filename) || confess($!);
+    $index_fh->binmode();
+    $index_fh->read( my $signature, 4 );
+    $index_fh->read( my $version,   4 );
+    $version = unpack( 'N', $version );
+    $index_fh->close;
+
+    if ( $signature eq "\377tOc" ) {
+        if ( $version == 2 ) {
+            $self->index(
+                Git::PurePerl::PackIndex::Version2->new(
+                    filename => $index_filename
+                )
+            );
+        } else {
+            confess("Unknown version");
+        }
+    } else {
+        $self->index(
+            Git::PurePerl::PackIndex::Version1->new(
+                filename => $index_filename
+            )
+        );
+    }
+}
+
+sub get_object {
+    my ( $self, $want_sha1 ) = @_;
+    my $offset = $self->index->get_object_offset($want_sha1);
+    return unless $offset;
+    return $self->unpack_object($offset);
+}
+
+__PACKAGE__->meta->make_immutable;
+