### ----------------------------------------------------
### -- LibXML
### -- Licenses: Artistic-2.0
### -- Authors: David Warring
### -- File: t/lib/Counter.rakumod
### ----------------------------------------------------
unit class Counter;
use Collector;
also is Collector;
use Test;
has UInt $!count;

method _calc_op_callback {
    sub { ++$!count }
}

method test(UInt $value, $blurb) {
    my $rv := is $!count, $value, $blurb;
    $!count = 0;
    $rv;
}



