counter.p6

#!/usr/bin/env perl6

use v6;

class Counter {
    has $!n;

    method new($n) {
        return self.bless(*, :$n);
    }

    method is-counting {
        return $!n > 0;
    }

    method tick {
        $!n--;
    }
}

my $c = Counter.new(10);

while $c.is-counting {
    say $c.tick;
}