Profile of Net/DNS/Resolver/UNIX.pm

Filename	/usr/local/lib/perl5/site_perl/Net/DNS/Resolver/UNIX.pm
Statements	Executed 23 statements in 1.06ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	125µs	2.36ms	Net::DNS::Resolver::UNIX::::_initNet::DNS::Resolver::UNIX::_init
3	2	1	70µs	70µs	Net::DNS::Resolver::UNIX::::CORE:ftfileNet::DNS::Resolver::UNIX::CORE:ftfile (opcode)
1	1	1	46µs	46µs	Net::DNS::Resolver::UNIX::CORE:backtick (opcode)
1	1	1	42µs	50µs	Net::DNS::Resolver::UNIX::::BEGIN@16Net::DNS::Resolver::UNIX::BEGIN@16
1	1	1	21µs	117ms	Net::DNS::Resolver::UNIX::::BEGIN@18Net::DNS::Resolver::UNIX::BEGIN@18
1	1	1	18µs	41µs	Net::DNS::Resolver::UNIX::::BEGIN@17Net::DNS::Resolver::UNIX::BEGIN@17
1	1	1	5µs	5µs	Net::DNS::Resolver::UNIX::CORE:fteread (opcode)

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Net::DNS::Resolver::UNIX;
2
3					#
4					# $Id: UNIX.pm 1573 2017-06-12 11:03:59Z willem $
5					#
6	1	3µs			our $VERSION = (qw$LastChangedRevision: 1573 $)[1];
7
8
9					=head1 NAME
10
11					Net::DNS::Resolver::UNIX - Unix resolver class
12
13					=cut
14
15
16	2	56µs	2	58µs	# spent 50µs (42+8) within Net::DNS::Resolver::UNIX::BEGIN@16 which was called: # once (42µs+8µs) by base::import at line 16 use strict; # spent 50µs making 1 call to Net::DNS::Resolver::UNIX::BEGIN@16 # spent 8µs making 1 call to strict::import
17	2	59µs	2	63µs	# spent 41µs (18+22) within Net::DNS::Resolver::UNIX::BEGIN@17 which was called: # once (18µs+22µs) by base::import at line 17 use warnings; # spent 41µs making 1 call to Net::DNS::Resolver::UNIX::BEGIN@17 # spent 22µs making 1 call to warnings::import
18	2	420µs	2	117ms	# spent 117ms (21µs+117) within Net::DNS::Resolver::UNIX::BEGIN@18 which was called: # once (21µs+117ms) by base::import at line 18 use base qw(Net::DNS::Resolver::Base); # spent 117ms making 1 call to Net::DNS::Resolver::UNIX::BEGIN@18 # spent 117ms making 1 call to base::import, recursion: max depth 1, sum of overlapping time 117ms
19
20
21	1	63µs	2	36µs	my @config_file = grep -f $_ && -r _, '/etc/resolv.conf'; # spent 32µs making 1 call to Net::DNS::Resolver::UNIX::CORE:ftfile # spent 5µs making 1 call to Net::DNS::Resolver::UNIX::CORE:fteread
22
23	1	2µs			my $dotfile = '.resolv.conf';
24	1	9µs			my @dotpath = grep defined, $ENV{HOME}, '.';
25	1	68µs	2	38µs	my @dotfile = grep -f $_ && -o _, map "$_/$dotfile", @dotpath; # spent 38µs making 2 calls to Net::DNS::Resolver::UNIX::CORE:ftfile, avg 19µs/call
26
27
28	1	67µs			local $ENV{PATH} = '/bin:/usr/bin';
29	2	62µs	1	46µs	my $uname = eval {`uname -n 2>/dev/null`} \|\| ''; # spent 46µs making 1 call to Net::DNS::Resolver::UNIX::CORE:backtick
30	1	3µs			chomp $uname;
31	1	6µs			my ( $host, @domain ) = split /\./, $uname, 2;
32	1	19µs	1	64µs	__PACKAGE__->domain(@domain); # spent 64µs making 1 call to Net::DNS::Resolver::Base::domain
33
34
35					# spent 2.36ms (125µs+2.23) within Net::DNS::Resolver::UNIX::_init which was called: # once (125µs+2.23ms) by Net::DNS::Resolver::Base::new at line 130 of Net/DNS/Resolver/Base.pm sub _init {
36	1	7µs	1	4µs	my $defaults = shift->_defaults; # spent 4µs making 1 call to Net::DNS::Resolver::Base::_defaults
37
38	1	11µs	1	847µs	map $defaults->_read_config_file($_), @config_file; # spent 847µs making 1 call to Net::DNS::Resolver::Base::_read_config_file
39
40	1	69µs	1	1.36ms	%$defaults = Net::DNS::Resolver::Base::_untaint(%$defaults); # spent 1.36ms making 1 call to Net::DNS::Resolver::Base::_untaint
41
42	1	3µs			map $defaults->_read_config_file($_), @dotfile;
43
44	1	18µs	1	24µs	$defaults->_read_env; # spent 24µs making 1 call to Net::DNS::Resolver::Base::_read_env
45					}
46
47
48	1	113µs			1;
49					__END__

					# spent 46µs within Net::DNS::Resolver::UNIX::CORE:backtick which was called: # once (46µs+0s) by base::import at line 29 sub Net::DNS::Resolver::UNIX::CORE:backtick; # opcode
					# spent 5µs within Net::DNS::Resolver::UNIX::CORE:fteread which was called: # once (5µs+0s) by base::import at line 21 sub Net::DNS::Resolver::UNIX::CORE:fteread; # opcode
					# spent 70µs within Net::DNS::Resolver::UNIX::CORE:ftfile which was called 3 times, avg 23µs/call: # 2 times (38µs+0s) by base::import at line 25, avg 19µs/call # once (32µs+0s) by base::import at line 21 sub Net::DNS::Resolver::UNIX::CORE:ftfile; # opcode