### Iterator_Utils.pm
package Iterator_Utils;
use base Exporter;
@EXPORT_OK = qw(NEXTVAL Iterator);
%EXPORT_TAGS = ('all' => \@EXPORT_OK);

sub NEXTVAL { $_[0]->() }
sub Iterator (&) { return $_[0] }
1;