Commit | Line | Data |
---|---|---|
456a815d | 1 | package HTML::Zoom::CodeStream; |
2 | ||
3 | use strict; | |
4 | use warnings FATAL => 'all'; | |
5f74b883 | 5 | use base qw(HTML::Zoom::StreamBase); |
456a815d | 6 | |
456a815d | 7 | sub new { |
8 | my ($class, $args) = @_; | |
d80786d0 | 9 | bless({ _code => $args->{code}, _zconfig => $args->{zconfig} }, $class); |
456a815d | 10 | } |
11 | ||
b5a48c47 | 12 | sub _next { |
13 | $_[0]->{_code}->(); | |
456a815d | 14 | } |
15 | ||
16 | 1; | |
17 |