File Coverage

blib/lib/Text/TokenStream/Role/Stream.pm

Criterion	Covered	Total	%
statement	14	19	73.6
branch	2	2	100.0
condition			n/a
subroutine	4	5	80.0
pod	2	2	100.0
total	22	28	78.5

package Text::TokenStream::Role::Stream;

use v5.12;
use Moo::Role;

our $VERSION = '0.04';

use namespace::clean;

requires qw(
    current_position
    err
    fill
    looking_at
    next
    next_of
    peek
    skip_optional
    token_err
);

sub collect_all {
    my ($self) = @_;

    my @ret;
    while (my $tok = $self->next) {
        push @ret, $tok;
    }

    return @ret;
}

sub collect_upto {
    my ($self, $target) = @_;

    my @ret;
    while (my $tok = $self->peek) {
        last if $tok->matches($target);
        push @ret, $self->next;
    }

    return @ret;
}

1;
__END__