File Coverage

blib/lib/ExtUtils/Config/MakeMaker.pm

Criterion	Covered	Total	%
statement	28	35	80.0
branch	5	6	83.3
condition	0	3	0.0
subroutine	8	11	72.7
pod	8	8	100.0
total	49	63	77.7

package ExtUtils::Config::MakeMaker;
$ExtUtils::Config::MakeMaker::VERSION = '0.010';
use strict;
use warnings;

use ExtUtils::MakeMaker::Config;

sub new {
    my ($class, $maker) = @_;
    return bless { maker => $maker }, $class;
}

sub get {
    my ($self, $key) = @_;
    return exists $self->{maker}{uc $key} ? $self->{maker}{uc $key} : $Config{$key};
}

sub exists {
    my ($self, $key) = @_;
	return exists $Config{$key};
}

sub all_config {
	my $self = shift;
	my %result;
	for my $key (keys %Config) {
		$result{$key} = $self->get($key);
	}
	return \%result;
}

sub values_set {
	my $self = shift;
	my %result;
	for my $key (keys %Config) {
		next if not exists $self->{maker}{uc $key};
		next if $self->{maker}{uc $key} eq $Config{$key};
		$result{$key} = $self->{maker}{uc $key};
	}
	return \%result;
}

sub serialize {
	my $self = shift;
	require Data::Dumper;
	return $self->{serialized} ||= Data::Dumper->new($self->values_set)->Terse(1)->Sortkeys(1)->Dump;
}

sub materialize {
	my $self = shift;
	require ExtUtils::Config;
	return ExtUtils::Config->new($self->values_set);
}

sub but {
	my ($self, %args) = @_;
	return $self->materialize->but(%args);
}

1;

#ABSTRACT: A ExtUtils::Config compatible wrapper for ExtUtils::MakeMaker's configuration.

__END__