### ----------------------------------------------------
### -- Channel::Pauseable
### -- Licenses: Artistic-2.0
### -- Authors: Timothy Hinchcliffe
### -- File: examples/supply-list(finite supply).p6
### ----------------------------------------------------
#!/usr/bin/env perl6

use v6;
use Channel::Pauseable;

my $channel = Channel::Pauseable.new;

my $supply = Supply.interval(1).head(10);

$channel.tap($supply);

for $channel.list -> $r {
    say $r;
}


