Help for this page

Select Code to Download

Select or download this

    while ( $res = $sock->getline ) {
        my $ok = $self->_cmd_ok($res);
...
            $args{process}->($res);
        }
    }