/usr/share/perl5/Net/SIP/Response.pm is in libnet-sip-perl 0.66-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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;
|