view release on metacpan or  search on metacpan

lib/AnyEvent/FreeSWITCH.pm  view on Meta::CPAN

=cut

sub new {
    my ($this, %args) = @_;    
    my $class = ref($this) || $this;
    my $self = bless(\%args, $class);
    
    $self->{host}     ||= '127.0.0.1';
    $self->{port}     ||= '8021';
    $self->{password} ||= 'ClueCon';
    $self->{events}   ||= 'all';
    
    return $self;
}

=head2 connect

=cut

sub connect {
    my $self = shift;
    
    $self->{esl} = new ESL::ESLconnection(
	$self->{host},
	$self->{port},
	$self->{password},
	);
    if ( $self->is_connected() ) {
	$self->event('connected');
	$self->{io} = AnyEvent->io(
	    fh => $self->{esl}->socketDescriptor(),
	    poll => "r",
	    cb => sub { $self->recv_events(); },
	    );
    } else {
	$self->event('error_connection');