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
|
package Data::ObjectDriver::Iterator;
use strict;
use warnings;
my %Iterators = ();
sub new {
my $class = shift;
my( $each, $end ) = @_;
bless $each, $class;
if ($end) {
$Iterators{ $each }{ end } = $end;
}
return $each;
}
sub next {
return shift->();
}
sub end {
my $each = shift;
my $hash = delete $Iterators{ $each };
$hash->{ end }->() if $hash and ref $hash->{ end } eq 'CODE';
}
sub DESTROY {
my $iter = shift;
# use YAML; warn Dump \%Iterators;
$iter->end();
}
1;
|
