Profile of Moo/

Filename	/usr/share/perl5/Moo/_Utils.pm
Statements	Executed 3342 statements in 15.1ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
547	2	2	7.35ms	12.9ms	Moo::_Utils::::_install_coderefMoo::_Utils::_install_coderef
588	7	3	1.91ms	1.91ms	Moo::_Utils::::_getglobMoo::_Utils::_getglob
547	1	1	1.47ms	3.73ms	Moo::_Utils::::_name_coderefMoo::_Utils::_name_coderef
1	1	1	324µs	503µs	Moo::_Utils::::BEGIN@14Moo::_Utils::BEGIN@14
1	1	1	143µs	202µs	Moo::_Utils::::BEGIN@16Moo::_Utils::BEGIN@16
1	1	1	18µs	59µs	Moo::_Utils::::_maybe_load_moduleMoo::_Utils::_maybe_load_module
1	1	1	16µs	24µs	Moo::_Utils::::BEGIN@3Moo::_Utils::BEGIN@3
2	1	1	13µs	42µs	Moo::_Utils::::_set_loadedMoo::_Utils::_set_loaded
1	1	1	11µs	37µs	Moo::_Utils::::BEGIN@12Moo::_Utils::BEGIN@12
1	1	1	10µs	62µs	Moo::_Utils::::BEGIN@11Moo::_Utils::BEGIN@11
1	1	1	10µs	40µs	Moo::_Utils::::BEGIN@8Moo::_Utils::BEGIN@8
1	1	1	9µs	21µs	Moo::_Utils::::BEGIN@17Moo::_Utils::BEGIN@17
1	1	1	9µs	24µs	Moo::_Utils::::BEGIN@9Moo::_Utils::BEGIN@9
1	1	1	8µs	14µs	Moo::_Utils::::BEGIN@112Moo::_Utils::BEGIN@112
1	1	1	8µs	18µs	Moo::_Utils::::BEGIN@82Moo::_Utils::BEGIN@82
1	1	1	8µs	15µs	Moo::_Utils::::BEGIN@15Moo::_Utils::BEGIN@15
1	1	1	6µs	12µs	Moo::_Utils::::BEGIN@89Moo::_Utils::BEGIN@89
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	101µs	2	32µs	# spent 24µs (16+8) within Moo::_Utils::BEGIN@3 which was called: # once (16µs+8µs) by Sub::Defer::BEGIN@5 at line 3 no warnings 'once'; # guard against -w # spent 24µs making 1 call to Moo::_Utils::BEGIN@3 # spent 8µs making 1 call to warnings::unimport
4
5	588	2.52ms			# spent 1.91ms within Moo::_Utils::_getglob which was called 588 times, avg 3µs/call: # 547 times (1.81ms+0s) by Moo::_Utils::_install_coderef at line 81, avg 3µs/call # 16 times (42µs+0s) by Sub::Defer::undefer_sub at line 25 of Sub/Defer.pm, avg 3µs/call # 16 times (17µs+0s) by Sub::Defer::undefer_sub at line 30 of Sub/Defer.pm, avg 1µs/call # 6 times (18µs+0s) by Method::Generate::Accessor::generate_method at line 109 of Method/Generate/Accessor.pm, avg 3µs/call # once (14µ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 (2µ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	70µs	# spent 40µs (10+30) within Moo::_Utils::BEGIN@8 which was called: # once (10µs+30µ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 40µs making 1 call to Moo::_Utils::BEGIN@8 # spent 30µs making 1 call to constant::import
9	3	46µs	2	40µ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 16µs making 1 call to constant::import
10
11	3	32µs	3	113µs	# spent 62µs (10+51) within Moo::_Utils::BEGIN@11 which was called: # once (10µs+51µs) by Sub::Defer::BEGIN@5 at line 11 use strictures 1; # spent 62µs making 1 call to Moo::_Utils::BEGIN@11 # spent 38µs making 1 call to strictures::import # spent 13µs making 1 call to strictures::VERSION
12	2	55µs	2	63µs	# spent 37µs (11+26) within Moo::_Utils::BEGIN@12 which was called: # once (11µs+26µs) by Sub::Defer::BEGIN@5 at line 12 use Module::Runtime qw(use_package_optimistically module_notional_filename); # spent 37µs making 1 call to Moo::_Utils::BEGIN@12 # spent 26µs making 1 call to Module::Runtime::import
13
14	2	140µs	1	503µs	# spent 503µs (324+179) within Moo::_Utils::BEGIN@14 which was called: # once (324µs+179µs) by Sub::Defer::BEGIN@5 at line 14 use Devel::GlobalDestruction (); # spent 503µs making 1 call to Moo::_Utils::BEGIN@14
15	2	32µs	2	22µs	# spent 15µs (8+7) within Moo::_Utils::BEGIN@15 which was called: # once (8µs+7µ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 7µs making 1 call to Exporter::import
16	2	139µs	1	202µs	# spent 202µs (143+60) within Moo::_Utils::BEGIN@16 which was called: # once (143µs+60µs) by Sub::Defer::BEGIN@5 at line 16 use Moo::_mro; # spent 202µs making 1 call to Moo::_Utils::BEGIN@16
17	2	459µs	2	34µs	# spent 21µs (9+12) within Moo::_Utils::BEGIN@17 which was called: # once (9µs+12µs) by Sub::Defer::BEGIN@5 at line 17 use Config; # spent 21µ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 59µs (18+42) within Moo::_Utils::_maybe_load_module which was called: # once (18µs+42µs) by Method::Generate::Accessor::BEGIN@11 at line 17 of Method/Generate/Accessor.pm sub _maybe_load_module {
60	1	600ns			my $module = $_[0];
61	1	500ns			return $MAYBE_LOADED{$module}
62					if exists $MAYBE_LOADED{$module};
63	2	60µs	2	42µs	if(! eval { use_package_optimistically($module) }) { # spent 36µs making 1 call to Module::Runtime::use_package_optimistically # spent 6µ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 (13+29) within Moo::_Utils::_set_loaded which was called 2 times, avg 21µs/call: # 2 times (13µs+29µs) by Moo::import at line 23 of Moo.pm, avg 21µs/call sub _set_loaded {
73	2	45µs	2	29µs	$INC{Module::Runtime::module_notional_filename($_[0])} \|\|= $_[1]; # spent 29µs making 2 calls to Module::Runtime::module_notional_filename, avg 14µs/call
74					}
75
76					sub _get_linear_isa {
77					return mro::get_linear_isa($_[0]);
78					}
79
80					# spent 12.9ms (7.35+5.54) within Moo::_Utils::_install_coderef which was called 547 times, avg 24µs/call: # 535 times (7.29ms+5.46ms) by Sub::Defer::defer_sub at line 61 of Sub/Defer.pm, avg 24µ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.23ms	1094	5.54ms	my ($glob, $code) = (_getglob($_[0]), _name_coderef(@_)); # spent 3.73ms making 547 calls to Moo::_Utils::_name_coderef, avg 7µs/call # spent 1.81ms making 547 calls to Moo::_Utils::_getglob, avg 3µs/call
82	2	53µ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.24ms			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	191µs	2	18µs	# spent 12µs (6+6) within Moo::_Utils::BEGIN@89 which was called: # once (6µs+6µs) by Sub::Defer::BEGIN@5 at line 89 no warnings 'prototype'; # spent 12µs making 1 call to Moo::_Utils::BEGIN@89 # spent 6µs making 1 call to warnings::unimport
90	527	364µs			*{$glob} = $code;
91					}
92					}
93
94					# spent 3.73ms (1.47+2.25) within Moo::_Utils::_name_coderef which was called 547 times, avg 7µs/call: # 547 times (1.47ms+2.25ms) by Moo::_Utils::_install_coderef at line 81, avg 7µs/call sub _name_coderef {
95	547	157µs			shift if @_ > 2; # three args is (target, name, sub)
96	547	7.90ms	547	2.25ms	can_haz_subname ? Sub::Name::subname(@_) : $_[1]; # spent 2.25ms making 547 calls to Sub::Name::subname, avg 4µ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	94µs	2	20µs	# spent 14µ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 14µ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	112µ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	4µs			1;