File Coverage

blib/lib/Sub/HandlesVia/HandlerLibrary.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch	2	4	50.0
condition	6	12	50.0
subroutine	10	10	100.0
pod	0	3	0.0
total	46	58	79.3

use 5.008;
use strict;
use warnings;


our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.045';

use Types::Standard qw( Any Item );

	my ($me, $type) = @_;
	if (!$type or $type == Any or $type == Item) {
		return {
			trust_mutated => 'always',
		};
	}

	return { trust_mutated => 'never' };
}

{
	my %cache;

		my ($me, $handler_name) = @_;
		$cache{$me} ||= $me->_populate_cache;
		$cache{$me}{$handler_name} ? $me->$handler_name : undef;
	}

		my ($me, $handler_name) = @_;
		$cache{$me} ||= $me->_populate_cache;
		exists $cache{$me}{$handler_name};
	}
}

# This is not necessarily an exhaustive list, however if it is non-exhaustive
# then subclasses must override get_handler and has_handler.
#
	no strict 'refs';
	@{ $_[0] . '::METHODS' }
}

	my %hash;
	$hash{$_} = 1 for $_[0]->handler_names;
	\%hash;
}

1;