Profile of Ref/Util.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	52µs	52µs	Ref::Util::::_install_aliasesRef::Util::_install_aliases
1	1	1	42µs	46µs	Ref::Util::::BEGIN@4Ref::Util::BEGIN@4
1	1	1	14µs	39µs	Ref::Util::::BEGIN@7Ref::Util::BEGIN@7
1	1	1	7µs	26µs	Ref::Util::::BEGIN@24Ref::Util::BEGIN@24
1	1	1	5µs	12µs	Ref::Util::::BEGIN@25Ref::Util::BEGIN@25
1	1	1	5µs	44µ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	35µs	2	50µs	# spent 46µs (42+4) within Ref::Util::BEGIN@4 which was called: # once (42µs+4µs) by OpenAPI::Modern::BEGIN@20 at line 4 use strict; # spent 46µs making 1 call to Ref::Util::BEGIN@4 # spent 4µs making 1 call to strict::import
5	2	28µs	2	83µs	# spent 44µs (5+39) within Ref::Util::BEGIN@5 which was called: # once (5µs+39µs) by OpenAPI::Modern::BEGIN@20 at line 5 use warnings; # spent 44µs making 1 call to Ref::Util::BEGIN@5 # spent 39µs making 1 call to warnings::import
6
7	3	141µs	3	64µs	# spent 39µs (14+25) within Ref::Util::BEGIN@7 which was called: # once (14µs+25µs) by OpenAPI::Modern::BEGIN@20 at line 7 use Exporter 5.57 'import'; # spent 39µs making 1 call to Ref::Util::BEGIN@7 # spent 19µs making 1 call to UNIVERSAL::VERSION # spent 6µs making 1 call to Exporter::import
8
9					{
10	1	0s			my $impl = $ENV{PERL_REF_UTIL_IMPLEMENTATION}
11	1	1µs			\|\| our $IMPLEMENTATION
12					\|\| 'XS';
13	3	510µs	1	52µs	if ($impl ne 'PP' && eval { require Ref::Util::XS; 1 }) { # spent 52µ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 52µs within Ref::Util::_install_aliases which was called: # once (52µs+0s) by OpenAPI::Modern::BEGIN@20 at line 13 sub _install_aliases {
23	1	1µs			my ($package) = @_;
24	2	22µs	2	45µs	# spent 26µs (7+19) within Ref::Util::BEGIN@24 which was called: # once (7µs+19µs) by OpenAPI::Modern::BEGIN@20 at line 24 no warnings 'once'; # spent 26µs making 1 call to Ref::Util::BEGIN@24 # spent 19µs making 1 call to warnings::unimport
25	2	169µs	2	19µs	# spent 12µs (5+7) within Ref::Util::BEGIN@25 which was called: # once (5µs+7µs) by OpenAPI::Modern::BEGIN@20 at line 25 no strict 'refs'; # spent 12µs making 1 call to Ref::Util::BEGIN@25 # spent 7µs making 1 call to strict::unimport
26	1	3µs			our %EXPORT_TAGS = %{"${package}::EXPORT_TAGS"};
27	1	4µs			our @EXPORT_OK = @{"${package}::EXPORT_OK"};
28	1	46µs			*$_ = \&{"${package}::$_"} for '_using_custom_ops', @EXPORT_OK;
29					}
30
31	1	11µs			1;
32
33					__END__