Profile of Moo/

Filename	/usr/share/perl5/Moo/_Utils.pm
Statements	Executed 0 statements in 0s

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
576	7	3	11.7ms	11.7ms	Moo::_Utils::::_getglobMoo::_Utils::_getglob
547	2	2	3.21ms	18.7ms	Moo::_Utils::::_install_coderefMoo::_Utils::_install_coderef
547	1	1	1.60ms	3.81ms	Moo::_Utils::::_name_coderefMoo::_Utils::_name_coderef
1	1	1	554µs	804µs	Moo::_Utils::::BEGIN@14Moo::_Utils::BEGIN@14
1	1	1	135µs	187µs	Moo::_Utils::::BEGIN@16Moo::_Utils::BEGIN@16
1	1	1	41µs	100µs	Moo::_Utils::::BEGIN@12Moo::_Utils::BEGIN@12
1	1	1	16µs	58µs	Moo::_Utils::::_maybe_load_moduleMoo::_Utils::_maybe_load_module
1	1	1	14µs	78µs	Moo::_Utils::::BEGIN@3Moo::_Utils::BEGIN@3
1	1	1	14µs	49µs	Moo::_Utils::::BEGIN@8Moo::_Utils::BEGIN@8
2	1	1	13µs	48µs	Moo::_Utils::::_set_loadedMoo::_Utils::_set_loaded
1	1	1	12µs	19µs	Moo::_Utils::::BEGIN@112Moo::_Utils::BEGIN@112
1	1	1	10µs	29µs	Moo::_Utils::::BEGIN@9Moo::_Utils::BEGIN@9
1	1	1	10µs	45µs	Moo::_Utils::::BEGIN@11Moo::_Utils::BEGIN@11
1	1	1	10µs	19µs	Moo::_Utils::::BEGIN@82Moo::_Utils::BEGIN@82
1	1	1	10µs	22µs	Moo::_Utils::::BEGIN@17Moo::_Utils::BEGIN@17
1	1	1	9µs	16µs	Moo::_Utils::::BEGIN@15Moo::_Utils::BEGIN@15
1	1	1	7µs	13µs	Moo::_Utils::::BEGIN@89Moo::_Utils::BEGIN@89
2	1	1	5µs	5µ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	Calls	Time in subs	Code
1			package Moo::_Utils;
2
3	2	142µs	# spent 78µs (14+64) within Moo::_Utils::BEGIN@3 which was called: # once (14µs+64µs) by Sub::Defer::BEGIN@5 at line 3 no warnings 'once'; # guard against -w # spent 78µs making 1 call to Moo::_Utils::BEGIN@3 # spent 64µs making 1 call to warnings::unimport
4
5			# spent 11.7ms within Moo::_Utils::_getglob which was called 576 times, avg 20µs/call: # 547 times (11.7ms+0s) by Moo::_Utils::_install_coderef at line 81, avg 21µs/call # 10 times (29µs+0s) by Sub::Defer::undefer_sub at line 25 of Sub/Defer.pm, avg 3µs/call # 10 times (12µs+0s) by Sub::Defer::undefer_sub at line 30 of Sub/Defer.pm, avg 1µs/call # 6 times (22µs+0s) by Method::Generate::Accessor::generate_method at line 109 of Method/Generate/Accessor.pm, avg 4µs/call # once (6µs+0s) by Method::Generate::Accessor::generate_method at line 182 of Method/Generate/Accessor.pm # once (4µ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 126 of Method/Generate/Accessor.pm sub _getglob { \*{$_[0]} }
6			# spent 5µs within Moo::_Utils::_getstash which was called 2 times, avg 2µs/call: # 2 times (5µs+0s) by Moo::import at line 68 of Moo.pm, avg 2µs/call sub _getstash { \%{"$_[0]::"} }
7
8	2	83µs	# spent 49µs (14+34) within Moo::_Utils::BEGIN@8 which was called: # once (14µs+34µ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 49µs making 1 call to Moo::_Utils::BEGIN@8 # spent 34µs making 1 call to constant::import
9	2	48µs	# spent 29µs (10+19) within Moo::_Utils::BEGIN@9 which was called: # once (10µs+19µs) by Sub::Defer::BEGIN@5 at line 9 use constant can_haz_subname => eval { require Sub::Name }; # spent 29µs making 1 call to Moo::_Utils::BEGIN@9 # spent 19µs making 1 call to constant::import
10
11	3	80µs	# spent 45µs (10+35) within Moo::_Utils::BEGIN@11 which was called: # once (10µs+35µs) by Sub::Defer::BEGIN@5 at line 11 use strictures 1; # spent 45µs making 1 call to Moo::_Utils::BEGIN@11 # spent 21µs making 1 call to strictures::import # spent 14µs making 1 call to strictures::VERSION
12	2	159µs	# spent 100µs (41+59) within Moo::_Utils::BEGIN@12 which was called: # once (41µs+59µs) by Sub::Defer::BEGIN@5 at line 12 use Module::Runtime qw(use_package_optimistically module_notional_filename); # spent 100µs making 1 call to Moo::_Utils::BEGIN@12 # spent 59µs making 1 call to Module::Runtime::import
13
14	1	804µs	# spent 804µs (554+250) within Moo::_Utils::BEGIN@14 which was called: # once (554µs+250µs) by Sub::Defer::BEGIN@5 at line 14 use Devel::GlobalDestruction (); # spent 804µs making 1 call to Moo::_Utils::BEGIN@14
15	2	24µs	# spent 16µs (9+7) within Moo::_Utils::BEGIN@15 which was called: # once (9µs+7µs) by Sub::Defer::BEGIN@5 at line 15 use Exporter qw(import); # spent 16µs making 1 call to Moo::_Utils::BEGIN@15 # spent 7µs making 1 call to Exporter::import
16	1	187µs	# spent 187µs (135+52) within Moo::_Utils::BEGIN@16 which was called: # once (135µs+52µs) by Sub::Defer::BEGIN@5 at line 16 use Moo::_mro; # spent 187µs making 1 call to Moo::_Utils::BEGIN@16
17	2	35µs	# spent 22µs (10+13) within Moo::_Utils::BEGIN@17 which was called: # once (10µs+13µs) by Sub::Defer::BEGIN@5 at line 17 use Config; # spent 22µs making 1 call to Moo::_Utils::BEGIN@17 # spent 13µs making 1 call to Config::import
18
19			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			*_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			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 58µs (16+42) within Moo::_Utils::_maybe_load_module which was called: # once (16µs+42µs) by Method::Generate::Accessor::BEGIN@11 at line 17 of Method/Generate/Accessor.pm sub _maybe_load_module {
60			my $module = $_[0];
61			return $MAYBE_LOADED{$module}
62			if exists $MAYBE_LOADED{$module};
63	2	42µs	if(! eval { use_package_optimistically($module) }) { # spent 37µ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 48µs (13+35) within Moo::_Utils::_set_loaded which was called 2 times, avg 24µs/call: # 2 times (13µs+35µs) by Moo::import at line 23 of Moo.pm, avg 24µs/call sub _set_loaded {
73	2	35µs	$INC{Module::Runtime::module_notional_filename($_[0])} \|\|= $_[1]; # spent 35µs making 2 calls to Module::Runtime::module_notional_filename, avg 18µs/call
74			}
75
76			sub _get_linear_isa {
77			return mro::get_linear_isa($_[0]);
78			}
79
80			# spent 18.7ms (3.21+15.5) within Moo::_Utils::_install_coderef which was called 547 times, avg 34µs/call: # 535 times (3.15ms+15.4ms) by Sub::Defer::defer_sub at line 61 of Sub/Defer.pm, avg 35µs/call # 12 times (61µs+96µs) by Moo::_install_tracked at line 17 of Moo.pm, avg 13µs/call sub _install_coderef {
81	1094	15.5ms	my ($glob, $code) = (_getglob($_[0]), _name_coderef(@_)); # spent 11.7ms making 547 calls to Moo::_Utils::_getglob, avg 21µs/call # spent 3.81ms making 547 calls to Moo::_Utils::_name_coderef, avg 7µs/call
82	2	28µs	# spent 19µs (10+9) within Moo::_Utils::BEGIN@82 which was called: # once (10µs+9µs) by Sub::Defer::BEGIN@5 at line 82 no warnings 'redefine'; # spent 19µs making 1 call to Moo::_Utils::BEGIN@82 # spent 9µs making 1 call to warnings::unimport
83			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	19µs	# spent 13µs (7+6) within Moo::_Utils::BEGIN@89 which was called: # once (7µs+6µs) by Sub::Defer::BEGIN@5 at line 89 no warnings 'prototype'; # spent 13µs making 1 call to Moo::_Utils::BEGIN@89 # spent 6µs making 1 call to warnings::unimport
90			*{$glob} = $code;
91			}
92			}
93
94			# spent 3.81ms (1.60+2.21) within Moo::_Utils::_name_coderef which was called 547 times, avg 7µs/call: # 547 times (1.60ms+2.21ms) by Moo::_Utils::_install_coderef at line 81, avg 7µs/call sub _name_coderef {
95			shift if @_ > 2; # three args is (target, name, sub)
96	547	2.21ms	can_haz_subname ? Sub::Name::subname(@_) : $_[1]; # spent 2.21ms 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	26µs	# spent 19µs (12+7) within Moo::_Utils::BEGIN@112 which was called: # once (12µs+7µs) by Sub::Defer::BEGIN@5 at line 112 no strict 'refs'; # spent 19µs making 1 call to Moo::_Utils::BEGIN@112 # spent 7µs making 1 call to strict::unimport
113			$full_name = {$old}{$type};
114			}
115			}
116			}
117			}
118			}
119
120	1	4µs	if ($Config{useithreads}) { # spent 4µs making 1 call to Config::FETCH
121			require Moo::HandleMoose::_TypeMap;
122			}
123
124			1;