package JavaScript::Generator; use strict; use warnings; use base 'JavaScript::Boxed'; my $NF = undef; sub next { my $self = shift; ## this just gives a function we can use to do all the hard work... my $NF ||= $self->context->eval(q!function(aGenerator) { var n = aGenerator.next(); return n; }!); return $NF->( $self ); } 1; __END__ =head1 NAME JavaScript::Generator - Boxed Perl object of a JavaScript generator =head1 DESCRIPTION Generators were introduced in JavaScript 1.7. When you 'yield' from JS you'll be returned an instance of this class that you can use to retrieve the next value from the generator. For example function fib() { var i = 0, j = 1; while (true) { yield i; var t = i; i = j; j += t; } } var g = fib(); for (var i = 0; i < 10; i++) { document.write(g.next() + "<br>\n"); } =head1 INTERFACE =head2 INSTANCE METHODS =over 4 =item next Retrieve the next value. =back =cut