running

MacBook-Pro-de-Fernando:TakeIgnoreSeq fernando$ perl6 -I. -MTakeIgnoreSeq -e '



say ^10 .Seq.take-while(* < 5).ignore-until(6).take-while(* < 9)



'
P6opaque: no such attribute '$!ignored' on type Seq in a Seq when trying to get a value
  in method take-while at /Users/fernando/Documents/Projects/TakeIgnoreSeq/TakeIgnoreSeq.pm6 (TakeIgnoreSeq) line 56
  in block <unit> at -e line 5

TakeIgnoreSeq.pm6

use MONKEY-TYPING;
use nqp;

class TakeIgnoreIterator does Iterator {
    has Iterator    $.original;
    has Iterator    $.handling;
    has Iterator    $!not-handled;
    has             $.condition = {True};
    has Bool        $.taking    = False;
    method pull-one {
        my $response;
        with $!original {
            if $!original !~~ ::?CLASS {
                $!handling = $!original;
                $!original = Nil
            } else {
                $response := .pull-one;
                if $response =:= IterationEnd {
                    with $!original.not-handled {
                        $!handling = $_
                    }
                }
            }
        }
        with $!handling {
            if $!taking {
                $response := .pull-one;
                unless $response ~~ $!condition {
                    $!not-handled = $!handling;
                    $!handling = Nil;
                    $response := IterationEnd
                }
            } else {
                $response := .pull-one;
                until $response =:= IterationEnd {
                    last unless $response ~~ $!condition;
                }
                $!not-handled = $!handling;
                $!handling = Nil;
                $response := IterationEnd
            }
        }
        return $response
    }
    method not-handled {
        with $!not-handled {
            my $nh = $!not-handled;
            $!not-handled = Nil;
            return $nh
        }
    }
}
role IgnoringSeq {
    has Seq $!ignored;
    method take-while($condition, Seq :$ignored) {
        say $!ignored;
        Seq.new: TakeIgnoreIterator.new: :original($.iterator), :$condition, :taking, :ignored;
    }
    method ignore-until($condition) {
        my $ignored = Seq.new: TakeIgnoreIterator.new: :original($.iterator), :condition{ $_ !~~ $condition }, :!taking;
        #$ignored.take-while: True, :$ignored
    }
}

augment class Seq does IgnoringSeq { }