Profile of Ref/Util.pm

Filename	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Ref/Util.pm
Statements	Executed 22 statements in 1.08ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	44µs	44µs	Ref::Util::::_install_aliasesRef::Util::_install_aliases
1	1	1	18µs	20µs	Ref::Util::::BEGIN@4Ref::Util::BEGIN@4
1	1	1	8µs	23µs	Ref::Util::::BEGIN@7Ref::Util::BEGIN@7
1	1	1	5µs	20µs	Ref::Util::::BEGIN@24Ref::Util::BEGIN@24
1	1	1	5µs	14µs	Ref::Util::::BEGIN@25Ref::Util::BEGIN@25
1	1	1	4µs	26µs	Ref::Util::::BEGIN@5Ref::Util::BEGIN@5

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Ref::Util;
2					# ABSTRACT: Utility functions for checking references
3	1	0s			$Ref::Util::VERSION = '0.204';
4	2	19µs	2	22µs	# spent 20µs (18+2) within Ref::Util::BEGIN@4 which was called: # once (18µs+2µs) by OpenAPI::Modern::BEGIN@20 at line 4 use strict; # spent 20µs making 1 call to Ref::Util::BEGIN@4 # spent 2µs making 1 call to strict::import
5	2	21µs	2	48µs	# spent 26µs (4+22) within Ref::Util::BEGIN@5 which was called: # once (4µs+22µs) by OpenAPI::Modern::BEGIN@20 at line 5 use warnings; # spent 26µs making 1 call to Ref::Util::BEGIN@5 # spent 22µs making 1 call to warnings::import
6
7	3	88µs	3	38µs	# spent 23µs (8+15) within Ref::Util::BEGIN@7 which was called: # once (8µs+15µs) by OpenAPI::Modern::BEGIN@20 at line 7 use Exporter 5.57 'import'; # spent 23µs making 1 call to Ref::Util::BEGIN@7 # spent 10µs making 1 call to UNIVERSAL::VERSION # spent 5µs making 1 call to Exporter::import
8
9					{
10	1	0s			my $impl = $ENV{PERL_REF_UTIL_IMPLEMENTATION}
11	1	0s			\|\| our $IMPLEMENTATION
12					\|\| 'XS';
13	3	770µs	1	44µs	if ($impl ne 'PP' && eval { require Ref::Util::XS; 1 }) { # spent 44µs making 1 call to Ref::Util::_install_aliases
14					_install_aliases('Ref::Util::XS');
15					}
16					else {
17					require Ref::Util::PP;
18					_install_aliases('Ref::Util::PP');
19					}
20					}
21
22					# spent 44µs within Ref::Util::_install_aliases which was called: # once (44µs+0s) by OpenAPI::Modern::BEGIN@20 at line 13 sub _install_aliases {
23	1	1µs			my ($package) = @_;
24	2	14µs	2	35µs	# spent 20µs (5+15) within Ref::Util::BEGIN@24 which was called: # once (5µs+15µs) by OpenAPI::Modern::BEGIN@20 at line 24 no warnings 'once'; # spent 20µs making 1 call to Ref::Util::BEGIN@24 # spent 15µs making 1 call to warnings::unimport
25	2	115µs	2	23µs	# spent 14µs (5+9) within Ref::Util::BEGIN@25 which was called: # once (5µs+9µs) by OpenAPI::Modern::BEGIN@20 at line 25 no strict 'refs'; # spent 14µs making 1 call to Ref::Util::BEGIN@25 # spent 9µs making 1 call to strict::unimport
26	1	3µs			our %EXPORT_TAGS = %{"${package}::EXPORT_TAGS"};
27	1	5µs			our @EXPORT_OK = @{"${package}::EXPORT_OK"};
28	1	36µs			*$_ = \&{"${package}::$_"} for '_using_custom_ops', @EXPORT_OK;
29					}
30
31	1	7µs			1;
32
33					__END__