File Coverage

blib/lib/ExtUtils/Builder/CPAN/Tool.pm

Criterion	Covered	Total	%
statement	11	51	21.5
branch	0	2	0.0
condition			n/a
subroutine	4	16	25.0
pod	0	1	0.0
total	15	70	21.4

package ExtUtils::Builder::CPAN::Tool;
$ExtUtils::Builder::CPAN::Tool::VERSION = '0.020';
use 5.010;
use strict;
use warnings;

use parent 'ExtUtils::Builder::Planner::Extension';

sub add_methods {
	my (undef, $planner, %args) = @_;

	$planner->add_delegate('config', sub {
		require ExtUtils::Config;
		state $config = ExtUtils::Config->new;
	});

	$planner->add_delegate('meta', sub {
		require CPAN::Meta;
		state $meta = CPAN::Meta->load_file('META.json');
	});

	$planner->add_delegate('distribution', sub {
		return $_[0]->meta->name;
	});
	$planner->add_delegate('version', sub {
		return version->new($_[0]->meta->version);
	});

	$planner->add_delegate('main_module', sub {
		state $main_module = do {
			my $distribution = $_[0]->distribution;
			$distribution =~ s/-/::/g;
			$distribution;
		};
	});

	$planner->add_delegate('perl_path', sub {
		require ExtUtils::Builder::Util;
		state $path = ExtUtils::Builder::Util::get_perl(config => $_[0]->config);
	});

	$planner->add_delegate($_, sub { !!0 }) for qw/verbose uninst pureperl_only/;
	$planner->add_delegate('jobs', sub { 1 });

	$planner->add_delegate('is_os', sub {
		my ($self, @wanted) = @_;
		return not not grep { $_ eq $^O } @wanted
	});
	$planner->add_delegate('is_os_type', sub {
		my ($self, $wanted) = @_;
		require Perl::OSType;
		return Perl::OSType::is_os_type($wanted);
	});

	$planner->add_delegate('new_planner', sub {
		my ($self, %options) = @_;
		my $config = $self->config;
		$config = $config->but($options{but}) if $options{but};
		require ExtUtils::Builder::Planner;
		my $inner = ExtUtils::Builder::Planner->new;
		$inner->add_delegate('config', sub { $config });
		return $inner;
	});
}

1;

# ABSTRACT: A base implementation for CPAN build scripts.

__END__