Profile of Ref/Util.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	35µs	35µs	Ref::Util::::_install_aliasesRef::Util::_install_aliases
1	1	1	20µs	22µs	Ref::Util::::BEGIN@4Ref::Util::BEGIN@4
1	1	1	12µs	23µs	Ref::Util::::BEGIN@7Ref::Util::BEGIN@7
1	1	1	6µs	15µs	Ref::Util::::BEGIN@24Ref::Util::BEGIN@24
1	1	1	4µs	26µs	Ref::Util::::BEGIN@5Ref::Util::BEGIN@5
1	1	1	3µs	8µs	Ref::Util::::BEGIN@25Ref::Util::BEGIN@25

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	1µs			$Ref::Util::VERSION = '0.204';
4	2	22µs	2	24µs	# spent 22µs (20+2) within Ref::Util::BEGIN@4 which was called: # once (20µs+2µs) by OpenAPI::Modern::BEGIN@20 at line 4 use strict; # spent 22µs making 1 call to Ref::Util::BEGIN@4 # spent 2µs making 1 call to strict::import
5	2	25µ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	75µs	3	34µs	# spent 23µs (12+11) within Ref::Util::BEGIN@7 which was called: # once (12µs+11µ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 7µs making 1 call to UNIVERSAL::VERSION # spent 4µs making 1 call to Exporter::import
8
9					{
10	1	1µs			my $impl = $ENV{PERL_REF_UTIL_IMPLEMENTATION}
11	1	1µs			\|\| our $IMPLEMENTATION
12					\|\| 'XS';
13	3	409µs	1	35µs	if ($impl ne 'PP' && eval { require Ref::Util::XS; 1 }) { # spent 35µ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 35µs within Ref::Util::_install_aliases which was called: # once (35µs+0s) by OpenAPI::Modern::BEGIN@20 at line 13 sub _install_aliases {
23	1	1µs			my ($package) = @_;
24	2	14µs	2	24µs	# spent 15µs (6+9) within Ref::Util::BEGIN@24 which was called: # once (6µs+9µs) by OpenAPI::Modern::BEGIN@20 at line 24 no warnings 'once'; # spent 15µs making 1 call to Ref::Util::BEGIN@24 # spent 9µs making 1 call to warnings::unimport
25	2	111µs	2	13µs	# spent 8µs (3+5) within Ref::Util::BEGIN@25 which was called: # once (3µs+5µs) by OpenAPI::Modern::BEGIN@20 at line 25 no strict 'refs'; # spent 8µs making 1 call to Ref::Util::BEGIN@25 # spent 5µs making 1 call to strict::unimport
26	1	4µs			our %EXPORT_TAGS = %{"${package}::EXPORT_TAGS"};
27	1	4µs			our @EXPORT_OK = @{"${package}::EXPORT_OK"};
28	1	27µs			*$_ = \&{"${package}::$_"} for '_using_custom_ops', @EXPORT_OK;
29					}
30
31	1	7µs			1;
32
33					__END__