← Index
NYTProf Performance Profile   « line view »
For ../prof.pl
  Run on Wed Dec 14 15:33:55 2022
Reported on Wed Dec 14 15:40:04 2022

Filename/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Method/Generate/BuildAll.pm
StatementsExecuted 30 statements in 512µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
31181µs135µsMethod::Generate::BuildAll::::buildall_body_forMethod::Generate::BuildAll::buildall_body_for
11134µs38µsMethod::Generate::BuildAll::::BEGIN@2Method::Generate::BuildAll::BEGIN@2
11112µs12µsMethod::Generate::BuildAll::::BEGIN@6Method::Generate::BuildAll::BEGIN@6
1119µs44µsMethod::Generate::BuildAll::::BEGIN@3Method::Generate::BuildAll::BEGIN@3
1119µs55µsMethod::Generate::BuildAll::::BEGIN@7Method::Generate::BuildAll::BEGIN@7
1115µs5µsMethod::Generate::BuildAll::::BEGIN@5Method::Generate::BuildAll::BEGIN@5
1115µs24µsMethod::Generate::BuildAll::::BEGIN@8Method::Generate::BuildAll::BEGIN@8
0000s0sMethod::Generate::BuildAll::::_handle_subbuildMethod::Generate::BuildAll::_handle_subbuild
0000s0sMethod::Generate::BuildAll::::generate_methodMethod::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
1package Method::Generate::BuildAll;
2243µs242µs
# spent 38µs (34+4) within Method::Generate::BuildAll::BEGIN@2 which was called: # once (34µs+4µs) by Method::Generate::Constructor::buildall_generator at line 2
use strict;
# spent 38µs making 1 call to Method::Generate::BuildAll::BEGIN@2 # spent 4µs making 1 call to strict::import
3228µs279µs
# spent 44µs (9+35) within Method::Generate::BuildAll::BEGIN@3 which was called: # once (9µs+35µs) by Method::Generate::Constructor::buildall_generator at line 3
use warnings;
# spent 44µs making 1 call to Method::Generate::BuildAll::BEGIN@3 # spent 35µs making 1 call to warnings::import
4
5245µs15µs
# spent 5µs within Method::Generate::BuildAll::BEGIN@5 which was called: # once (5µs+0s) by Method::Generate::Constructor::buildall_generator at line 5
use Moo::Object ();
# spent 5µs making 1 call to Method::Generate::BuildAll::BEGIN@5
6135µs112µs
# spent 12µs within Method::Generate::BuildAll::BEGIN@6 which was called: # once (12µs+0s) by Method::Generate::Constructor::buildall_generator at line 6
BEGIN { our @ISA = qw(Moo::Object) }
# spent 12µs making 1 call to Method::Generate::BuildAll::BEGIN@6
7229µs2101µs
# spent 55µs (9+46) within Method::Generate::BuildAll::BEGIN@7 which was called: # once (9µs+46µs) by Method::Generate::Constructor::buildall_generator at line 7
use Sub::Quote qw(quote_sub quotify);
# spent 55µs making 1 call to Method::Generate::BuildAll::BEGIN@7 # spent 46µs making 1 call to Exporter::import
82237µs243µs
# spent 24µs (5+19) within Method::Generate::BuildAll::BEGIN@8 which was called: # once (5µs+19µs) by Method::Generate::Constructor::buildall_generator at line 8
use Moo::_Utils qw(_getglob _linear_isa);
# spent 24µs making 1 call to Method::Generate::BuildAll::BEGIN@8 # spent 19µs making 1 call to Exporter::import
9
10sub 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
24sub _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 135µs (81+54) within Method::Generate::BuildAll::buildall_body_for which was called 3 times, avg 45µs/call: # 3 times (81µs+54µs) by Method::Generate::Constructor::generate_method at line 138 of Method/Generate/Constructor.pm, avg 45µs/call
sub buildall_body_for {
3237µs my ($self, $into, $me, $args) = @_;
33 my @builds =
34932µs949µs grep *{_getglob($_)}{CODE},
# spent 49µs making 9 calls to Moo::_Utils::_getglob, avg 5µs/call
35 map "${_}::BUILD",
36337µs35µs reverse @{_linear_isa($into)};
# spent 5µs making 3 calls to mro::get_linear_isa, avg 2µs/call
37316µs ' (('.$args.')[0]->{__no_BUILD__} or ('."\n"
38 .join('', map qq{ ${me}->${_}(${args}),\n}, @builds)
39 ." )),\n";
40}
41
4213µs1;