Select Code to Download

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