1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
package Catmandu::IterableOnce;
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);
};
sub rewind { }
1;
__END__
=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
|
