my $self = $copy = bless(sub :lvalue { $copy->ok; my $n }, $class);