view release on metacpan or  search on metacpan

lib/Carrot/Modularity/Package/Loader.pm  view on Meta::CPAN

	$pending += 1;
	$generic_events->evt_package_load_before($pkg_name, $pkg_file);
#	my $eval_error = $eval_error_class->constructor;
	my $rv;
	eval {
		{
			no strict 'refs';
			*{$pkg_name.'::PERL_FILE_LOADED'} =
				\&Carrot::Meta::Greenhouse::PERL_FILE_LOADED;
		}
		$rv = require($pkg_file);
		# maintain entries in a compatible way
		$MODULES_LOADED{$relative_file} = delete($MODULES_LOADED{$pkg_file});

		return(IS_TRUE);
	} or do {
		delete($MODULES_LOADED{$pkg_file});
		$translated_errors->escalate(
			'package_loading_failed',
			[$pkg_name, $pkg_file],
			$EVAL_ERROR);