use 5.038;
use feature 'class';
no warnings 'experimental';

class WithACounter {
    my $next_count = 1;
    ADJUST {
        say "Next count in ADJUST: $next_count";
    }
    field $count = do {
        say "Next count in field init: ", $next_count;
        $next_count++;
    };

    method count { $count }
}

say "Next count in the object: ",WithACounter->new->count;