Filename | /usr/local/lib/perl5/site_perl/Net/DNS/Resolver.pm |
Statements | Executed 0 statements in 0s |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
0 | 0 | 0 | 0s | 0s | BEGIN@16 | Net::DNS::Resolver::
0 | 0 | 0 | 0s | 0s | BEGIN@18 | Net::DNS::Resolver::
0 | 0 | 0 | 0s | 0s | BEGIN@20 | Net::DNS::Resolver::
0 | 0 | 0 | 0s | 0s | BEGIN@3 | Net::DNS::Resolver::
0 | 0 | 0 | 0s | 0s | BEGIN@4 | Net::DNS::Resolver::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Net::DNS::Resolver; | ||||
2 | |||||
3 | use strict; | ||||
4 | use warnings; | ||||
5 | |||||
6 | our $VERSION = (qw$Id: Resolver.pm 1818 2020-10-18 15:24:42Z willem $)[2]; | ||||
7 | |||||
8 | |||||
9 | =head1 NAME | ||||
10 | |||||
11 | Net::DNS::Resolver - DNS resolver class | ||||
12 | |||||
13 | =cut | ||||
14 | |||||
15 | |||||
16 | use constant CONFIG => defined eval "require Net::DNS::Resolver::$^O"; ## no critic # spent 0s executing statements in string eval | ||||
17 | |||||
18 | use constant OS_CONF => join '::', __PACKAGE__, CONFIG ? $^O : 'UNIX'; | ||||
19 | |||||
20 | use base OS_CONF; | ||||
21 | |||||
22 | |||||
23 | 1; | ||||
24 | |||||
25 | __END__ |