← 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:03 2022

Filename/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Method/Generate/Constructor.pm
StatementsExecuted 2498 statements in 7.16ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
6242961µs1.96msMethod::Generate::Constructor::::register_attribute_specsMethod::Generate::Constructor::register_attribute_specs
311854µs1.13msMethod::Generate::Constructor::::buildall_generatorMethod::Generate::Constructor::buildall_generator
811682µs17.4msMethod::Generate::Constructor::::_assign_newMethod::Generate::Constructor::_assign_new
811563µs33.3msMethod::Generate::Constructor::::generate_methodMethod::Generate::Constructor::generate_method
111509µs523µsMethod::Generate::Constructor::::BEGIN@10Method::Generate::Constructor::BEGIN@10
7432414µs944µsMethod::Generate::Constructor::::assert_constructorMethod::Generate::Constructor::assert_constructor
7411335µs530µsMethod::Generate::Constructor::::current_constructorMethod::Generate::Constructor::current_constructor
811294µs33.7msMethod::Generate::Constructor::::__ANON__[:101]Method::Generate::Constructor::__ANON__[:101]
1011254µs2.75msMethod::Generate::Constructor::::install_delayedMethod::Generate::Constructor::install_delayed
811163µs224µsMethod::Generate::Constructor::::_check_requiredMethod::Generate::Constructor::_check_required
7631139µs139µsMethod::Generate::Constructor::::accessor_generatorMethod::Generate::Constructor::accessor_generator
5511125µs125µsMethod::Generate::Constructor::::_cap_callMethod::Generate::Constructor::_cap_call
71173µs129µsMethod::Generate::Constructor::::_build_construction_stringMethod::Generate::Constructor::_build_construction_string
81167µs296µsMethod::Generate::Constructor::::_handle_subconstructorMethod::Generate::Constructor::_handle_subconstructor
631151µs51µsMethod::Generate::Constructor::::CORE:substMethod::Generate::Constructor::CORE:subst (opcode)
92245µs174µsMethod::Generate::Constructor::::construction_stringMethod::Generate::Constructor::construction_string
243134µs34µsMethod::Generate::Constructor::::CORE:sortMethod::Generate::Constructor::CORE:sort (opcode)
11124µs27µsMethod::Generate::Constructor::::BEGIN@2Method::Generate::Constructor::BEGIN@2
61117µs17µsMethod::Generate::Constructor::::_generate_argsMethod::Generate::Constructor::_generate_args
1118µs301µsMethod::Generate::Constructor::::BEGIN@12Method::Generate::Constructor::BEGIN@12
1117µs21µsMethod::Generate::Constructor::::BEGIN@8Method::Generate::Constructor::BEGIN@8
1116µs43µsMethod::Generate::Constructor::::BEGIN@3Method::Generate::Constructor::BEGIN@3
1116µs38µsMethod::Generate::Constructor::::BEGIN@5Method::Generate::Constructor::BEGIN@5
1116µs29µsMethod::Generate::Constructor::::BEGIN@7Method::Generate::Constructor::BEGIN@7
1115µs18µsMethod::Generate::Constructor::::BEGIN@9Method::Generate::Constructor::BEGIN@9
1114µs4µsMethod::Generate::Constructor::::BEGIN@11Method::Generate::Constructor::BEGIN@11
1114µs29µsMethod::Generate::Constructor::::BEGIN@6Method::Generate::Constructor::BEGIN@6
2114µs4µsMethod::Generate::Constructor::::_generate_args_via_buildargsMethod::Generate::Constructor::_generate_args_via_buildargs
3214µs4µsMethod::Generate::Constructor::::all_attribute_specsMethod::Generate::Constructor::all_attribute_specs
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::Constructor;
2231µs230µs
# spent 27µs (24+3) within Method::Generate::Constructor::BEGIN@2 which was called: # once (24µs+3µs) by Moo::_constructor_maker_for at line 2
use strict;
# spent 27µs making 1 call to Method::Generate::Constructor::BEGIN@2 # spent 3µs making 1 call to strict::import
3231µs280µs
# spent 43µs (6+37) within Method::Generate::Constructor::BEGIN@3 which was called: # once (6µs+37µs) by Moo::_constructor_maker_for at line 3
use warnings;
# spent 43µs making 1 call to Method::Generate::Constructor::BEGIN@3 # spent 37µs making 1 call to warnings::import
4
5223µs270µs
# spent 38µs (6+32) within Method::Generate::Constructor::BEGIN@5 which was called: # once (6µs+32µs) by Moo::_constructor_maker_for at line 5
use Sub::Quote qw(quote_sub quotify);
# spent 38µs making 1 call to Method::Generate::Constructor::BEGIN@5 # spent 32µs making 1 call to Exporter::import
6222µs254µs
# spent 29µs (4+25) within Method::Generate::Constructor::BEGIN@6 which was called: # once (4µs+25µs) by Moo::_constructor_maker_for at line 6
use Sub::Defer;
# spent 29µs making 1 call to Method::Generate::Constructor::BEGIN@6 # spent 25µs making 1 call to Exporter::import
7219µs252µs
# spent 29µs (6+23) within Method::Generate::Constructor::BEGIN@7 which was called: # once (6µs+23µs) by Moo::_constructor_maker_for at line 7
use Moo::_Utils qw(_getstash _getglob _linear_isa);
# spent 29µs making 1 call to Method::Generate::Constructor::BEGIN@7 # spent 23µs making 1 call to Exporter::import
8220µs235µs
# spent 21µs (7+14) within Method::Generate::Constructor::BEGIN@8 which was called: # once (7µs+14µs) by Moo::_constructor_maker_for at line 8
use Scalar::Util qw(weaken);
# spent 21µs making 1 call to Method::Generate::Constructor::BEGIN@8 # spent 14µs making 1 call to Exporter::import
9221µs231µs
# spent 18µs (5+13) within Method::Generate::Constructor::BEGIN@9 which was called: # once (5µs+13µs) by Moo::_constructor_maker_for at line 9
use Carp qw(croak);
# spent 18µs making 1 call to Method::Generate::Constructor::BEGIN@9 # spent 13µs making 1 call to Exporter::import
102407µs1523µs
# spent 523µs (509+14) within Method::Generate::Constructor::BEGIN@10 which was called: # once (509µs+14µs) by Moo::_constructor_maker_for at line 10
use Carp::Heavy ();
# spent 523µs making 1 call to Method::Generate::Constructor::BEGIN@10
11134µs14µs
# spent 4µs within Method::Generate::Constructor::BEGIN@11 which was called: # once (4µs+0s) by Moo::_constructor_maker_for at line 11
BEGIN { our @CARP_NOT = qw(Sub::Defer) }
# spent 4µs making 1 call to Method::Generate::Constructor::BEGIN@11
12
# spent 301µs (8+293) within Method::Generate::Constructor::BEGIN@12 which was called: # once (8µs+293µs) by Moo::_constructor_maker_for at line 16
BEGIN {
1310s local $Moo::sification::disabled = 1;
1411µs require Moo;
1515µs1293µs Moo->import;
# spent 293µs making 1 call to Moo::import
1611.52ms1301µs}
# spent 301µs making 1 call to Method::Generate::Constructor::BEGIN@12
17
18
# spent 1.96ms (961µs+1.00) within Method::Generate::Constructor::register_attribute_specs which was called 62 times, avg 32µs/call: # 49 times (789µs+835µs) by Moo::has at line 119 of Moo.pm, avg 33µs/call # 10 times (137µs+135µs) by Moo::_constructor_maker_for at line 262 of Moo.pm, avg 27µs/call # 2 times (11µs+16µs) by Moo::_set_superclasses at line 158 of Moo.pm, avg 14µs/call # once (24µs+15µs) by Moo::_constructor_maker_for at line 250
sub register_attribute_specs {
196235µs my ($self, @new_specs) = @_;
206295µs62773µs $self->assert_constructor;
# spent 773µs making 62 calls to Method::Generate::Constructor::assert_constructor, avg 12µs/call
216239µs my $specs = $self->{attribute_specs}||={};
2262131µs62106µs my $ag = $self->accessor_generator;
# spent 106µs making 62 calls to Method::Generate::Constructor::accessor_generator, avg 2µs/call
2362169µs while (my ($name, $new_spec) = splice @new_specs, 0, 2) {
2463162µs6351µs if ($name =~ s/^\+//) {
# spent 51µs making 63 calls to Method::Generate::Constructor::CORE:subst, avg 810ns/call
25 croak "has '+${name}' given but no ${name} attribute already exists"
2621µs unless my $old_spec = $specs->{$name};
2726µs231µs $ag->merge_specs($new_spec, $old_spec);
# spent 31µs making 2 calls to Method::Generate::Accessor::merge_specs, avg 16µs/call
28 }
296354µs1340µs if ($new_spec->{required}
# spent 40µs making 13 calls to Method::Generate::Accessor::has_default, avg 3µs/call
30 && !(
31 $ag->has_default($name, $new_spec)
32 || !exists $new_spec->{init_arg}
33 || defined $new_spec->{init_arg}
34 )
35 ) {
36 croak "You cannot have a required attribute (${name})"
37 . " without a default, builder, or an init_arg";
38 }
39 $new_spec->{index} = scalar keys %$specs
406344µs unless defined $new_spec->{index};
416352µs $specs->{$name} = $new_spec;
42 }
4362179µs $self;
44}
45
46
# spent 4µs within Method::Generate::Constructor::all_attribute_specs which was called 3 times, avg 1µs/call: # 2 times (1µs+0s) by Moo::_set_superclasses at line 158 of Moo.pm, avg 500ns/call # once (3µs+0s) by Moo::_constructor_maker_for at line 262 of Moo.pm
sub all_attribute_specs {
47 $_[0]->{attribute_specs}
4837µs}
49
50
# spent 139µs within Method::Generate::Constructor::accessor_generator which was called 76 times, avg 2µs/call: # 62 times (106µs+0s) by Method::Generate::Constructor::register_attribute_specs at line 22, avg 2µs/call # 8 times (2µs+0s) by Method::Generate::Constructor::_assign_new at line 209, avg 250ns/call # 6 times (31µs+0s) by Method::Generate::Constructor::_build_construction_string at line 68, avg 5µs/call
sub accessor_generator {
51 $_[0]->{accessor_generator}
5276154µs}
53
54
# spent 174µs (45+129) within Method::Generate::Constructor::construction_string which was called 9 times, avg 19µs/call: # 8 times (39µs+112µs) by Method::Generate::Constructor::generate_method at line 138, avg 19µs/call # once (6µs+17µs) by Moo::_constructor_maker_for at line 237 of Moo.pm
sub construction_string {
5595µs my ($self) = @_;
56 $self->{construction_string}
57939µs7129µs ||= $self->_build_construction_string;
# spent 129µs making 7 calls to Method::Generate::Constructor::_build_construction_string, avg 18µs/call
58}
59
60
# spent 1.13ms (854µs+280µs) within Method::Generate::Constructor::buildall_generator which was called 3 times, avg 378µs/call: # 3 times (854µs+280µs) by Method::Generate::Constructor::generate_method at line 138, avg 378µs/call
sub buildall_generator {
613442µs require Method::Generate::BuildAll;
62356µs3102µs Method::Generate::BuildAll->new;
# spent 102µs making 3 calls to Moo::Object::new, avg 34µs/call
63}
64
65
# spent 129µs (73+56) within Method::Generate::Constructor::_build_construction_string which was called 7 times, avg 18µs/call: # 7 times (73µs+56µs) by Method::Generate::Constructor::construction_string at line 57, avg 18µs/call
sub _build_construction_string {
6671µs my ($self) = @_;
6774µs my $builder = $self->{construction_builder};
68772µs1356µs $builder ? $self->$builder
# spent 31µs making 6 calls to Method::Generate::Constructor::accessor_generator, avg 5µs/call # spent 15µs making 6 calls to Method::Generate::Accessor::default_construction_string, avg 2µs/call # spent 10µs making 1 call to Moo::__ANON__[Moo.pm:256]
69 : 'bless('
70 .$self->accessor_generator->default_construction_string
71 .', $class);'
72}
73
74
# spent 2.75ms (254µs+2.49) within Method::Generate::Constructor::install_delayed which was called 10 times, avg 274µs/call: # 10 times (254µs+2.49ms) by Moo::_constructor_maker_for at line 262 of Moo.pm, avg 274µs/call
sub install_delayed {
75103µs my ($self) = @_;
761024µs10152µs $self->assert_constructor;
# spent 152µs making 10 calls to Method::Generate::Constructor::assert_constructor, avg 15µs/call
77105µs my $package = $self->{package};
781043µs107µs my (undef, @isa) = @{_linear_isa($package)};
# spent 7µs making 10 calls to mro::get_linear_isa, avg 700ns/call
791011µs my $isa = join ',', @isa;
801054µs101.81ms my (undef, $from_file, $from_line) = caller(Carp::short_error_loc());
# spent 1.81ms making 10 calls to Carp::short_error_loc, avg 181µs/call
81
# spent 33.7ms (294µs+33.4) within Method::Generate::Constructor::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Method/Generate/Constructor.pm:101] which was called 8 times, avg 4.22ms/call: # 8 times (294µs+33.4ms) by Sub::Defer::undefer_sub at line 85 of Sub/Defer.pm, avg 4.22ms/call
my $constructor = defer_sub "${package}::new" => sub {
828180µs880µs my (undef, @new_isa) = @{_linear_isa($package)};
# spent 80µs making 8 calls to mro::get_linear_isa, avg 10µs/call
83843µs if (join(',', @new_isa) ne $isa) {
84 my ($expected_new) = grep { *{_getglob($_.'::new')}{CODE} } @isa;
85 my ($found_new) = grep { *{_getglob($_.'::new')}{CODE} } @new_isa;
86 if (($found_new||'') ne ($expected_new||'')) {
87 $found_new ||= 'none';
88 $expected_new ||= 'none';
89 croak "Expected parent constructor of $package to be"
90 . " $expected_new, but found $found_new: changing the inheritance"
91 . " chain (\@ISA) at runtime (after $from_file line $from_line) is unsupported";
92 }
93 }
94
95 my $constructor = $self->generate_method(
96869µs833.3ms $package, 'new', $self->{attribute_specs}, { no_install => 1, no_defer => 1 }
# spent 33.3ms making 8 calls to Method::Generate::Constructor::generate_method, avg 4.17ms/call
97 );
98816µs $self->{inlined} = 1;
99830µs87µs weaken($self->{constructor} = $constructor);
# spent 7µs making 8 calls to Scalar::Util::weaken, avg 875ns/call
100829µs $constructor;
1011060µs10509µs };
# spent 509µs making 10 calls to Sub::Defer::defer_sub, avg 51µs/call
102109µs $self->{inlined} = 0;
1031034µs109µs weaken($self->{constructor} = $constructor);
# spent 9µs making 10 calls to Scalar::Util::weaken, avg 900ns/call
1041026µs $self;
105}
106
107
# spent 530µs (335+195) within Method::Generate::Constructor::current_constructor which was called 74 times, avg 7µs/call: # 74 times (335µs+195µs) by Method::Generate::Constructor::assert_constructor at line 115, avg 7µs/call
sub current_constructor {
1087432µs my ($self, $package) = @_;
10974309µs74195µs return *{_getglob("${package}::new")}{CODE};
# spent 195µs making 74 calls to Moo::_Utils::_getglob, avg 3µs/call
110}
111
112
# spent 944µs (414+530) within Method::Generate::Constructor::assert_constructor which was called 74 times, avg 13µs/call: # 62 times (346µs+427µs) by Method::Generate::Constructor::register_attribute_specs at line 20, avg 12µs/call # 10 times (58µs+94µs) by Method::Generate::Constructor::install_delayed at line 76, avg 15µs/call # 2 times (10µs+9µs) by Moo::_set_superclasses at line 155 of Moo.pm, avg 10µs/call
sub assert_constructor {
1137419µs my ($self) = @_;
1147459µs my $package = $self->{package} or return 1;
11574138µs74530µs my $current = $self->current_constructor($package)
# spent 530µs making 74 calls to Method::Generate::Constructor::current_constructor, avg 7µs/call
116 or return 1;
117 my $constructor = $self->{constructor}
1186430µs or croak "Unknown constructor for $package already exists";
1196432µs croak "Constructor for $package has been replaced with an unknown sub"
120 if $constructor != $current;
121 croak "Constructor for $package has been inlined and cannot be updated"
12264196µs if $self->{inlined};
123}
124
125
# spent 33.3ms (563µs+32.8) within Method::Generate::Constructor::generate_method which was called 8 times, avg 4.17ms/call: # 8 times (563µs+32.8ms) by Method::Generate::Constructor::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Method/Generate/Constructor.pm:101] at line 96, avg 4.17ms/call
sub generate_method {
12683µs my ($self, $into, $name, $spec, $quote_opts) = @_;
127 $quote_opts = {
128848µs %{$quote_opts||{}},
129 package => $into,
130 };
1318118µs foreach my $no_init (grep !exists($spec->{$_}{init_arg}), keys %$spec) {
1325141µs $spec->{$no_init}{init_arg} = $no_init;
133 }
13488µs local $self->{captures} = {};
135
1368105µs854µs my $into_buildargs = $into->can('BUILDARGS');
# spent 54µs making 8 calls to UNIVERSAL::can, avg 7µs/call
137
1388261µs5419.4ms my $body
# spent 17.4ms making 8 calls to Method::Generate::Constructor::_assign_new, avg 2.18ms/call # spent 1.13ms making 3 calls to Method::Generate::Constructor::buildall_generator, avg 378µs/call # spent 296µs making 8 calls to Method::Generate::Constructor::_handle_subconstructor, avg 37µs/call # spent 224µs making 8 calls to Method::Generate::Constructor::_check_required, avg 28µs/call # spent 151µs making 8 calls to Method::Generate::Constructor::construction_string, avg 19µs/call # spent 135µs making 3 calls to Method::Generate::BuildAll::buildall_body_for, avg 45µs/call # spent 61µs making 8 calls to UNIVERSAL::can, avg 8µs/call # spent 17µs making 6 calls to Method::Generate::Constructor::_generate_args, avg 3µs/call # spent 4µs making 2 calls to Method::Generate::Constructor::_generate_args_via_buildargs, avg 2µs/call
139 = ' my $invoker = CORE::shift();'."\n"
140 . ' my $class = CORE::ref($invoker) ? CORE::ref($invoker) : $invoker;'."\n"
141 . $self->_handle_subconstructor($into, $name)
142 . ( $into_buildargs && $into_buildargs != \&Moo::Object::BUILDARGS
143 ? $self->_generate_args_via_buildargs
144 : $self->_generate_args
145 )
146 . $self->_check_required($spec)
147 . ' my $new = '.$self->construction_string.";\n"
148 . $self->_assign_new($spec)
149 . ( $into->can('BUILD')
150 ? $self->buildall_generator->buildall_body_for( $into, '$new', '$args' )
151 : ''
152 )
153 . ' return $new;'."\n";
154
155840µs819µs if ($into->can('DEMOLISH')) {
# spent 19µs making 8 calls to UNIVERSAL::can, avg 2µs/call
156 require Method::Generate::DemolishAll;
157 Method::Generate::DemolishAll->new->generate_method($into);
158 }
159 quote_sub
160 "${into}::${name}" => $body,
161881µs813.3ms $self->{captures}, $quote_opts||{}
# spent 13.3ms making 8 calls to Sub::Quote::quote_sub, avg 1.66ms/call
162 ;
163}
164
165
# spent 296µs (67+229) within Method::Generate::Constructor::_handle_subconstructor which was called 8 times, avg 37µs/call: # 8 times (67µs+229µs) by Method::Generate::Constructor::generate_method at line 138, avg 37µs/call
sub _handle_subconstructor {
166816µs my ($self, $into, $name) = @_;
1678118µs8229µs if (my $gen = $self->{subconstructor_handler}) {
# spent 229µs making 8 calls to Sub::Quote::quotify, avg 29µs/call
168 ' if ($class ne '.quotify($into).') {'."\n".
169 $gen.
170 ' }'."\n";
171 } else {
172 ''
173 }
174}
175
176
# spent 125µs within Method::Generate::Constructor::_cap_call which was called 55 times, avg 2µs/call: # 55 times (125µs+0s) by Method::Generate::Constructor::_assign_new at line 223, avg 2µs/call
sub _cap_call {
1775511µs my ($self, $code, $captures) = @_;
1785578µs @{$self->{captures}}{keys %$captures} = values %$captures if $captures;
1795577µs $code;
180}
181
182
# spent 4µs within Method::Generate::Constructor::_generate_args_via_buildargs which was called 2 times, avg 2µs/call: # 2 times (4µs+0s) by Method::Generate::Constructor::generate_method at line 138, avg 2µs/call
sub _generate_args_via_buildargs {
18322µs my ($self) = @_;
18425µs q{ my $args = $class->BUILDARGS(@_);}."\n"
185 .q{ Carp::croak("BUILDARGS did not return a hashref") unless CORE::ref($args) eq 'HASH';}
186 ."\n";
187}
188
189# inlined from Moo::Object - update that first.
190
# spent 17µs within Method::Generate::Constructor::_generate_args which was called 6 times, avg 3µs/call: # 6 times (17µs+0s) by Method::Generate::Constructor::generate_method at line 138, avg 3µs/call
sub _generate_args {
19161µs my ($self) = @_;
192613µs return <<'_EOA';
193 my $args = scalar @_ == 1
194 ? CORE::ref $_[0] eq 'HASH'
195 ? { %{ $_[0] } }
196 : Carp::croak("Single parameters to new() must be a HASH ref"
197 . " data => ". $_[0])
198 : @_ % 2
199 ? Carp::croak("The new() method for $class expects a hash reference or a"
200 . " key/value list. You passed an odd number of arguments")
201 : {@_}
202 ;
203_EOA
204
205}
206
207
# spent 17.4ms (682µs+16.7) within Method::Generate::Constructor::_assign_new which was called 8 times, avg 2.18ms/call: # 8 times (682µs+16.7ms) by Method::Generate::Constructor::generate_method at line 138, avg 2.18ms/call
sub _assign_new {
20882µs my ($self, $spec) = @_;
20985µs82µs my $ag = $self->accessor_generator;
# spent 2µs making 8 calls to Method::Generate::Constructor::accessor_generator, avg 250ns/call
21081µs my %test;
211826µs87µs NAME: foreach my $name (sort keys %$spec) {
# spent 7µs making 8 calls to Method::Generate::Constructor::CORE:sort, avg 875ns/call
212616µs my $attr_spec = $spec->{$name};
213 next NAME unless defined($attr_spec->{init_arg})
2146124µs616µs or $ag->has_eager_default($name, $attr_spec);
# spent 16µs making 6 calls to Method::Generate::Accessor::has_eager_default, avg 3µs/call
2155526µs $test{$name} = $attr_spec->{init_arg};
216 }
217 join '', map {
21863193µs85µs my $arg = $test{$_};
# spent 5µs making 8 calls to Method::Generate::Constructor::CORE:sort, avg 625ns/call
2195582µs55206µs my $arg_key = quotify($arg);
# spent 206µs making 55 calls to Sub::Quote::quotify, avg 4µs/call
2205522µs my $test = defined $arg ? "exists \$args->{$arg_key}" : undef;
2215528µs my $source = defined $arg ? "\$args->{$arg_key}" : undef;
2225525µs my $attr_spec = $spec->{$_};
22355129µs11016.5ms $self->_cap_call($ag->generate_populate_set(
# spent 16.4ms making 55 calls to Method::Generate::Accessor::generate_populate_set, avg 297µs/call # spent 125µs making 55 calls to Method::Generate::Constructor::_cap_call, avg 2µs/call
224 '$new', $_, $attr_spec, $source, $test, $arg,
225 ));
226 } sort keys %test;
227}
228
229
# spent 224µs (163+61) within Method::Generate::Constructor::_check_required which was called 8 times, avg 28µs/call: # 8 times (163µs+61µs) by Method::Generate::Constructor::generate_method at line 138, avg 28µs/call
sub _check_required {
23089µs my ($self, $spec) = @_;
231 my @required_init =
232 map $spec->{$_}{init_arg},
233 grep {
2346977µs822µs my $s = $spec->{$_}; # ignore required if default or builder set
# spent 22µs making 8 calls to Method::Generate::Constructor::CORE:sort, avg 3µs/call
235 $s->{required} and not($s->{builder} or exists $s->{default})
2366161µs } sort keys %$spec;
23787µs return '' unless @required_init;
238522µs1339µs ' if (my @missing = grep !exists $args->{$_}, '
# spent 39µs making 13 calls to Sub::Quote::quotify, avg 3µs/call
239 .join(', ', map quotify($_), @required_init).') {'."\n"
240 .q{ Carp::croak("Missing required arguments: ".CORE::join(', ', sort @missing));}."\n"
241 ." }\n";
242}
243
244# bootstrap our own constructor
245sub new {
24610s my $class = shift;
24716µs12µs delete _getstash(__PACKAGE__)->{new};
# spent 2µs making 1 call to Moo::_Utils::_getstash
248112µs13µs bless $class->BUILDARGS(@_), $class;
# spent 3µs making 1 call to Moo::Object::BUILDARGS
249}
250115µs239µsMoo->_constructor_maker_for(__PACKAGE__)
# spent 39µs making 1 call to Method::Generate::Constructor::register_attribute_specs # spent 482µs making 1 call to Moo::_constructor_maker_for, recursion: max depth 1, sum of overlapping time 482µs
251->register_attribute_specs(
252 attribute_specs => {
253 is => 'ro',
254 reader => 'all_attribute_specs',
255 },
256 accessor_generator => { is => 'ro' },
257 construction_string => { is => 'lazy' },
258 construction_builder => { is => 'bare' },
259 subconstructor_handler => { is => 'ro' },
260 package => { is => 'bare' },
261);
26211µsif ($INC{'Moo/HandleMoose.pm'} && !$Moo::sification::disabled) {
263 Moo::HandleMoose::inject_fake_metaclass_for(__PACKAGE__);
264}
265
266115µs1;
 
# spent 34µs within Method::Generate::Constructor::CORE:sort which was called 24 times, avg 1µs/call: # 8 times (22µs+0s) by Method::Generate::Constructor::_check_required at line 234, avg 3µs/call # 8 times (7µs+0s) by Method::Generate::Constructor::_assign_new at line 211, avg 875ns/call # 8 times (5µs+0s) by Method::Generate::Constructor::_assign_new at line 218, avg 625ns/call
sub Method::Generate::Constructor::CORE:sort; # opcode
# spent 51µs within Method::Generate::Constructor::CORE:subst which was called 63 times, avg 810ns/call: # 63 times (51µs+0s) by Method::Generate::Constructor::register_attribute_specs at line 24, avg 810ns/call
sub Method::Generate::Constructor::CORE:subst; # opcode
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.