view release on metacpan or  search on metacpan

lib/Carrot.pm  view on Meta::CPAN

# //parameters
# //returns
#	::Meta::Monad::Phase::Run
{
	return($meta_provider->individuality(caller));
}

#NOTE: caller(0) doesn't give information about the calling block.
#	This information can only be obtained by a search through caller(1..N).
#	That is costly and not even guaranteed to work.
#	Ideally [caller(0)]->[11] would be BEGIN, UNITCHECK or ''.
#	caller(1) assumes nobody tries eval {$meta_monad = Carrot:meta_monad}.
sub expressiveness
# /type function
# /effect "Selector for methods of the meta provider"
# //parameters
# //returns
#	::Meta::Monad
{
	my $caller1 = [caller(1)]; # skew due to information mangling
	my $block_name = $caller1->[RDX_CALLER_SUB_NAME];

lib/Carrot/Individuality/Controlled/Customized_Settings/Structure/Flat/Plain.clp  view on Meta::CPAN

use strict;
use warnings;

BEGIN {
	my $meta_monad = Carrot::modularity;
	$meta_monad->parent_classes->add(qw(
		[=project_pkg=]::Relation::Discrete::Generic
	));
}
UNITCHECK {
	Carrot::quality;
}

my $meta_monad = Carrot::individuality;

sub modify
# method (<this>, <raw_data>) public
{
	my ($this, $raw_data) = @_;