App-Tel

 view release on metacpan or  search on metacpan

lib/App/Tel/Expect.pm  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use strict;
 
=head1 NAME
 
App::Tel::Expect - Monkeypatching Expect to support callbacks and large buffer reads
 
=cut
 
 
use POSIX qw(:sys_wait_h :unistd_h); # For WNOHANG and isatty
 
$Expect::read_buffer_size = 10240;
 
*Expect::set_cb = sub {
    my ( $self, $object, $function, $params, @args ) = @_;



( run in 0.327 second using v1.01-cache-2.11-cpan-1dc43b0fbd2 )