view release on metacpan or  search on metacpan

lib/Z.pm  view on Meta::CPAN

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

use Import::Into ();
use IO::Handle   ();
use Module::Runtime qw( use_module );
use Zydeco::Lite qw( true false );

BEGIN {
	*PERL_IS_MODERN = ( $] ge '5.014' ) ? \&true : \&false;
}

my $STRICT = 0;
$ENV{$_} && ++$STRICT && last for qw(
	EXTENDED_TESTING
	AUTHOR_TESTING
	RELEASE_TESTING
	PERL_STRICT
);

lib/Z.pm  view on Meta::CPAN

} #/ sub modules

sub compat_modules {
	my $class = shift;
	
	my @modules =
		grep { my $name = $_->[0]; $name !~ /feature|Try/ } $class->modules;
		
	push @modules, [ 'Try::Tiny', '0.30' ];
	
	if ( $] ge '5.010' ) {
		push @modules, [ 'feature', '0', qw( say ) ];
	}
	else {
		push @modules, [ 'Perl6::Say',      '0.06' ];
		push @modules, [ 'UNIVERSAL::DOES', '0.001' ];
	}
	
	return @modules;
} #/ sub compat_modules