use warnings;
use Test::More;
+my $codified = 0;
{
package Dark::Side;
use overload
- q[&{}] => sub { shift->to_code },
+ q[&{}] => sub { $codified++; shift->to_code },
fallback => 1;
sub new {
my $class = shift;
my $theforce = The::Force->new('my $dummy = "use the force Luke"; $_[0] * 2');
is($theforce->(6), 12, 'check The::Force coderef');
+my $luke = The::Force->new('my $z = "I am your father"');
{
package Doubleena;
use Moo;
- has a => (is => "ro", coerce => $darkside, isa => sub { 1 });
- has b => (is => "ro", coerce => $theforce, isa => The::Force->new('my $z = "I am your father"'));
+ has a => (is => "rw", coerce => $darkside, isa => sub { 1 });
+ has b => (is => "rw", coerce => $theforce, isa => $luke);
}
my $o = Doubleena->new(a => 11, b => 12);
is($o->a, 22, 'non-Sub::Quoted inlined coercion overload works');
is($o->b, 24, 'Sub::Quoted inlined coercion overload works');
+my $codified_before = $codified;
+$o->a(5);
+is($codified_before, $codified, "repeated calls to accessor don't re-trigger overload");
use B::Deparse;
my $constructor = B::Deparse->new->coderef2text(Doubleena->can('new'));
unlike($constructor, qr{join the dark side}, 'non-Sub::Quoted coercion was not inlined');
like($constructor, qr{I am your father}, 'Sub::Quoted isa got inlined');
+require Scalar::Util;
+is(
+ Scalar::Util::refaddr($luke),
+ Scalar::Util::refaddr(
+ Moo->_constructor_maker_for("Doubleena")->all_attribute_specs->{"b"}{"isa"}
+ ),
+ '$spec->{isa} reference is not mutated',
+);
+is(
+ Scalar::Util::refaddr($theforce),
+ Scalar::Util::refaddr(
+ Moo->_constructor_maker_for("Doubleena")->all_attribute_specs->{"b"}{"coerce"}
+ ),
+ '$spec->{coerce} reference is not mutated',
+);
+
done_testing;