Lines Matching +full:perl +full:- +full:time +full:- +full:hires

21 # SPDX-License-Identifier: curl
25 # This perl module contains functions useful in writing test servers.
54     # sub second timestamping needs Time::HiRes
57         require Time::HiRes;
58         import  Time::HiRes qw( gettimeofday );
69 # is used for non-stunnel https test servers.
76     # sub second timestamping needs Time::HiRes
77     if($Time::HiRes::VERSION) {
84         my $seconds = time();
107         /^((ftp|http|imap|pop3|smtp|http-pipe)s?)(\d*)(-ipv6|)$/) {
113         /^(tftp|sftp|socks|ssh|rtsp|gopher|httptls)(\d*)(-ipv6|)$/) {
133 …($proto =~ /^(((FTP|HTTP|HTTP\/2|HTTP\/3|IMAP|POP3|GOPHER|SMTP|HTTP-PIPE)S?)|(TFTP|SFTP|SOCKS|SSH|…
137         ($ipver =~ /^(4|6|ipv4|ipv6|-ipv4|-ipv6|unix)$/));
138     $ipver = ($ipver =~ /6$/) ? '-IPv6' : (($ipver =~ /unix$/) ? '-unix' : '');
164     $string =~ tr/-/_/;