gistfile1.txt

my $server-line-supply = supply {
    my $chars = '';
    whenever $conn.chars-supply {
        $chars ~= $_;
        my @lines = $chars.split(/\n/);
        if @lines[*-1] eq '' {
            $chars = @lines[*-2];
            emit $_ for @lines[0..*-3];
        }
        else { emit $_ for @lines; }
    }
}