Commit | Line | Data |
---|---|---|
b5a48c47 | 1 | package HTML::Zoom::ArrayStream; |
2 | ||
1cf03540 | 3 | use strictures 1; |
b5a48c47 | 4 | use base qw(HTML::Zoom::StreamBase); |
5 | ||
6 | sub new { | |
7 | my ($class, $args) = @_; | |
8 | bless( | |
9 | { _zconfig => $args->{zconfig}, _array => [ @{$args->{array}} ] }, | |
10 | $class | |
11 | ); | |
12 | } | |
13 | ||
14 | sub _next { | |
15 | my $ary = $_[0]->{_array}; | |
16 | return unless @$ary; | |
17 | return shift @$ary; | |
18 | } | |
19 | ||
20 | 1; |