Line | |
---|
1 | package Test::Harness::Iterator;
|
---|
2 |
|
---|
3 | use strict;
|
---|
4 | use vars qw($VERSION);
|
---|
5 | $VERSION = 0.02;
|
---|
6 |
|
---|
7 | =head1 NAME
|
---|
8 |
|
---|
9 | Test::Harness::Iterator - Internal Test::Harness Iterator
|
---|
10 |
|
---|
11 | =head1 SYNOPSIS
|
---|
12 |
|
---|
13 | use Test::Harness::Iterator;
|
---|
14 | my $it = Test::Harness::Iterator->new(\*TEST);
|
---|
15 | my $it = Test::Harness::Iterator->new(\@array);
|
---|
16 |
|
---|
17 | my $line = $it->next;
|
---|
18 |
|
---|
19 | =head1 DESCRIPTION
|
---|
20 |
|
---|
21 | B<FOR INTERNAL USE ONLY!>
|
---|
22 |
|
---|
23 | This is a simple iterator wrapper for arrays and filehandles.
|
---|
24 |
|
---|
25 | =head2 new()
|
---|
26 |
|
---|
27 | Create an iterator.
|
---|
28 |
|
---|
29 | =head2 next()
|
---|
30 |
|
---|
31 | Iterate through it, of course.
|
---|
32 |
|
---|
33 | =cut
|
---|
34 |
|
---|
35 | sub new {
|
---|
36 | my($proto, $thing) = @_;
|
---|
37 |
|
---|
38 | my $self = {};
|
---|
39 | if( ref $thing eq 'GLOB' ) {
|
---|
40 | bless $self, 'Test::Harness::Iterator::FH';
|
---|
41 | $self->{fh} = $thing;
|
---|
42 | }
|
---|
43 | elsif( ref $thing eq 'ARRAY' ) {
|
---|
44 | bless $self, 'Test::Harness::Iterator::ARRAY';
|
---|
45 | $self->{idx} = 0;
|
---|
46 | $self->{array} = $thing;
|
---|
47 | }
|
---|
48 | else {
|
---|
49 | warn "Can't iterate with a ", ref $thing;
|
---|
50 | }
|
---|
51 |
|
---|
52 | return $self;
|
---|
53 | }
|
---|
54 |
|
---|
55 | package Test::Harness::Iterator::FH;
|
---|
56 | sub next {
|
---|
57 | my $fh = $_[0]->{fh};
|
---|
58 |
|
---|
59 | # readline() doesn't work so good on 5.5.4.
|
---|
60 | return scalar <$fh>;
|
---|
61 | }
|
---|
62 |
|
---|
63 |
|
---|
64 | package Test::Harness::Iterator::ARRAY;
|
---|
65 | sub next {
|
---|
66 | my $self = shift;
|
---|
67 | return $self->{array}->[$self->{idx}++];
|
---|
68 | }
|
---|
69 |
|
---|
70 | "Steve Peters, Master Of True Value Finding, was here.";
|
---|
Note:
See
TracBrowser
for help on using the repository browser.