Profile of Net/LibIDN.pm

Filename	/usr/local/lib/perl5/site_perl/mach/5.24/Net/LibIDN.pm
Statements	Executed 24 statements in 1.23ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	74µs	74µs	Net::LibIDN::::bootstrapNet::LibIDN::bootstrap (xsub)
1	1	1	59µs	59µs	Net::LibIDN::::BEGIN@3Net::LibIDN::BEGIN@3
1	1	1	28µs	37µs	Net::LibIDN::::BEGIN@4Net::LibIDN::BEGIN@4
1	1	1	23µs	401µs	Net::LibIDN::::BEGIN@11Net::LibIDN::BEGIN@11
1	1	1	22µs	75µs	Net::LibIDN::::BEGIN@85Net::LibIDN::BEGIN@85
1	1	1	20µs	90µs	Net::LibIDN::::BEGIN@6Net::LibIDN::BEGIN@6
1	1	1	19µs	146µs	Net::LibIDN::::BEGIN@7Net::LibIDN::BEGIN@7
1	1	1	18µs	41µs	Net::LibIDN::::BEGIN@5Net::LibIDN::BEGIN@5
0	0	0	0s	0s	Net::LibIDN::::AUTOLOADNet::LibIDN::AUTOLOAD
0	0	0	0s	0s	Net::LibIDN::::IDNA_ALLOW_UNASSIGNEDNet::LibIDN::IDNA_ALLOW_UNASSIGNED
0	0	0	0s	0s	Net::LibIDN::IDNA_USE_STD3_ASCII_RULES
0	0	0	0s	0s	Net::LibIDN::::__ANON__[:89]Net::LibIDN::__ANON__[:89]
0	0	0	0s	0s	Net::LibIDN::::__ANON__[:93]Net::LibIDN::__ANON__[:93]

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::LibIDN;
2
3	2	113µs	1	59µs	# spent 59µs within Net::LibIDN::BEGIN@3 which was called: # once (59µs+0s) by Net::DNS::Domain::BEGIN@53 at line 3 use 5.006; # spent 59µs making 1 call to Net::LibIDN::BEGIN@3
4	2	50µs	2	46µs	# spent 37µs (28+9) within Net::LibIDN::BEGIN@4 which was called: # once (28µs+9µs) by Net::DNS::Domain::BEGIN@53 at line 4 use strict; # spent 37µs making 1 call to Net::LibIDN::BEGIN@4 # spent 9µs making 1 call to strict::import
5	2	48µs	2	64µs	# spent 41µs (18+23) within Net::LibIDN::BEGIN@5 which was called: # once (18µs+23µs) by Net::DNS::Domain::BEGIN@53 at line 5 use warnings; # spent 41µs making 1 call to Net::LibIDN::BEGIN@5 # spent 23µs making 1 call to warnings::import
6	2	51µs	2	161µs	# spent 90µs (20+70) within Net::LibIDN::BEGIN@6 which was called: # once (20µs+70µs) by Net::DNS::Domain::BEGIN@53 at line 6 use Errno; # spent 90µs making 1 call to Net::LibIDN::BEGIN@6 # spent 70µs making 1 call to Exporter::import
7	2	71µs	2	273µs	# spent 146µs (19+127) within Net::LibIDN::BEGIN@7 which was called: # once (19µs+127µs) by Net::DNS::Domain::BEGIN@53 at line 7 use Carp; # spent 146µs making 1 call to Net::LibIDN::BEGIN@7 # spent 127µs making 1 call to Exporter::import
8
9	1	2µs			require Exporter;
10	1	2µs			require DynaLoader;
11	2	556µs	2	780µs	# spent 401µs (23+378) within Net::LibIDN::BEGIN@11 which was called: # once (23µs+378µs) by Net::DNS::Domain::BEGIN@53 at line 11 use AutoLoader; # spent 401µs making 1 call to Net::LibIDN::BEGIN@11 # spent 378µs making 1 call to AutoLoader::import
12
13	1	19µs			our @ISA = qw(Exporter DynaLoader);
14
15					# Items to export into callers namespace by default. Note: do not export
16					# names by default without a very good reason. Use EXPORT_OK instead.
17					# Do not simply export all your public functions/methods/constants.
18
19					# This allows declaration use Net::LibIDN ':all';
20					# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
21					# will save memory.
22	1	6µs			our %EXPORT_TAGS = ( 'all' => [ qw(
23					idn_to_ascii
24					idn_to_unicode
25					idn_punycode_encode
26					idn_punycode_decode
27					idn_prep_name
28					idn_prep_kerberos5
29					idn_prep_node
30					idn_prep_resource
31					idn_prep_plain
32					idn_prep_trace
33					idn_prep_sasl
34					idn_prep_iscsi
35					tld_check
36					tld_get
37					tld_get_table
38					IDNA_ALLOW_UNASSIGNED
39					IDNA_USE_STD3_ASCII_RULES
40					) ] );
41
42	2	8µs			our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
43
44	1	2µs			our @EXPORT = qw(
45					IDNA_ALLOW_UNASSIGNED
46					IDNA_USE_STD3_ASCII_RULES
47					);
48	1	2µs			our $VERSION = '0.12';
49
50					# avoid prototyping error message
51
52					sub IDNA_ALLOW_UNASSIGNED
53					{
54					return constant("IDNA_ALLOW_UNASSIGNED", length("IDNA_ALLOW_UNASSIGNED"));
55					}
56
57					sub IDNA_USE_STD3_ASCII_RULES
58					{
59					return constant("IDNA_USE_STD3_ASCII_RULES", length("IDNA_USE_STD3_ASCII_RULES"));
60					}
61
62					sub AUTOLOAD {
63					# This AUTOLOAD is used to 'autoload' constants from the constant()
64					# XS function. If a constant is not found then control is passed
65					# to the AUTOLOAD in AutoLoader.
66
67					my $constname;
68					our $AUTOLOAD;
69					($constname = $AUTOLOAD) =~ s/.*:://;
70					croak "& not defined" if $constname eq 'constant';
71					my $val = constant($constname, @_ ? $_[0] : 0);
72					if ($! != 0)
73					{
74					if ($!{EINVAL})
75					{
76					$AutoLoader::AUTOLOAD = $AUTOLOAD;
77					goto &AutoLoader::AUTOLOAD;
78					}
79					else
80					{
81					croak "Your vendor has not defined Net::LibIDN macro $constname";
82					}
83					}
84					{
85	2	261µs	2	128µs	# spent 75µs (22+53) within Net::LibIDN::BEGIN@85 which was called: # once (22µs+53µs) by Net::DNS::Domain::BEGIN@53 at line 85 no strict 'refs'; # spent 75µs making 1 call to Net::LibIDN::BEGIN@85 # spent 53µs making 1 call to strict::unimport
86					# Fixed between 5.005_53 and 5.005_61
87					if ($] >= 5.00561)
88					{
89					*$AUTOLOAD = sub () { $val };
90					}
91					else
92					{
93					*$AUTOLOAD = sub { $val };
94					}
95					}
96					goto &$AUTOLOAD;
97					}
98
99	1	16µs	1	852µs	bootstrap Net::LibIDN $VERSION; # spent 852µs making 1 call to DynaLoader::bootstrap
100
101					# Preloaded methods go here.
102
103					# Autoload methods go after =cut, and are processed by the autosplit program.
104
105	1	20µs			1;
106					__END__

					# spent 74µs within Net::LibIDN::bootstrap which was called: # once (74µs+0s) by DynaLoader::bootstrap at line 210 of DynaLoader.pm sub Net::LibIDN::bootstrap; # xsub