Profile of Moo/

Filename	/usr/share/perl5/Moo/_Utils.pm
Statements	Executed 3338 statements in 17.4ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
547	2	2	8.40ms	15.3ms	Moo::_Utils::::_install_coderefMoo::_Utils::_install_coderef
584	7	3	1.99ms	1.99ms	Moo::_Utils::::_getglobMoo::_Utils::_getglob
547	1	1	1.69ms	4.98ms	Moo::_Utils::::_name_coderefMoo::_Utils::_name_coderef
1	1	1	351µs	513µs	Moo::_Utils::::BEGIN@14Moo::_Utils::BEGIN@14
1	1	1	182µs	234µs	Moo::_Utils::::BEGIN@16Moo::_Utils::BEGIN@16
1	1	1	22µs	56µs	Moo::_Utils::::BEGIN@11Moo::_Utils::BEGIN@11
1	1	1	18µs	45µs	Moo::_Utils::::BEGIN@12Moo::_Utils::BEGIN@12
1	1	1	13µs	56µs	Moo::_Utils::::_maybe_load_moduleMoo::_Utils::_maybe_load_module
1	1	1	12µs	20µs	Moo::_Utils::::BEGIN@3Moo::_Utils::BEGIN@3
2	1	1	12µs	42µs	Moo::_Utils::::_set_loadedMoo::_Utils::_set_loaded
1	1	1	10µs	22µs	Moo::_Utils::::BEGIN@17Moo::_Utils::BEGIN@17
1	1	1	10µs	36µs	Moo::_Utils::::BEGIN@8Moo::_Utils::BEGIN@8
1	1	1	9µs	18µs	Moo::_Utils::::BEGIN@89Moo::_Utils::BEGIN@89
1	1	1	9µs	15µs	Moo::_Utils::::BEGIN@15Moo::_Utils::BEGIN@15
1	1	1	9µs	24µs	Moo::_Utils::::BEGIN@9Moo::_Utils::BEGIN@9
1	1	1	8µs	18µs	Moo::_Utils::::BEGIN@82Moo::_Utils::BEGIN@82
1	1	1	8µs	15µs	Moo::_Utils::::BEGIN@112Moo::_Utils::BEGIN@112
2	1	1	4µs	4µs	Moo::_Utils::::_getstashMoo::_Utils::_getstash
0	0	0	0s	0s	Moo::_Utils::::_get_linear_isaMoo::_Utils::_get_linear_isa
0	0	0	0s	0s	Moo::_Utils::::_install_modifierMoo::_Utils::_install_modifier
0	0	0	0s	0s	Moo::_Utils::::_load_moduleMoo::_Utils::_load_module
0	0	0	0s	0s	Moo::_Utils::::_unimport_coderefsMoo::_Utils::_unimport_coderefs

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Moo::_Utils;
2
3	2	96µs	2	28µs	# spent 20µs (12+8) within Moo::_Utils::BEGIN@3 which was called: # once (12µs+8µs) by Sub::Defer::BEGIN@5 at line 3 no warnings 'once'; # guard against -w # spent 20µs making 1 call to Moo::_Utils::BEGIN@3 # spent 8µs making 1 call to warnings::unimport
4
5	584	7.21ms			# spent 1.99ms within Moo::_Utils::_getglob which was called 584 times, avg 3µs/call: # 547 times (1.91ms+0s) by Moo::_Utils::_install_coderef at line 81, avg 3µs/call # 14 times (42µs+0s) by Sub::Defer::undefer_sub at line 25 of Sub/Defer.pm, avg 3µs/call # 14 times (15µs+0s) by Sub::Defer::undefer_sub at line 30 of Sub/Defer.pm, avg 1µs/call # 6 times (19µs+0s) by Method::Generate::Accessor::generate_method at line 109 of Method/Generate/Accessor.pm, avg 3µs/call # once (5µs+0s) by Method::Generate::Accessor::generate_method at line 126 of Method/Generate/Accessor.pm # once (3µs+0s) by Method::Generate::Accessor::generate_method at line 146 of Method/Generate/Accessor.pm # once (3µs+0s) by Method::Generate::Accessor::generate_method at line 182 of Method/Generate/Accessor.pm sub _getglob { \*{$_[0]} }
6	2	7µs			# spent 4µs within Moo::_Utils::_getstash which was called 2 times, avg 2µs/call: # 2 times (4µs+0s) by Moo::import at line 68 of Moo.pm, avg 2µs/call sub _getstash { \%{"$_[0]::"} }
7
8	2	69µs	2	62µs	# spent 36µs (10+26) within Moo::_Utils::BEGIN@8 which was called: # once (10µs+26µs) by Sub::Defer::BEGIN@5 at line 8 use constant lt_5_8_3 => ( $] < 5.008003 or $ENV{MOO_TEST_PRE_583} ) ? 1 : 0; # spent 36µs making 1 call to Moo::_Utils::BEGIN@8 # spent 26µs making 1 call to constant::import
9	3	45µs	2	39µs	# spent 24µs (9+15) within Moo::_Utils::BEGIN@9 which was called: # once (9µs+15µs) by Sub::Defer::BEGIN@5 at line 9 use constant can_haz_subname => eval { require Sub::Name }; # spent 24µs making 1 call to Moo::_Utils::BEGIN@9 # spent 15µs making 1 call to constant::import
10
11	3	32µs	3	89µs	# spent 56µs (22+34) within Moo::_Utils::BEGIN@11 which was called: # once (22µs+34µs) by Sub::Defer::BEGIN@5 at line 11 use strictures 1; # spent 56µs making 1 call to Moo::_Utils::BEGIN@11 # spent 21µs making 1 call to strictures::import # spent 13µs making 1 call to strictures::VERSION
12	2	63µs	2	72µs	# spent 45µs (18+27) within Moo::_Utils::BEGIN@12 which was called: # once (18µs+27µs) by Sub::Defer::BEGIN@5 at line 12 use Module::Runtime qw(use_package_optimistically module_notional_filename); # spent 45µs making 1 call to Moo::_Utils::BEGIN@12 # spent 27µs making 1 call to Module::Runtime::import
13
14	2	150µs	1	513µs	# spent 513µs (351+162) within Moo::_Utils::BEGIN@14 which was called: # once (351µs+162µs) by Sub::Defer::BEGIN@5 at line 14 use Devel::GlobalDestruction (); # spent 513µs making 1 call to Moo::_Utils::BEGIN@14
15	2	31µs	2	21µs	# spent 15µs (9+6) within Moo::_Utils::BEGIN@15 which was called: # once (9µs+6µs) by Sub::Defer::BEGIN@5 at line 15 use Exporter qw(import); # spent 15µs making 1 call to Moo::_Utils::BEGIN@15 # spent 6µs making 1 call to Exporter::import
16	2	176µs	1	234µs	# spent 234µs (182+52) within Moo::_Utils::BEGIN@16 which was called: # once (182µs+52µs) by Sub::Defer::BEGIN@5 at line 16 use Moo::_mro; # spent 234µs making 1 call to Moo::_Utils::BEGIN@16
17	2	459µs	2	34µs	# spent 22µs (10+12) within Moo::_Utils::BEGIN@17 which was called: # once (10µs+12µs) by Sub::Defer::BEGIN@5 at line 17 use Config; # spent 22µs making 1 call to Moo::_Utils::BEGIN@17 # spent 12µs making 1 call to Config::import
18
19	1	2µs			our @EXPORT = qw(
20					_getglob _install_modifier _load_module _maybe_load_module
21					_get_linear_isa _getstash _install_coderef _name_coderef
22					_unimport_coderefs _in_global_destruction _set_loaded
23					);
24
25					sub _in_global_destruction ();
26	1	3µs			*_in_global_destruction = \&Devel::GlobalDestruction::in_global_destruction;
27
28					sub _install_modifier {
29					my ($into, $type, $name, $code) = @_;
30
31					if (my $to_modify = $into->can($name)) { # CMM will throw for us if not
32					require Sub::Defer;
33					Sub::Defer::undefer_sub($to_modify);
34					}
35
36					Class::Method::Modifiers::install_modifier(@_);
37					}
38
39	1	200ns			our %MAYBE_LOADED;
40
41					sub _load_module {
42					my $module = $_[0];
43					my $file = module_notional_filename($module);
44					use_package_optimistically($module);
45					return 1
46					if $INC{$file};
47					my $error = $@ \|\| "Can't locate $file";
48
49					# can't just ->can('can') because a sub-package Foo::Bar::Baz
50					# creates a 'Baz::' key in Foo::Bar's symbol table
51					my $stash = _getstash($module)\|\|{};
52					return 1 if grep +(!ref($_) and *$_{CODE}), values %$stash;
53					return 1
54					if $INC{"Moose.pm"} && Class::MOP::class_of($module)
55					or Mouse::Util->can('find_meta') && Mouse::Util::find_meta($module);
56					die $error;
57					}
58
59					# spent 56µs (13+43) within Moo::_Utils::_maybe_load_module which was called: # once (13µs+43µs) by Method::Generate::Accessor::BEGIN@11 at line 17 of Method/Generate/Accessor.pm sub _maybe_load_module {
60	1	700ns			my $module = $_[0];
61	1	700ns			return $MAYBE_LOADED{$module}
62					if exists $MAYBE_LOADED{$module};
63	2	57µs	2	43µs	if(! eval { use_package_optimistically($module) }) { # spent 34µs making 1 call to Module::Runtime::use_package_optimistically # spent 9µs making 1 call to Module::Runtime::module_notional_filename
64					warn "$module exists but failed to load with error: $@";
65					}
66					elsif ( $INC{module_notional_filename($module)} ) {
67					return $MAYBE_LOADED{$module} = 1;
68					}
69					return $MAYBE_LOADED{$module} = 0;
70					}
71
72					# spent 42µs (12+30) within Moo::_Utils::_set_loaded which was called 2 times, avg 21µs/call: # 2 times (12µs+30µs) by Moo::import at line 23 of Moo.pm, avg 21µs/call sub _set_loaded {
73	2	43µs	2	30µs	$INC{Module::Runtime::module_notional_filename($_[0])} \|\|= $_[1]; # spent 30µs making 2 calls to Module::Runtime::module_notional_filename, avg 15µs/call
74					}
75
76					sub _get_linear_isa {
77					return mro::get_linear_isa($_[0]);
78					}
79
80					# spent 15.3ms (8.40+6.89) within Moo::_Utils::_install_coderef which was called 547 times, avg 28µs/call: # 535 times (8.34ms+6.80ms) by Sub::Defer::defer_sub at line 61 of Sub/Defer.pm, avg 28µs/call # 12 times (60µs+84µs) by Moo::_install_tracked at line 17 of Moo.pm, avg 12µs/call sub _install_coderef {
81	547	1.92ms	1094	6.89ms	my ($glob, $code) = (_getglob($_[0]), _name_coderef(@_)); # spent 4.98ms making 547 calls to Moo::_Utils::_name_coderef, avg 9µs/call # spent 1.91ms making 547 calls to Moo::_Utils::_getglob, avg 3µs/call
82	2	64µs	2	27µs	# spent 18µs (8+9) within Moo::_Utils::BEGIN@82 which was called: # once (8µs+9µs) by Sub::Defer::BEGIN@5 at line 82 no warnings 'redefine'; # spent 18µs making 1 call to Moo::_Utils::BEGIN@82 # spent 9µs making 1 call to warnings::unimport
83	547	1.11ms			if (*{$glob}{CODE}) {
84					*{$glob} = $code;
85					}
86					# perl will sometimes warn about mismatched prototypes coming from the
87					# inheritance cache, so disable them if we aren't redefining a sub
88					else {
89	2	192µs	2	26µs	# spent 18µs (9+8) within Moo::_Utils::BEGIN@89 which was called: # once (9µs+8µs) by Sub::Defer::BEGIN@5 at line 89 no warnings 'prototype'; # spent 18µs making 1 call to Moo::_Utils::BEGIN@89 # spent 8µs making 1 call to warnings::unimport
90	527	310µs			*{$glob} = $code;
91					}
92					}
93
94					# spent 4.98ms (1.69+3.28) within Moo::_Utils::_name_coderef which was called 547 times, avg 9µs/call: # 547 times (1.69ms+3.28ms) by Moo::_Utils::_install_coderef at line 81, avg 9µs/call sub _name_coderef {
95	547	215µs			shift if @_ > 2; # three args is (target, name, sub)
96	547	4.94ms	547	3.28ms	can_haz_subname ? Sub::Name::subname(@_) : $_[1]; # spent 3.28ms making 547 calls to Sub::Name::subname, avg 6µs/call
97					}
98
99					sub _unimport_coderefs {
100					my ($target, $info) = @_;
101					return unless $info and my $exports = $info->{exports};
102					my %rev = reverse %$exports;
103					my $stash = _getstash($target);
104					foreach my $name (keys %$exports) {
105					if ($stash->{$name} and defined(&{$stash->{$name}})) {
106					if ($rev{$target->can($name)}) {
107					my $old = delete $stash->{$name};
108					my $full_name = join('::',$target,$name);
109					# Copy everything except the code slot back into place (e.g. $has)
110					foreach my $type (qw(SCALAR HASH ARRAY IO)) {
111					next unless defined(*{$old}{$type});
112	2	97µs	2	21µs	# spent 15µs (8+6) within Moo::_Utils::BEGIN@112 which was called: # once (8µs+6µs) by Sub::Defer::BEGIN@5 at line 112 no strict 'refs'; # spent 15µs making 1 call to Moo::_Utils::BEGIN@112 # spent 6µs making 1 call to strict::unimport
113					$full_name = {$old}{$type};
114					}
115					}
116					}
117					}
118					}
119
120	1	106µs	1	3µs	if ($Config{useithreads}) { # spent 3µs making 1 call to Config::FETCH
121					require Moo::HandleMoose::_TypeMap;
122					}
123
124	1	3µs			1;