← Index
NYTProf Performance Profile   « line view »
For /usr/local/libexec/sympa/task_manager-debug.pl
  Run on Tue Jun 1 22:32:51 2021
Reported on Tue Jun 1 22:35:13 2021

Filename/usr/local/lib/perl5/site_perl/Net/DNS/Resolver/UNIX.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sNet::DNS::Resolver::UNIX::::BEGIN@15Net::DNS::Resolver::UNIX::BEGIN@15
0000s0sNet::DNS::Resolver::UNIX::::BEGIN@3Net::DNS::Resolver::UNIX::BEGIN@3
0000s0sNet::DNS::Resolver::UNIX::::BEGIN@4Net::DNS::Resolver::UNIX::BEGIN@4
0000s0sNet::DNS::Resolver::UNIX::::CORE:backtickNet::DNS::Resolver::UNIX::CORE:backtick (opcode)
0000s0sNet::DNS::Resolver::UNIX::::CORE:ftereadNet::DNS::Resolver::UNIX::CORE:fteread (opcode)
0000s0sNet::DNS::Resolver::UNIX::::CORE:ftfileNet::DNS::Resolver::UNIX::CORE:ftfile (opcode)
0000s0sNet::DNS::Resolver::UNIX::::_initNet::DNS::Resolver::UNIX::_init
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Net::DNS::Resolver::UNIX;
2
3use strict;
4use warnings;
5our $VERSION = (qw$Id: UNIX.pm 1811 2020-10-05 08:24:23Z willem $)[2];
6
7
8=head1 NAME
9
10Net::DNS::Resolver::UNIX - Unix resolver class
11
12=cut
13
14
15use base qw(Net::DNS::Resolver::Base);
16
17
18my @config_file = grep { -f $_ && -r _ } '/etc/resolv.conf';
19
20my $dotfile = '.resolv.conf';
21my @dotpath = grep {defined} $ENV{HOME}, '.';
22my @dotfile = grep { -f $_ && -o _ } map {"$_/$dotfile"} @dotpath;
23
24
25local $ENV{PATH} = '/bin:/usr/bin';
26my $uname = eval {`uname -n 2>/dev/null`} || '';
27chomp $uname;
28my ( $host, @domain ) = split /\./, $uname, 2;
29__PACKAGE__->domain(@domain);
30
31
32sub _init {
33 my $defaults = shift->_defaults;
34
35 $defaults->_read_config_file($_) foreach @config_file;
36
37 %$defaults = Net::DNS::Resolver::Base::_untaint(%$defaults);
38
39 $defaults->_read_config_file($_) foreach @dotfile;
40
41 $defaults->_read_env;
42 return;
43}
44
45
461;
47__END__