Filename | /usr/share/perl5/Method/Generate/Constructor.pm |
Statements | Executed 349 statements in 1.97ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
2 | 1 | 1 | 138µs | 668µs | _assign_new | Method::Generate::Constructor::
2 | 1 | 1 | 112µs | 1.09ms | generate_method | Method::Generate::Constructor::
10 | 3 | 2 | 92µs | 99µs | register_attribute_specs | Method::Generate::Constructor::
2 | 1 | 1 | 62µs | 70µs | _check_required | Method::Generate::Constructor::
11 | 1 | 1 | 23µs | 23µs | _cap_call | Method::Generate::Constructor::
1 | 1 | 1 | 22µs | 91µs | BEGIN@3 | Method::Generate::Constructor::
2 | 1 | 1 | 22µs | 2.44ms | __ANON__[:81] | Method::Generate::Constructor::
2 | 1 | 1 | 18µs | 31µs | _build_construction_string | Method::Generate::Constructor::
2 | 1 | 1 | 17µs | 82µs | install_delayed | Method::Generate::Constructor::
2 | 1 | 1 | 16µs | 38µs | _handle_subconstructor | Method::Generate::Constructor::
1 | 1 | 1 | 13µs | 35µs | BEGIN@5 | Method::Generate::Constructor::
6 | 3 | 1 | 11µs | 11µs | CORE:sort (opcode) | Method::Generate::Constructor::
1 | 1 | 1 | 11µs | 385µs | BEGIN@202 | Method::Generate::Constructor::
1 | 1 | 1 | 10µs | 60µs | BEGIN@4 | Method::Generate::Constructor::
2 | 1 | 1 | 10µs | 41µs | construction_string | Method::Generate::Constructor::
1 | 1 | 1 | 9µs | 35µs | BEGIN@6 | Method::Generate::Constructor::
1 | 1 | 1 | 8µs | 45µs | __ANON__[:202] | Method::Generate::Constructor::
13 | 1 | 1 | 7µs | 7µs | CORE:subst (opcode) | Method::Generate::Constructor::
3 | 2 | 1 | 4µs | 4µs | accessor_generator | Method::Generate::Constructor::
2 | 1 | 1 | 4µs | 4µs | _generate_args | Method::Generate::Constructor::
0 | 0 | 0 | 0s | 0s | _generate_args_via_buildargs | Method::Generate::Constructor::
0 | 0 | 0 | 0s | 0s | all_attribute_specs | Method::Generate::Constructor::
0 | 0 | 0 | 0s | 0s | buildall_generator | Method::Generate::Constructor::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Method::Generate::Constructor; | ||||
2 | |||||
3 | 3 | 49µs | 3 | 160µs | # spent 91µs (22+69) within Method::Generate::Constructor::BEGIN@3 which was called:
# once (22µs+69µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 3 # spent 91µs making 1 call to Method::Generate::Constructor::BEGIN@3
# spent 43µs making 1 call to strictures::import
# spent 26µs making 1 call to strictures::VERSION |
4 | 2 | 81µs | 2 | 109µs | # spent 60µs (10+49) within Method::Generate::Constructor::BEGIN@4 which was called:
# once (10µs+49µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 4 # spent 60µs making 1 call to Method::Generate::Constructor::BEGIN@4
# spent 49µs making 1 call to Exporter::import |
5 | 2 | 56µs | 2 | 57µs | # spent 35µs (13+22) within Method::Generate::Constructor::BEGIN@5 which was called:
# once (13µs+22µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 5 # spent 35µs making 1 call to Method::Generate::Constructor::BEGIN@5
# spent 22µs making 1 call to Exporter::import |
6 | 2 | 1.06ms | 2 | 61µs | # spent 35µs (9+26) within Method::Generate::Constructor::BEGIN@6 which was called:
# once (9µs+26µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 6 # spent 35µs making 1 call to Method::Generate::Constructor::BEGIN@6
# spent 26µs making 1 call to Exporter::import |
7 | |||||
8 | # spent 99µs (92+7) within Method::Generate::Constructor::register_attribute_specs which was called 10 times, avg 10µs/call:
# 7 times (55µs+5µs) by Moo::has at line 52 of Moo.pm, avg 9µs/call
# 2 times (11µs+0s) by Moo::_constructor_maker_for at line 201 of Moo.pm, avg 5µs/call
# once (26µs+2µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 208 | ||||
9 | 10 | 6µs | my ($self, @new_specs) = @_; | ||
10 | 10 | 7µs | my $specs = $self->{attribute_specs}||={}; | ||
11 | 10 | 21µs | while (my ($name, $new_spec) = splice @new_specs, 0, 2) { | ||
12 | 13 | 32µs | 13 | 7µs | if ($name =~ s/^\+//) { # spent 7µs making 13 calls to Method::Generate::Constructor::CORE:subst, avg 562ns/call |
13 | die "has '+${name}' given but no ${name} attribute already exists" | ||||
14 | unless my $old_spec = $specs->{$name}; | ||||
15 | foreach my $key (keys %$old_spec) { | ||||
16 | if (!exists $new_spec->{$key}) { | ||||
17 | $new_spec->{$key} = $old_spec->{$key} | ||||
18 | unless $key eq 'handles'; | ||||
19 | } | ||||
20 | elsif ($key eq 'moosify') { | ||||
21 | $new_spec->{$key} = [ | ||||
22 | map { ref $_ eq 'ARRAY' ? @$_ : $_ } | ||||
23 | ($old_spec->{$key}, $new_spec->{$key}) | ||||
24 | ]; | ||||
25 | } | ||||
26 | } | ||||
27 | } | ||||
28 | 13 | 5µs | if ($new_spec->{required} | ||
29 | && !( | ||||
30 | exists $new_spec->{default} | ||||
31 | || $new_spec->{builder} | ||||
32 | || !exists $new_spec->{init_arg} | ||||
33 | || defined $new_spec->{init_arg} | ||||
34 | ) | ||||
35 | ) { | ||||
36 | die "You cannot have a required attribute (${name})" | ||||
37 | . " without a default, builder, or an init_arg"; | ||||
38 | } | ||||
39 | 13 | 9µs | $new_spec->{index} = scalar keys %$specs | ||
40 | unless defined $new_spec->{index}; | ||||
41 | 13 | 8µs | $specs->{$name} = $new_spec; | ||
42 | } | ||||
43 | 10 | 24µs | $self; | ||
44 | } | ||||
45 | |||||
46 | sub all_attribute_specs { | ||||
47 | $_[0]->{attribute_specs} | ||||
48 | } | ||||
49 | |||||
50 | sub accessor_generator { | ||||
51 | 3 | 9µs | $_[0]->{accessor_generator} | ||
52 | } | ||||
53 | |||||
54 | # spent 41µs (10+31) within Method::Generate::Constructor::construction_string which was called 2 times, avg 21µs/call:
# 2 times (10µs+31µs) by Method::Generate::Constructor::generate_method at line 101, avg 21µs/call | ||||
55 | 2 | 700ns | my ($self) = @_; | ||
56 | 2 | 9µs | 2 | 31µs | $self->{construction_string} # spent 31µs making 2 calls to Method::Generate::Constructor::_build_construction_string, avg 16µs/call |
57 | ||= $self->_build_construction_string; | ||||
58 | } | ||||
59 | |||||
60 | sub buildall_generator { | ||||
61 | require Method::Generate::BuildAll; | ||||
62 | Method::Generate::BuildAll->new; | ||||
63 | } | ||||
64 | |||||
65 | # spent 31µs (18+14) within Method::Generate::Constructor::_build_construction_string which was called 2 times, avg 16µs/call:
# 2 times (18µs+14µs) by Method::Generate::Constructor::construction_string at line 56, avg 16µs/call | ||||
66 | 2 | 500ns | my ($self) = @_; | ||
67 | 2 | 1µs | my $builder = $self->{construction_builder}; | ||
68 | 2 | 12µs | 3 | 14µs | $builder ? $self->$builder # spent 10µs making 1 call to Moo::__ANON__[Moo.pm:183]
# spent 2µs making 1 call to Method::Generate::Constructor::accessor_generator
# spent 2µs making 1 call to Method::Generate::Accessor::default_construction_string |
69 | : 'bless(' | ||||
70 | .$self->accessor_generator->default_construction_string | ||||
71 | .', $class);' | ||||
72 | } | ||||
73 | |||||
74 | # spent 82µs (17+65) within Method::Generate::Constructor::install_delayed which was called 2 times, avg 41µs/call:
# 2 times (17µs+65µs) by Moo::_constructor_maker_for at line 201 of Moo.pm, avg 41µs/call | ||||
75 | 2 | 900ns | my ($self) = @_; | ||
76 | 2 | 4µs | my $package = $self->{package}; | ||
77 | # spent 2.44ms (22µs+2.42) within Method::Generate::Constructor::__ANON__[/usr/share/perl5/Method/Generate/Constructor.pm:81] which was called 2 times, avg 1.22ms/call:
# 2 times (22µs+2.42ms) by Sub::Defer::undefer_sub at line 22 of Sub/Defer.pm, avg 1.22ms/call | ||||
78 | 2 | 17µs | 4 | 2.42ms | unquote_sub $self->generate_method( # spent 1.33ms making 2 calls to Sub::Quote::unquote_sub, avg 666µs/call
# spent 1.09ms making 2 calls to Method::Generate::Constructor::generate_method, avg 544µs/call |
79 | $package, 'new', $self->{attribute_specs}, { no_install => 1 } | ||||
80 | ) | ||||
81 | 2 | 8µs | 2 | 65µs | }; # spent 65µs making 2 calls to Sub::Defer::defer_sub, avg 32µs/call |
82 | 2 | 4µs | $self; | ||
83 | } | ||||
84 | |||||
85 | # spent 1.09ms (112µs+976µs) within Method::Generate::Constructor::generate_method which was called 2 times, avg 544µs/call:
# 2 times (112µs+976µs) by Method::Generate::Constructor::__ANON__[/usr/share/perl5/Method/Generate/Constructor.pm:81] at line 78, avg 544µs/call | ||||
86 | 2 | 2µs | my ($self, $into, $name, $spec, $quote_opts) = @_; | ||
87 | 2 | 15µs | foreach my $no_init (grep !exists($spec->{$_}{init_arg}), keys %$spec) { | ||
88 | 11 | 6µs | $spec->{$no_init}{init_arg} = $no_init; | ||
89 | } | ||||
90 | 2 | 3µs | local $self->{captures} = {}; | ||
91 | 2 | 900ns | my $body = ' my $class = shift;'."\n" | ||
92 | .' $class = ref($class) if ref($class);'."\n"; | ||||
93 | 2 | 4µs | 2 | 38µs | $body .= $self->_handle_subconstructor($into, $name); # spent 38µs making 2 calls to Method::Generate::Constructor::_handle_subconstructor, avg 19µs/call |
94 | 2 | 15µs | 2 | 8µs | my $into_buildargs = $into->can('BUILDARGS'); # spent 8µs making 2 calls to UNIVERSAL::can, avg 4µs/call |
95 | 2 | 4µs | if ( $into_buildargs && $into_buildargs != \&Moo::Object::BUILDARGS ) { | ||
96 | $body .= $self->_generate_args_via_buildargs; | ||||
97 | } else { | ||||
98 | 2 | 4µs | 2 | 4µs | $body .= $self->_generate_args; # spent 4µs making 2 calls to Method::Generate::Constructor::_generate_args, avg 2µs/call |
99 | } | ||||
100 | 2 | 4µs | 2 | 70µs | $body .= $self->_check_required($spec); # spent 70µs making 2 calls to Method::Generate::Constructor::_check_required, avg 35µs/call |
101 | 2 | 6µs | 2 | 41µs | $body .= ' my $new = '.$self->construction_string.";\n"; # spent 41µs making 2 calls to Method::Generate::Constructor::construction_string, avg 21µs/call |
102 | 2 | 9µs | 2 | 668µs | $body .= $self->_assign_new($spec); # spent 668µs making 2 calls to Method::Generate::Constructor::_assign_new, avg 334µs/call |
103 | 2 | 18µs | 2 | 11µs | if ($into->can('BUILD')) { # spent 11µs making 2 calls to UNIVERSAL::can, avg 5µs/call |
104 | $body .= $self->buildall_generator->buildall_body_for( | ||||
105 | $into, '$new', '$args' | ||||
106 | ); | ||||
107 | } | ||||
108 | 2 | 1µs | $body .= ' return $new;'."\n"; | ||
109 | 2 | 12µs | 2 | 7µs | if ($into->can('DEMOLISH')) { # spent 7µs making 2 calls to UNIVERSAL::can, avg 3µs/call |
110 | require Method::Generate::DemolishAll; | ||||
111 | Method::Generate::DemolishAll->new->generate_method($into); | ||||
112 | } | ||||
113 | quote_sub | ||||
114 | 2 | 16µs | 2 | 131µs | "${into}::${name}" => $body, # spent 131µs making 2 calls to Sub::Quote::quote_sub, avg 66µs/call |
115 | $self->{captures}, $quote_opts||{} | ||||
116 | ; | ||||
117 | } | ||||
118 | |||||
119 | # spent 38µs (16+22) within Method::Generate::Constructor::_handle_subconstructor which was called 2 times, avg 19µs/call:
# 2 times (16µs+22µs) by Method::Generate::Constructor::generate_method at line 93, avg 19µs/call | ||||
120 | 2 | 1µs | my ($self, $into, $name) = @_; | ||
121 | 2 | 18µs | 2 | 22µs | if (my $gen = $self->{subconstructor_handler}) { # spent 22µs making 2 calls to Sub::Quote::quotify, avg 11µs/call |
122 | ' if ($class ne '.quotify($into).') {'."\n". | ||||
123 | $gen. | ||||
124 | ' }'."\n"; | ||||
125 | } else { | ||||
126 | '' | ||||
127 | } | ||||
128 | } | ||||
129 | |||||
130 | # spent 23µs within Method::Generate::Constructor::_cap_call which was called 11 times, avg 2µs/call:
# 11 times (23µs+0s) by Method::Generate::Constructor::_assign_new at line 181, avg 2µs/call | ||||
131 | 11 | 3µs | my ($self, $code, $captures) = @_; | ||
132 | 11 | 10µs | @{$self->{captures}}{keys %$captures} = values %$captures if $captures; | ||
133 | 11 | 19µs | $code; | ||
134 | } | ||||
135 | |||||
136 | sub _generate_args_via_buildargs { | ||||
137 | my ($self) = @_; | ||||
138 | q{ my $args = $class->BUILDARGS(@_);}."\n" | ||||
139 | .q{ die "BUILDARGS did not return a hashref" unless ref($args) eq 'HASH';} | ||||
140 | ."\n"; | ||||
141 | } | ||||
142 | |||||
143 | # inlined from Moo::Object - update that first. | ||||
144 | # spent 4µs within Method::Generate::Constructor::_generate_args which was called 2 times, avg 2µs/call:
# 2 times (4µs+0s) by Method::Generate::Constructor::generate_method at line 98, avg 2µs/call | ||||
145 | 2 | 900ns | my ($self) = @_; | ||
146 | 2 | 6µs | return <<'_EOA'; | ||
147 | my $args; | ||||
148 | if ( scalar @_ == 1 ) { | ||||
149 | unless ( defined $_[0] && ref $_[0] eq 'HASH' ) { | ||||
150 | die "Single parameters to new() must be a HASH ref" | ||||
151 | ." data => ". $_[0] ."\n"; | ||||
152 | } | ||||
153 | $args = { %{ $_[0] } }; | ||||
154 | } | ||||
155 | elsif ( @_ % 2 ) { | ||||
156 | die "The new() method for $class expects a hash reference or a" | ||||
157 | . " key/value list. You passed an odd number of arguments\n"; | ||||
158 | } | ||||
159 | else { | ||||
160 | $args = {@_}; | ||||
161 | } | ||||
162 | _EOA | ||||
163 | |||||
164 | } | ||||
165 | |||||
166 | # spent 668µs (138+530) within Method::Generate::Constructor::_assign_new which was called 2 times, avg 334µs/call:
# 2 times (138µs+530µs) by Method::Generate::Constructor::generate_method at line 102, avg 334µs/call | ||||
167 | 2 | 700ns | my ($self, $spec) = @_; | ||
168 | 2 | 3µs | 2 | 2µs | my $ag = $self->accessor_generator; # spent 2µs making 2 calls to Method::Generate::Constructor::accessor_generator, avg 1µs/call |
169 | 2 | 600ns | my %test; | ||
170 | 2 | 11µs | 2 | 2µs | NAME: foreach my $name (sort keys %$spec) { # spent 2µs making 2 calls to Method::Generate::Constructor::CORE:sort, avg 1µs/call |
171 | 13 | 3µs | my $attr_spec = $spec->{$name}; | ||
172 | 13 | 8µs | 2 | 4µs | next NAME unless defined($attr_spec->{init_arg}) # spent 4µs making 2 calls to Method::Generate::Accessor::has_eager_default, avg 2µs/call |
173 | or $ag->has_eager_default($name, $attr_spec); | ||||
174 | 11 | 7µs | $test{$name} = $attr_spec->{init_arg}; | ||
175 | } | ||||
176 | 11 | 13µs | 11 | 34µs | join '', map { # spent 34µs making 11 calls to Sub::Quote::quotify, avg 3µs/call |
177 | 2 | 30µs | 2 | 2µs | my $arg_key = quotify($test{$_}); # spent 2µs making 2 calls to Method::Generate::Constructor::CORE:sort, avg 1µs/call |
178 | 11 | 6µs | my $test = "exists \$args->{$arg_key}"; | ||
179 | 11 | 4µs | my $source = "\$args->{$arg_key}"; | ||
180 | 11 | 3µs | my $attr_spec = $spec->{$_}; | ||
181 | 11 | 28µs | 22 | 485µs | $self->_cap_call($ag->generate_populate_set( # spent 462µs making 11 calls to Method::Generate::Accessor::generate_populate_set, avg 42µs/call
# spent 23µs making 11 calls to Method::Generate::Constructor::_cap_call, avg 2µs/call |
182 | '$new', $_, $attr_spec, $source, $test, $test{$_}, | ||||
183 | )); | ||||
184 | } sort keys %test; | ||||
185 | } | ||||
186 | |||||
187 | # spent 70µs (62+7) within Method::Generate::Constructor::_check_required which was called 2 times, avg 35µs/call:
# 2 times (62µs+7µs) by Method::Generate::Constructor::generate_method at line 100, avg 35µs/call | ||||
188 | 2 | 800ns | my ($self, $spec) = @_; | ||
189 | my @required_init = | ||||
190 | map $spec->{$_}{init_arg}, | ||||
191 | grep { | ||||
192 | 15 | 54µs | 2 | 7µs | my %s = %{$spec->{$_}}; # ignore required if default or builder set # spent 7µs making 2 calls to Method::Generate::Constructor::CORE:sort, avg 4µs/call |
193 | 13 | 8µs | $s{required} and not($s{builder} or $s{default}) | ||
194 | } sort keys %$spec; | ||||
195 | 2 | 5µs | return '' unless @required_init; | ||
196 | 1 | 6µs | ' if (my @missing = grep !exists $args->{$_}, qw(' | ||
197 | .join(' ',@required_init).')) {'."\n" | ||||
198 | .q{ die "Missing required arguments: ".join(', ', sort @missing);}."\n" | ||||
199 | ." }\n"; | ||||
200 | } | ||||
201 | |||||
202 | 4 | 152µs | 4 | 795µs | # spent 385µs (11+374) within Method::Generate::Constructor::BEGIN@202 which was called:
# once (11µs+374µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 202
# spent 45µs (8+36) within Method::Generate::Constructor::__ANON__[/usr/share/perl5/Method/Generate/Constructor.pm:202] which was called:
# once (8µs+36µs) by import::into at line 36 of Import/Into.pm # spent 385µs making 1 call to Method::Generate::Constructor::BEGIN@202
# spent 374µs making 1 call to Moo::import
# spent 24µs making 1 call to strictures::import
# spent 12µs making 1 call to Module::Runtime::use_module |
203 | # bootstrap our own constructor | ||||
204 | sub new { | ||||
205 | 1 | 300ns | my $class = shift; | ||
206 | 1 | 6µs | 1 | 5µs | bless $class->BUILDARGS(@_), $class; # spent 5µs making 1 call to Moo::Object::BUILDARGS |
207 | } | ||||
208 | 1 | 11µs | 2 | 206µs | Moo->_constructor_maker_for(__PACKAGE__) # spent 178µs making 1 call to Moo::_constructor_maker_for
# spent 28µs making 1 call to Method::Generate::Constructor::register_attribute_specs |
209 | ->register_attribute_specs( | ||||
210 | attribute_specs => { | ||||
211 | is => 'ro', | ||||
212 | reader => 'all_attribute_specs', | ||||
213 | }, | ||||
214 | accessor_generator => { is => 'ro' }, | ||||
215 | construction_string => { is => 'lazy' }, | ||||
216 | construction_builder => { is => 'bare' }, | ||||
217 | subconstructor_handler => { is => 'ro' }, | ||||
218 | package => { is => 'bare' }, | ||||
219 | ); | ||||
220 | |||||
221 | 1 | 4µs | 1; | ||
# spent 11µs within Method::Generate::Constructor::CORE:sort which was called 6 times, avg 2µs/call:
# 2 times (7µs+0s) by Method::Generate::Constructor::_check_required at line 192, avg 4µs/call
# 2 times (2µs+0s) by Method::Generate::Constructor::_assign_new at line 170, avg 1µs/call
# 2 times (2µs+0s) by Method::Generate::Constructor::_assign_new at line 177, avg 1µs/call | |||||
# spent 7µs within Method::Generate::Constructor::CORE:subst which was called 13 times, avg 562ns/call:
# 13 times (7µs+0s) by Method::Generate::Constructor::register_attribute_specs at line 12, avg 562ns/call |