view release on metacpan or  search on metacpan

lib/Carrot.pm  view on Meta::CPAN

73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
# //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

36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
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) = @_;