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

package Git::PurePerl::Config;
use Moose;
use MooseX::StrictConstructor;
use Moose::Util::TypeConstraints;
use namespace::autoclean;

extends 'Config::GitLike';

has '+confname' => ( default => "gitconfig" );
has 'git'       => ( is => 'ro', isa => 'Git::PurePerl', required => 1, weak_ref => 1 );

override dir_file => sub {
    my $self = shift;
    return $self->git->gitdir->file("config");
};

1;
Commit	Line	Data
3fea05b9	1	package Git::PurePerl::Config;
	2	use Moose;
	3	use MooseX::StrictConstructor;
	4	use Moose::Util::TypeConstraints;
	5	use namespace::autoclean;
	6
	7	extends 'Config::GitLike';
	8
	9	has '+confname' => ( default => "gitconfig" );
	10	has 'git' => ( is => 'ro', isa => 'Git::PurePerl', required => 1, weak_ref => 1 );
	11
	12	override dir_file => sub {
	13	my $self = shift;
	14	return $self->git->gitdir->file("config");
	15	};
	16
	17	1;