Select Code to Download

class WithACounter {
    my $next_count = 1;
    field $count = $next_count++;
}

class WithACounter {
    my $next_count = 1;
    if (last_one_was_bad()) { delete_last_one(); $next_count--; }
    field $count = $next_count++;
}