Add config support

Author: ilmari

Makefile.PL

@@ -14,6 +14,7 @@ resources repository => 'git://github.com/bobtfish/git-pureperl.git';
 requires        'Archive::Extract'           => '0';
 requires        'Compress::Raw::Zlib'        => '0';
 requires        'Compress::Zlib'             => '0';
+requires        'Config::GitLike'            => '0';
 requires        'Data::Stream::Bulk'         => '0';
 requires        'DateTime'                   => '0';
 requires        'Digest::SHA1'               => '0';

lib/Git/PurePerl.pm

@@ -10,6 +10,7 @@ use DateTime;
 use Digest::SHA1;
 use File::Find::Rule;
 use Git::PurePerl::Actor;
+use Git::PurePerl::Config;
 use Git::PurePerl::DirectoryEntry;
 use Git::PurePerl::Loose;
 use Git::PurePerl::Object;
@@ -76,6 +77,16 @@ has 'description' => (
     }
 );
 
+has 'config' => (
+    is      => 'ro',
+    isa     => 'Git::PurePerl::Config',
+    lazy    => 1,
+    default => sub {
+        my $self = shift;
+        Git::PurePerl::Config->new(git => $self);
+    }
+);
+
 __PACKAGE__->meta->make_immutable;
 
 sub BUILDARGS {

lib/Git/PurePerl/Config.pm

@@ -0,0 +1,16 @@
+package Git::PurePerl::Config;
+use Moose;
+use MooseX::StrictConstructor;
+use Moose::Util::TypeConstraints;
+
+extends 'Config::GitLike';
+
+has '+confname' => ( default => "gitconfig" );
+has 'git'       => ( is => 'ro', isa => 'Git::PurePerl', required => 1 );
+
+override dir_file => sub {
+    my $self = shift;
+    return $self->git->gitdir->file("config");
+};
+
+1;

t/simple.t

@@ -1,7 +1,7 @@
 #!perl
 use strict;
 use warnings;
-use Test::More tests => 198;
+use Test::More tests => 201;
 use Git::PurePerl;
 use Path::Class;
 
@@ -102,6 +102,8 @@ hello world, again
     is( $git->all_sha1s->all,   9 );
     is( $git->all_objects->all, 9 );
 
+    is( $git->config->get(key => 'user.name'), 'Your Name Comes Here' );
+
     $checkout_directory->rmtree;
     $checkout_directory->mkpath;
     $git->checkout($checkout_directory);