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