File Coverage

blib/lib/Catmandu/IterableOnce.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	10	80.0

use Catmandu::Sane;
use Moo::Role;

has exhausted => (is => 'rwp', default => sub {0});

around generator => sub {
    my ($orig, $self) = @_;
    return sub { }
        if $self->exhausted;
    $self->_set_exhausted(1);
    $orig->($self);
};


1;


=pod

=head1 NAME

Catmandu::IterableOnce - Role for iterable classes that can only iterate once

=head1 SYNOPSIS

    package MySingleUseIterator;
    use Moo;
    with 'Catmandu::Iterable';
    with 'Catmandu::Iterableonce';

    sub  generator {
        # ...
    }

=head1 SEE ALSO

L<Catmandu::Iterable>.

=cut