view release on metacpan or  search on metacpan

lib/MooX/Press.pm  view on Meta::CPAN

use Types::TypeTiny qw(ArrayLike HashLike);
use Type::Registry ();
use Exporter::Tiny qw(mkopt);
use Import::Into;
use match::simple qw(match);
use Module::Runtime qw(use_module);
use namespace::autoclean;

sub make_absolute_package_name {
	my $p = shift;
	$] lt '5.018' ? "main::$p" : "::$p";
}

if ( $] lt '5.010' ) {
	require UNIVERSAL::DOES;
}

# Options not to carry up into subclasses;
# mostly because subclasses inherit behaviour anyway.
my @delete_keys = qw(
	subclass
	has
	with
	extends