1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
###########################################################################
# package Net::SIP::Response
# subclass from Net::SIP::Packet for managing the response packets
###########################################################################
use strict;
use warnings;
package Net::SIP::Response;
use base 'Net::SIP::Packet';
###########################################################################
# Redefine methods from Net::SIP::Packet, no need to find out dynamically
###########################################################################
sub is_request {0}
sub is_response {1}
###########################################################################
# Accessors for numerical code and text
# (e.g. "407 Authorization required" )
###########################################################################
sub code { return (shift->as_parts())[0] }
sub msg { return (shift->as_parts())[1] }
###########################################################################
# get method of original request by parsing CSeq header
###########################################################################
sub method {
my $cseq = shift->cseq || return;
return $cseq =~m{\d+\s+(\w+)} && $1;
}
1;
|
