/usr/share/perl5/Net/SIP.pm is in libnet-sip-perl 0.683-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 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 | use strict;
use warnings;
require 5.008;
package Net::SIP;
our $VERSION = '0.683';
# this includes nearly everything else
use Net::SIP::Simple ();
use Net::SIP::Simple::Call ();
use List::Util 'first';
# do not include these, because they are only
# used when we do NAT
# use Net::SIP::NATHelper::Base;
# use Net::SIP::NATHelper::Local;
# use Net::SIP::NATHelper::Client;
# use Net::SIP::NATHelper::Server;
use base 'Exporter';
our (@EXPORT_OK, %EXPORT_TAGS);
BEGIN {
foreach ( qw(
Net::SIP::Request
Net::SIP::Response
Net::SIP::Packet
Net::SIP::SDP
Net::SIP::Simple
Net::SIP::Simple::RTP
Net::SIP::Dispatcher
Net::SIP::Dispatcher::Eventloop
Net::SIP::Redirect
Net::SIP::Registrar
Net::SIP::StatelessProxy
Net::SIP::Blocker
Net::SIP::ReceiveChain
Net::SIP::Authorize
Net::SIP::Endpoint
Net::SIP::NATHelper::Client
Net::SIP::NATHelper::Server
Net::SIP::NATHelper::Local
Net::SIP::Debug
Net::SIP::Dropper
Net::SIP::Leg
)) {
my $pkg = $_; # copy from alias
my $sub;
if ( $pkg =~m{^Net::SIP::(.*)} ) {
( $sub = $1 ) =~s{::}{_}g;
} elsif ( $pkg =~m{::(\w+)$} ) {
$sub = $1;
}
if ( $sub ) {
no strict 'refs';
*{ $sub } = sub () { $pkg };
push @EXPORT_OK,$sub;
push @{ $EXPORT_TAGS{alias} },$sub;
};
}
}
sub import {
my $class = shift;
my @tags = @_;
while ( my $tag = shift(@tags)) {
if ( $tag eq ':all' ) {
push @tags,':alias',':util',':debug';
} elsif ( $tag eq ':util' ) {
Net::SIP::Util->export_to_level(1,$class,':all')
} elsif ( $tag eq ':debug' ) {
Net::SIP::Debug->export_to_level(1,$class,':DEFAULT')
} elsif ( $tag eq ':alias' ) {
$class->export_to_level(1,$class,$tag);
} elsif ( $tag =~m{rtp[=:](\d+)-(\d+)}i ) {
$Net::SIP::Util::RTP_MIN_PORT = $1;
$Net::SIP::Util::RTP_MAX_PORT = $2;
} elsif ( $tag =~m{^debug[=:](.*)}i ) {
Net::SIP::Debug->level($1);
} elsif ( first { $_ eq $tag } @EXPORT_OK ) {
# from the predefined list
$class->export_to_level(1,$class,$tag);
} else {
# default try to import from Net::SIP::Util
Net::SIP::Util->export_to_level(1,$class,$tag)
}
}
}
1;
|