9 q[&{}] => sub { $codified++; shift->to_code },
18 eval "sub { $$self }";
25 use base 'Dark::Side';
28 return quote_sub $$self;
32 my $darkside = Dark::Side->new('my $dummy = "join the dark side"; $_[0] * 2');
33 is($darkside->(6), 12, 'check Dark::Side coderef');
35 my $theforce = The::Force->new('my $dummy = "use the force Luke"; $_[0] * 2');
36 is($theforce->(6), 12, 'check The::Force coderef');
38 my $luke = The::Force->new('my $z = "I am your father"');
42 has a => (is => "rw", coerce => $darkside, isa => sub { 1 });
43 has b => (is => "rw", coerce => $theforce, isa => $luke);
46 my $o = Doubleena->new(a => 11, b => 12);
47 is($o->a, 22, 'non-Sub::Quoted inlined coercion overload works');
48 is($o->b, 24, 'Sub::Quoted inlined coercion overload works');
49 my $codified_before = $codified;
51 is($codified_before, $codified, "repeated calls to accessor don't re-trigger overload");
54 my $constructor = B::Deparse->new->coderef2text(Doubleena->can('new'));
56 like($constructor, qr{use the force Luke}, 'Sub::Quoted coercion got inlined');
57 unlike($constructor, qr{join the dark side}, 'non-Sub::Quoted coercion was not inlined');
58 like($constructor, qr{I am your father}, 'Sub::Quoted isa got inlined');
62 Scalar::Util::refaddr($luke),
63 Scalar::Util::refaddr(
64 Moo->_constructor_maker_for("Doubleena")->all_attribute_specs->{"b"}{"isa"}
66 '$spec->{isa} reference is not mutated',
69 Scalar::Util::refaddr($theforce),
70 Scalar::Util::refaddr(
71 Moo->_constructor_maker_for("Doubleena")->all_attribute_specs->{"b"}{"coerce"}
73 '$spec->{coerce} reference is not mutated',