|
Hi all,
Can anyone explain me the flow of the following code.
I am a newbie to perl,but i am working on a SIP Module.
here in this below programe i want to know how they are getting the values for $code.
Please help me on this.
sub uac {
my ($peer_addr,$pipe) = @_;
my $call = $uac->invite(
'you.uas@example.com',
cb_preliminary => sub {
my ($self,$code,$packet) = @_;
if ( $code == 180 ) {
diag( 'got ringing' );
$ringing ++
}
}
);
}
|
