Profile of Method/Generate/BuildAll.pm

Filename	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Method/Generate/BuildAll.pm
Statements	Executed 30 statements in 520µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
3	1	1	68µs	98µs	Method::Generate::BuildAll::buildall_body_for
1	1	1	35µs	65µs	Method::Generate::BuildAll::::BEGIN@3Method::Generate::BuildAll::BEGIN@3
1	1	1	29µs	33µs	Method::Generate::BuildAll::::BEGIN@2Method::Generate::BuildAll::BEGIN@2
1	1	1	10µs	44µs	Method::Generate::BuildAll::::BEGIN@7Method::Generate::BuildAll::BEGIN@7
1	1	1	8µs	8µs	Method::Generate::BuildAll::::BEGIN@6Method::Generate::BuildAll::BEGIN@6
1	1	1	5µs	51µs	Method::Generate::BuildAll::::BEGIN@8Method::Generate::BuildAll::BEGIN@8
1	1	1	3µs	3µs	Method::Generate::BuildAll::::BEGIN@5Method::Generate::BuildAll::BEGIN@5
0	0	0	0s	0s	Method::Generate::BuildAll::_handle_subbuild
0	0	0	0s	0s	Method::Generate::BuildAll::generate_method

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Method::Generate::BuildAll;
2	2	60µs	2	37µs	# spent 33µs (29+4) within Method::Generate::BuildAll::BEGIN@2 which was called: # once (29µs+4µs) by Method::Generate::Constructor::buildall_generator at line 2 use strict; # spent 33µs making 1 call to Method::Generate::BuildAll::BEGIN@2 # spent 4µs making 1 call to strict::import
3	2	50µs	2	95µs	# spent 65µs (35+30) within Method::Generate::BuildAll::BEGIN@3 which was called: # once (35µs+30µs) by Method::Generate::Constructor::buildall_generator at line 3 use warnings; # spent 65µs making 1 call to Method::Generate::BuildAll::BEGIN@3 # spent 30µs making 1 call to warnings::import
4
5	2	29µs	1	3µs	# spent 3µs within Method::Generate::BuildAll::BEGIN@5 which was called: # once (3µs+0s) by Method::Generate::Constructor::buildall_generator at line 5 use Moo::Object (); # spent 3µs making 1 call to Method::Generate::BuildAll::BEGIN@5
6	1	23µs	1	8µs	# spent 8µs within Method::Generate::BuildAll::BEGIN@6 which was called: # once (8µs+0s) by Method::Generate::Constructor::buildall_generator at line 6 BEGIN { our @ISA = qw(Moo::Object) } # spent 8µs making 1 call to Method::Generate::BuildAll::BEGIN@6
7	2	57µs	2	78µs	# spent 44µs (10+34) within Method::Generate::BuildAll::BEGIN@7 which was called: # once (10µs+34µs) by Method::Generate::Constructor::buildall_generator at line 7 use Sub::Quote qw(quote_sub quotify); # spent 44µs making 1 call to Method::Generate::BuildAll::BEGIN@7 # spent 34µs making 1 call to Exporter::import
8	2	228µs	2	97µs	# spent 51µs (5+46) within Method::Generate::BuildAll::BEGIN@8 which was called: # once (5µs+46µs) by Method::Generate::Constructor::buildall_generator at line 8 use Moo::_Utils qw(_getglob _linear_isa); # spent 51µs making 1 call to Method::Generate::BuildAll::BEGIN@8 # spent 46µs making 1 call to Exporter::import
9
10					sub generate_method {
11					my ($self, $into) = @_;
12					quote_sub "${into}::BUILDALL"
13					=> join('',
14					$self->_handle_subbuild($into),
15					qq{ my \$self = shift;\n},
16					$self->buildall_body_for($into, '$self', '@_'),
17					qq{ return \$self\n},
18					)
19					=> {}
20					=> { no_defer => 1 }
21					;
22					}
23
24					sub _handle_subbuild {
25					my ($self, $into) = @_;
26					' if (ref($_[0]) ne '.quotify($into).') {'."\n".
27					' return shift->Moo::Object::BUILDALL(@_)'.";\n".
28					' }'."\n";
29					}
30
31					# spent 98µs (68+30) within Method::Generate::BuildAll::buildall_body_for which was called 3 times, avg 33µs/call: # 3 times (68µs+30µs) by Method::Generate::Constructor::generate_method at line 138 of Method/Generate/Constructor.pm, avg 33µs/call sub buildall_body_for {
32	3	8µs			my ($self, $into, $me, $args) = @_;
33					my @builds =
34	9	13µs	9	27µs	grep *{_getglob($_)}{CODE}, # spent 27µs making 9 calls to Moo::_Utils::_getglob, avg 3µs/call
35					map "${_}::BUILD",
36	3	37µs	3	3µs	reverse @{_linear_isa($into)}; # spent 3µs making 3 calls to mro::get_linear_isa, avg 1µs/call
37	3	12µs			' (('.$args.')[0]->{__no_BUILD__} or ('."\n"
38					.join('', map qq{ ${me}->${_}(${args}),\n}, @builds)
39					." )),\n";
40					}
41
42	1	3µs			1;