Profile of Ref/Util.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	34µs	34µs	Ref::Util::::_install_aliasesRef::Util::_install_aliases
1	1	1	26µs	28µs	Ref::Util::::BEGIN@4Ref::Util::BEGIN@4
1	1	1	11µs	24µs	Ref::Util::::BEGIN@7Ref::Util::BEGIN@7
1	1	1	5µs	29µs	Ref::Util::::BEGIN@5Ref::Util::BEGIN@5
1	1	1	3µs	15µs	Ref::Util::::BEGIN@24Ref::Util::BEGIN@24
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	0s			$Ref::Util::VERSION = '0.204';
4	2	23µs	2	30µs	# spent 28µs (26+2) within Ref::Util::BEGIN@4 which was called: # once (26µs+2µs) by OpenAPI::Modern::BEGIN@20 at line 4 use strict; # spent 28µs making 1 call to Ref::Util::BEGIN@4 # spent 2µs making 1 call to strict::import
5	2	20µs	2	53µs	# spent 29µs (5+24) within Ref::Util::BEGIN@5 which was called: # once (5µs+24µs) by OpenAPI::Modern::BEGIN@20 at line 5 use warnings; # spent 29µs making 1 call to Ref::Util::BEGIN@5 # spent 24µs making 1 call to warnings::import
6
7	3	88µs	3	37µs	# spent 24µs (11+13) within Ref::Util::BEGIN@7 which was called: # once (11µs+13µs) by OpenAPI::Modern::BEGIN@20 at line 7 use Exporter 5.57 'import'; # spent 24µs making 1 call to Ref::Util::BEGIN@7 # spent 8µ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	1µs			\|\| our $IMPLEMENTATION
12					\|\| 'XS';
13	3	835µs	1	34µs	if ($impl ne 'PP' && eval { require Ref::Util::XS; 1 }) { # spent 34µ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 34µs within Ref::Util::_install_aliases which was called: # once (34µs+0s) by OpenAPI::Modern::BEGIN@20 at line 13 sub _install_aliases {
23	1	2µs			my ($package) = @_;
24	2	12µs	2	27µs	# spent 15µs (3+12) within Ref::Util::BEGIN@24 which was called: # once (3µs+12µs) by OpenAPI::Modern::BEGIN@20 at line 24 no warnings 'once'; # spent 15µs making 1 call to Ref::Util::BEGIN@24 # spent 12µs making 1 call to warnings::unimport
25	2	117µ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	2µs			our %EXPORT_TAGS = %{"${package}::EXPORT_TAGS"};
27	1	2µs			our @EXPORT_OK = @{"${package}::EXPORT_OK"};
28	1	31µs			*$_ = \&{"${package}::$_"} for '_using_custom_ops', @EXPORT_OK;
29					}
30
31	1	5µs			1;
32
33					__END__