File Coverage

blib/lib/Smart/Dispatch/Match.pm

Criterion	Covered	Total	%
statement	39	47	82.9
branch	4	14	28.5
condition			n/a
subroutine	14	16	87.5
pod	2	2	100.0
total	59	79	74.6

package Smart::Dispatch::Match;

BEGIN {
	*_TYPES = $ENV{PERL_SMART_DISPATCH_TYPE_CHECKS}==42
		? sub () { 1 }
		: sub () { 0 };
};

use 5.010;
use Moo;
use Carp;
use if _TYPES, 'MooX::Types::MooseLike::Base', ':all';

use namespace::clean;

BEGIN {
	$Smart::Dispatch::Match::AUTHORITY = 'cpan:TOBYINK';
	$Smart::Dispatch::Match::VERSION   = '0.004';
}

use constant {
	FLAG_HAS_VALUE         =>  2,
	FLAG_HAS_DISPATCH      =>  4,
	FLAG_IS_FAILOVER       =>  8,
	FLAG_IS_UNCONDITIONAL  => 16,
};

use overload
	'&{}'    => sub { my $x=shift; sub { $x->conduct_dispatch($_[0]) } },
	'~~'     => 'value_matches',
	bool     => sub { 1 },
;

has test => (
	(_TYPES?(isa=>Any()):()),
	is        => 'ro',
	required  => 1,
);

has dispatch => (
	(_TYPES?(isa=>CodeRef()):()),
	is        => 'ro',
	required  => 0,
	predicate => 'has_dispatch',
);

has value => (
	(_TYPES?(isa=>Any()):()),
	is        => 'ro',
	required  => 0,
	predicate => 'has_value',
);

has note => (
	(_TYPES?(isa=>Str()):()),
	is        => 'ro',
	required  => 0,
);

has bitflags => (
	(_TYPES?(isa=>Num()):()),
	is        => 'lazy',
	init_arg  => undef,
);

has is_failover => (
	(_TYPES?(isa=>Bool()):()),
	is        => 'ro',
	required  => 1,
	default   => sub { 0 },
);

has is_unconditional => (
	(_TYPES?(isa=>Bool()):()),
	is        => 'ro',
	required  => 1,
	default   => sub { 0 },
);

sub _build_bitflags
{
	my ($self) = @_;
	my $rv = 1;
	$rv += FLAG_HAS_VALUE         if $self->has_value;
	$rv += FLAG_HAS_DISPATCH      if $self->has_dispatch;
	$rv += FLAG_IS_FAILOVER       if $self->is_failover;
	$rv += FLAG_IS_UNCONDITIONAL  if $self->is_unconditional;
	return $rv;
}

sub value_matches
{
	my ($self, $value) = @_;
	local $_ = $value;
	no warnings; # stupid useless warnings below
	return ($value ~~ $self->test);
}

sub conduct_dispatch
{
	my ($self, $value, @args) = @_;
	local $_ = $value;
	if ($self->has_dispatch)
	{
		return $self->dispatch->($value, @args);
	}
	elsif ($self->has_value)
	{
		return $self->value;
	}
	else
	{
		return;
	}
}

__PACKAGE__
__END__