File Coverage

blib/lib/ExtUtils/Builder/Action.pm

Criterion	Covered	Total	%
statement	15	17	88.2
branch	2	2	100.0
condition			n/a
subroutine	4	5	80.0
pod	2	3	66.6
total	23	27	85.1

package ExtUtils::Builder::Action;
$ExtUtils::Builder::Action::VERSION = '0.020';
use strict;
use warnings;

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

sub preference {
	my ($self, @possibilities) = @_;
	my $map = $self->_preference_map;
	my @keys = @possibilities ? @possibilities : keys %{$map};
	my ($ret) = reverse sort { $map->{$a} <=> $map->{$b} } @keys;
	return $ret;
}

sub to_code_hash {
	my ($self, %opts) = @_;
	return {
		code => $self->to_code(%opts),
	}
}

1;

#ABSTRACT: The ExtUtils::Builder Action role

__END__