view release on metacpan or  search on metacpan

lib/Carrot.pm  view on Meta::CPAN

	return($carrot_main);
}

sub import
# /type function
# /effect "Issues a warning only."
# //parameters
# //returns
{
#	return if((caller)[RDX_CALLER_LINE] == 0); # perl -MCarrot
	warn($translated_errors->message_text('require_preferred', []));
}

# =--------------------------------------------------------------------------= #

	return(PERL_FILE_LOADED);
}
# //revision_control
#	version 1.1.309
#	branch main

lib/Carrot/Meta/Greenhouse/Package_Loader.pm  view on Meta::CPAN

	return;
}

sub mark_singular
# /type function
# /effect "Marks a package for singular instances."
# //parameters
#	pkg_name
# //returns
{
	my $pkg_name = (caller)[RDX_CALLER_PACKAGE];
	unless (exists($singular_instances->{$pkg_name}))
	{
		$singular_instances->{$pkg_name} = IS_UNDEFINED;
	}
	return;
}

sub mark_no
# /type function
# /effect "Marks a package for singular instances."
# //parameters
#	pkg_name
# //returns
{
	my $pkg_name = (caller)[RDX_CALLER_PACKAGE];
	$no_instances->{$pkg_name} = IS_EXISTENT;
	return;
}

# sub load_before_bless
# # /type function
# # /effect ""
# # //parameters
# #	<reference>
# #	<pkg_name>