Add built local::lib

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

diff --git a/local-lib5/lib/perl5/Git/PurePerl/Loose.pm b/local-lib5/lib/perl5/Git/PurePerl/Loose.pm
new file mode 100644 (file)
index 0000000..7c39125
--- /dev/null
+++ b/local-lib5/lib/perl5/Git/PurePerl/Loose.pm
@@ -0,0 +1,61 @@
+package Git::PurePerl::Loose;
+use Moose;
+use MooseX::StrictConstructor;
+use MooseX::Types::Path::Class;
+use Compress::Zlib qw(compress uncompress);
+use Path::Class;
+use namespace::autoclean;
+
+has 'directory' => (
+    is       => 'ro',
+    isa      => 'Path::Class::Dir',
+    required => 1,
+    coerce   => 1
+);
+
+sub get_object {
+    my ( $self, $sha1 ) = @_;
+
+    my $filename
+        = file( $self->directory, substr( $sha1, 0, 2 ), substr( $sha1, 2 ) );
+    return unless -f $filename;
+
+    my $compressed = $filename->slurp;
+    my $data       = uncompress($compressed);
+    my ( $kind, $size, $content ) = $data =~ /^(\w+) (\d+)\0(.+)$/s;
+    return ( $kind, $size, $content );
+}
+
+sub put_object {
+    my ( $self, $object ) = @_;
+
+    my $filename = file(
+        $self->directory,
+        substr( $object->sha1, 0, 2 ),
+        substr( $object->sha1, 2 )
+    );
+    $filename->parent->mkpath;
+    my $compressed = compress( $object->raw );
+    my $fh         = $filename->openw;
+    binmode($fh); #important for Win32
+    $fh->print($compressed) || die "Error writing to $filename: $!";
+}
+
+sub all_sha1s {
+    my $self  = shift;
+    my $files = Data::Stream::Bulk::Path::Class->new(
+        dir        => $self->directory,
+        only_files => 1,
+    );
+    return Data::Stream::Bulk::Filter->new(
+        filter => sub {
+            [   map { m{([a-z0-9]{2})[/\\]([a-z0-9]{38})}; $1 . $2 }
+                    grep {m{[/\\][a-z0-9]{2}[/\\]}} @$_
+            ];
+        },
+        stream => $files,
+    );
+}
+
+__PACKAGE__->meta->make_immutable;
+