xref: /unit/test/perl/body_io_fake/IOFake.pm (revision 916:a7034804fe9c)
1*916Szelenkov@nginx.compackage IOFake;
2*916Szelenkov@nginx.com
3*916Szelenkov@nginx.comsub new {
4*916Szelenkov@nginx.com    my $class = shift;
5*916Szelenkov@nginx.com    my $errors = shift;
6*916Szelenkov@nginx.com    my $self = {};
7*916Szelenkov@nginx.com
8*916Szelenkov@nginx.com    $self->{_count} = 2;
9*916Szelenkov@nginx.com    $self->{_errors} = $errors;
10*916Szelenkov@nginx.com
11*916Szelenkov@nginx.com    bless $self, $class;
12*916Szelenkov@nginx.com    return $self;
13*916Szelenkov@nginx.com}
14*916Szelenkov@nginx.com
15*916Szelenkov@nginx.comsub getline() {
16*916Szelenkov@nginx.com    my $self = shift;
17*916Szelenkov@nginx.com
18*916Szelenkov@nginx.com    if ($self->{_count} > 0) {
19*916Szelenkov@nginx.com        return $self->{_count}--;
20*916Szelenkov@nginx.com    }
21*916Szelenkov@nginx.com
22*916Szelenkov@nginx.com    $self->{_errors}->print('IOFake getline() $/ is ' . ${ $/ });
23*916Szelenkov@nginx.com
24*916Szelenkov@nginx.com    return;
25*916Szelenkov@nginx.com}
26*916Szelenkov@nginx.com
27*916Szelenkov@nginx.comsub close() {
28*916Szelenkov@nginx.com    my $self = shift;
29*916Szelenkov@nginx.com
30*916Szelenkov@nginx.com    $self->{_errors}->print('IOFake close() called');
31*916Szelenkov@nginx.com};
32*916Szelenkov@nginx.com
33*916Szelenkov@nginx.com1;
34