← Index
NYTProf Performance Profile   « line view »
For starman worker -M FindBin --max-requests 50 --workers 2 --user=kohadev-koha --group kohadev-koha --pid /var/run/koha/kohadev/plack.pid --daemonize --access-log /var/log/koha/kohadev/plack.log --error-log /var/log/koha/kohadev/plack-error.log -E deployment --socket /var/run/koha/kohadev/plack.sock /etc/koha/sites/kohadev/plack.psgi
  Run on Fri Jan 8 14:31:06 2016
Reported on Fri Jan 8 14:31:38 2016

Filename/usr/share/perl5/Method/Generate/Accessor.pm
StatementsExecuted 633 statements in 5.94ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1322278µs278µsMethod::Generate::Accessor::::has_eager_defaultMethod::Generate::Accessor::has_eager_default
711241µs1.37msMethod::Generate::Accessor::::generate_methodMethod::Generate::Accessor::generate_method
1111110µs387µsMethod::Generate::Accessor::::_generate_populate_setMethod::Generate::Accessor::_generate_populate_set
165186µs220µsMethod::Generate::Accessor::::_generate_simple_setMethod::Generate::Accessor::_generate_simple_set
43159µs168µsMethod::Generate::Accessor::::_generate_call_codeMethod::Generate::Accessor::_generate_call_code
161153µs89µsMethod::Generate::Accessor::::_generate_core_setMethod::Generate::Accessor::_generate_core_set
111152µs438µsMethod::Generate::Accessor::::generate_populate_setMethod::Generate::Accessor::generate_populate_set
41137µs311µsMethod::Generate::Accessor::::_generate_xsMethod::Generate::Accessor::_generate_xs
32137µs264µsMethod::Generate::Accessor::::_generate_getMethod::Generate::Accessor::_generate_get
22132µs114µsMethod::Generate::Accessor::::_generate_setMethod::Generate::Accessor::_generate_set
31132µs182µsMethod::Generate::Accessor::::_generate_use_defaultMethod::Generate::Accessor::_generate_use_default
32127µs35µsMethod::Generate::Accessor::::_validate_codulatableMethod::Generate::Accessor::_validate_codulatable
11121µs40µsMethod::Generate::Accessor::::_wrap_attr_exceptionMethod::Generate::Accessor::_wrap_attr_exception
62120µs37µsMethod::Generate::Accessor::::_generate_simple_getMethod::Generate::Accessor::_generate_simple_get
11119µs19µsMethod::Generate::Accessor::::CORE:regcompMethod::Generate::Accessor::CORE:regcomp (opcode)
11118µs88µsMethod::Generate::Accessor::::BEGIN@11Method::Generate::Accessor::BEGIN@11
42118µs103µsMethod::Generate::Accessor::::_generate_get_defaultMethod::Generate::Accessor::_generate_get_default
103117µs17µsMethod::Generate::Accessor::::is_simple_getMethod::Generate::Accessor::is_simple_get
11116µs55µsMethod::Generate::Accessor::::BEGIN@3Method::Generate::Accessor::BEGIN@3
31112µs21µsMethod::Generate::Accessor::::_generate_simple_hasMethod::Generate::Accessor::_generate_simple_has
11111µs184µsMethod::Generate::Accessor::::_generate_getsetMethod::Generate::Accessor::_generate_getset
11111µs34µsMethod::Generate::Accessor::::BEGIN@7Method::Generate::Accessor::BEGIN@7
32110µs10µsMethod::Generate::Accessor::::is_simple_setMethod::Generate::Accessor::is_simple_set
11110µs59µsMethod::Generate::Accessor::::BEGIN@4Method::Generate::Accessor::BEGIN@4
11110µs107µsMethod::Generate::Accessor::::_generate_isa_checkMethod::Generate::Accessor::_generate_isa_check
1118µs24µsMethod::Generate::Accessor::::BEGIN@8Method::Generate::Accessor::BEGIN@8
1117µs19µsMethod::Generate::Accessor::::BEGIN@10Method::Generate::Accessor::BEGIN@10
1116µs38µsMethod::Generate::Accessor::::_generate_triggerMethod::Generate::Accessor::_generate_trigger
1115µs8µsMethod::Generate::Accessor::::_generate_simple_clearMethod::Generate::Accessor::_generate_simple_clear
1115µs8µsMethod::Generate::Accessor::::_attr_descMethod::Generate::Accessor::_attr_desc
1114µs4µsMethod::Generate::Accessor::::BEGIN@9Method::Generate::Accessor::BEGIN@9
1113µs3µsMethod::Generate::Accessor::::BEGIN@5Method::Generate::Accessor::BEGIN@5
7112µs2µsMethod::Generate::Accessor::::CORE:substMethod::Generate::Accessor::CORE:subst (opcode)
1112µs2µsMethod::Generate::Accessor::::CORE:qrMethod::Generate::Accessor::CORE:qr (opcode)
1112µs2µsMethod::Generate::Accessor::::default_construction_stringMethod::Generate::Accessor::default_construction_string
0000s0sMethod::Generate::Accessor::::__ANON__[:78]Method::Generate::Accessor::__ANON__[:78]
0000s0sMethod::Generate::Accessor::::_die_overwriteMethod::Generate::Accessor::_die_overwrite
0000s0sMethod::Generate::Accessor::::_generate_asserterMethod::Generate::Accessor::_generate_asserter
0000s0sMethod::Generate::Accessor::::_generate_coerceMethod::Generate::Accessor::_generate_coerce
0000s0sMethod::Generate::Accessor::::_generate_delegationMethod::Generate::Accessor::_generate_delegation
0000s0sMethod::Generate::Accessor::::_sanitize_nameMethod::Generate::Accessor::_sanitize_name
0000s0sMethod::Generate::Accessor::::generate_coerceMethod::Generate::Accessor::generate_coerce
0000s0sMethod::Generate::Accessor::::generate_get_defaultMethod::Generate::Accessor::generate_get_default
0000s0sMethod::Generate::Accessor::::generate_isa_checkMethod::Generate::Accessor::generate_isa_check
0000s0sMethod::Generate::Accessor::::generate_simple_getMethod::Generate::Accessor::generate_simple_get
0000s0sMethod::Generate::Accessor::::generate_simple_hasMethod::Generate::Accessor::generate_simple_has
0000s0sMethod::Generate::Accessor::::generate_triggerMethod::Generate::Accessor::generate_trigger
0000s0sMethod::Generate::Accessor::::generate_use_defaultMethod::Generate::Accessor::generate_use_default
0000s0sMethod::Generate::Accessor::::is_simple_attributeMethod::Generate::Accessor::is_simple_attribute
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::Accessor;
2
3330µs394µs
# spent 55µs (16+39) within Method::Generate::Accessor::BEGIN@3 which was called: # once (16µs+39µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 3
use strictures 1;
# spent 55µs making 1 call to Method::Generate::Accessor::BEGIN@3 # spent 20µs making 1 call to strictures::import # spent 19µs making 1 call to strictures::VERSION
4277µs2109µs
# spent 59µs (10+50) within Method::Generate::Accessor::BEGIN@4 which was called: # once (10µs+50µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 4
use Moo::_Utils;
# spent 59µs making 1 call to Method::Generate::Accessor::BEGIN@4 # spent 50µs making 1 call to Exporter::import
5241µs13µs
# spent 3µs within Method::Generate::Accessor::BEGIN@5 which was called: # once (3µs+0s) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 5
use Moo::Object ();
# spent 3µs making 1 call to Method::Generate::Accessor::BEGIN@5
6111µsour @ISA = qw(Moo::Object);
7255µs257µs
# spent 34µs (11+23) within Method::Generate::Accessor::BEGIN@7 which was called: # once (11µs+23µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 7
use Sub::Quote qw(quote_sub quoted_from_sub quotify);
# spent 34µs making 1 call to Method::Generate::Accessor::BEGIN@7 # spent 23µs making 1 call to Exporter::import
8242µs240µs
# spent 24µs (8+16) within Method::Generate::Accessor::BEGIN@8 which was called: # once (8µs+16µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 8
use Scalar::Util 'blessed';
# spent 24µs making 1 call to Method::Generate::Accessor::BEGIN@8 # spent 16µs making 1 call to Exporter::import
9223µs14µs
# spent 4µs within Method::Generate::Accessor::BEGIN@9 which was called: # once (4µs+0s) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 9
use overload ();
# spent 4µs making 1 call to Method::Generate::Accessor::BEGIN@9
102101µs231µs
# spent 19µs (7+12) within Method::Generate::Accessor::BEGIN@10 which was called: # once (7µs+12µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 10
use Module::Runtime qw(use_module);
# spent 19µs making 1 call to Method::Generate::Accessor::BEGIN@10 # spent 12µs making 1 call to Module::Runtime::import
11
# spent 88µs (18+69) within Method::Generate::Accessor::BEGIN@11 which was called: # once (18µs+69µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 23
BEGIN {
12 our $CAN_HAZ_XS =
13 !$ENV{MOO_XS_DISABLE}
14 &&
15 _maybe_load_module('Class::XSAccessor')
16 &&
17217µs266µs (eval { Class::XSAccessor->VERSION('1.07') })
# spent 59µs making 1 call to Moo::_Utils::_maybe_load_module # spent 6µs making 1 call to version::vxs::_VERSION
18 ;
19 our $CAN_HAZ_XS_PRED =
20 $CAN_HAZ_XS &&
2129µs14µs (eval { Class::XSAccessor->VERSION('1.17') })
# spent 4µs making 1 call to version::vxs::_VERSION
22 ;
2314.33ms188µs}
# spent 88µs making 1 call to Method::Generate::Accessor::BEGIN@11
24
25137µs221µsmy $module_name_only = qr/\A$Module::Runtime::module_name_rx\z/;
# spent 19µs making 1 call to Method::Generate::Accessor::CORE:regcomp # spent 2µs making 1 call to Method::Generate::Accessor::CORE:qr
26
27sub _die_overwrite
28{
29 my ($pkg, $method, $type) = @_;
30 die "You cannot overwrite a locally defined method ($method) with "
31 . ( $type || 'an accessor' );
32}
33
34
# spent 1.37ms (241µs+1.13) within Method::Generate::Accessor::generate_method which was called 7 times, avg 196µs/call: # 7 times (241µs+1.13ms) by Moo::has at line 54 of Moo.pm, avg 196µs/call
sub generate_method {
3574µs my ($self, $into, $name, $spec, $quote_opts) = @_;
36716µs72µs $spec->{allow_overwrite}++ if $name =~ s/^\+//;
# spent 2µs making 7 calls to Method::Generate::Accessor::CORE:subst, avg 357ns/call
3774µs die "Must have an is" unless my $is = $spec->{is};
38717µs if ($is eq 'ro') {
39 $spec->{reader} = $name unless exists $spec->{reader};
40 } elsif ($is eq 'rw') {
41 $spec->{accessor} = $name unless exists $spec->{accessor}
42 or ( $spec->{reader} and $spec->{writer} );
43 } elsif ($is eq 'lazy') {
44 $spec->{reader} = $name unless exists $spec->{reader};
45 $spec->{lazy} = 1;
46 $spec->{builder} ||= '_build_'.$name unless exists $spec->{default};
47 } elsif ($is eq 'rwp') {
48 $spec->{reader} = $name unless exists $spec->{reader};
49 $spec->{writer} = "_set_${name}" unless exists $spec->{writer};
50 } elsif ($is ne 'bare') {
51 die "Unknown is ${is}";
52 }
5372µs if (exists $spec->{builder}) {
54 if(ref $spec->{builder}) {
55 $self->_validate_codulatable('builder', $spec->{builder},
56 "$into->$name", 'or a method name');
57 $spec->{builder_sub} = $spec->{builder};
58 $spec->{builder} = 1;
59 }
60 $spec->{builder} = '_build_'.$name if ($spec->{builder}||0) eq 1;
61 die "Invalid builder for $into->$name - not a valid method name"
62 if $spec->{builder} !~ $module_name_only;
63 }
6473µs if (($spec->{predicate}||0) eq 1) {
65 $spec->{predicate} = $name =~ /^_/ ? "_has${name}" : "has_${name}";
66 }
6772µs if (($spec->{clearer}||0) eq 1) {
68 $spec->{clearer} = $name =~ /^_/ ? "_clear${name}" : "clear_${name}";
69 }
7072µs if (($spec->{trigger}||0) eq 1) {
71 $spec->{trigger} = quote_sub('shift->_trigger_'.$name.'(@_)');
72 }
7372µs if (($spec->{coerce}||0) eq 1) {
74 my $isa = $spec->{isa};
75 if (blessed $isa and $isa->can('coercion')) {
76 $spec->{coerce} = $isa->coercion;
77 } elsif (blessed $isa and $isa->can('coerce')) {
78 $spec->{coerce} = sub { $isa->coerce(@_) };
79 } else {
80 die "Invalid coercion for $into->$name - no appropriate type constraint";
81 }
82 }
83
84711µs for my $setting (qw( isa coerce )) {
85145µs next if !exists $spec->{$setting};
8613µs114µs $self->_validate_codulatable($setting, $spec->{$setting}, "$into->$name");
# spent 14µs making 1 call to Method::Generate::Accessor::_validate_codulatable
87 }
88
89710µs222µs if (exists $spec->{default}) {
# spent 22µs making 2 calls to Method::Generate::Accessor::_validate_codulatable, avg 11µs/call
90 if (ref $spec->{default}) {
91 $self->_validate_codulatable('default', $spec->{default}, "$into->$name",
92 'or a non-ref');
93 }
94 }
95
9672µs if (exists $spec->{moosify}) {
97 if (ref $spec->{moosify} ne 'ARRAY') {
98 $spec->{moosify} = [$spec->{moosify}];
99 }
100
101 for my $spec (@{$spec->{moosify}}) {
102 $self->_validate_codulatable('moosify', $spec, "$into->$name");
103 }
104 }
105
10671µs my %methods;
10776µs if (my $reader = $spec->{reader}) {
108 _die_overwrite($into, $reader, 'a reader')
109611µs618µs if !$spec->{allow_overwrite} && *{_getglob("${into}::${reader}")}{CODE};
# spent 18µs making 6 calls to Moo::_Utils::_getglob, avg 3µs/call
110616µs10322µs if (our $CAN_HAZ_XS && $self->is_simple_get($name, $spec)) {
# spent 311µs making 4 calls to Method::Generate::Accessor::_generate_xs, avg 78µs/call # spent 10µs making 6 calls to Method::Generate::Accessor::is_simple_get, avg 2µs/call
111 $methods{$reader} = $self->_generate_xs(
112 getters => $into, $reader, $name, $spec
113 );
114 } else {
11521µs $self->{captures} = {};
116210µs4240µs $methods{$reader} =
# spent 129µs making 2 calls to Method::Generate::Accessor::_generate_get, avg 65µs/call # spent 111µs making 2 calls to Sub::Quote::quote_sub, avg 55µs/call
117 quote_sub "${into}::${reader}"
118 => ' die "'.$reader.' is a read-only accessor" if @_ > 1;'."\n"
119 .$self->_generate_get($name, $spec)
120 => delete $self->{captures}
121 ;
122 }
123 }
12474µs if (my $accessor = $spec->{accessor}) {
125 _die_overwrite($into, $accessor, 'an accessor')
12614µs114µs if !$spec->{allow_overwrite} && *{_getglob("${into}::${accessor}")}{CODE};
# spent 14µs making 1 call to Moo::_Utils::_getglob
12712µs12µs if (
# spent 2µs making 1 call to Method::Generate::Accessor::is_simple_get
128 our $CAN_HAZ_XS
129 && $self->is_simple_get($name, $spec)
130 && $self->is_simple_set($name, $spec)
131 ) {
132 $methods{$accessor} = $self->_generate_xs(
133 accessors => $into, $accessor, $name, $spec
134 );
135 } else {
13612µs $self->{captures} = {};
13716µs2290µs $methods{$accessor} =
# spent 184µs making 1 call to Method::Generate::Accessor::_generate_getset # spent 106µs making 1 call to Sub::Quote::quote_sub
138 quote_sub "${into}::${accessor}"
139 => $self->_generate_getset($name, $spec)
140 => delete $self->{captures}
141 ;
142 }
143 }
14473µs if (my $writer = $spec->{writer}) {
145 _die_overwrite($into, $writer, 'a writer')
14613µs13µs if !$spec->{allow_overwrite} && *{_getglob("${into}::${writer}")}{CODE};
# spent 3µs making 1 call to Moo::_Utils::_getglob
14712µs14µs if (
# spent 4µs making 1 call to Method::Generate::Accessor::is_simple_set
148 our $CAN_HAZ_XS
149 && $self->is_simple_set($name, $spec)
150 ) {
151 $methods{$writer} = $self->_generate_xs(
152 setters => $into, $writer, $name, $spec
153 );
154 } else {
15511µs $self->{captures} = {};
15615µs2139µs $methods{$writer} =
# spent 76µs making 1 call to Method::Generate::Accessor::_generate_set # spent 63µs making 1 call to Sub::Quote::quote_sub
157 quote_sub "${into}::${writer}"
158 => $self->_generate_set($name, $spec)
159 => delete $self->{captures}
160 ;
161 }
162 }
16372µs if (my $pred = $spec->{predicate}) {
164 _die_overwrite($into, $pred, 'a predicate')
165 if !$spec->{allow_overwrite} && *{_getglob("${into}::${pred}")}{CODE};
166 if (our $CAN_HAZ_XS && our $CAN_HAZ_XS_PRED) {
167 $methods{$pred} = $self->_generate_xs(
168 exists_predicates => $into, $pred, $name, $spec
169 );
170 } else {
171 $methods{$pred} =
172 quote_sub "${into}::${pred}" =>
173 ' '.$self->_generate_simple_has('$_[0]', $name, $spec)."\n"
174 ;
175 }
176 }
17772µs if (my $pred = $spec->{builder_sub}) {
178 _install_coderef( "${into}::$spec->{builder}" => $spec->{builder_sub} );
179 }
18073µs if (my $cl = $spec->{clearer}) {
181 _die_overwrite($into, $cl, 'a clearer')
18212µs12µs if !$spec->{allow_overwrite} && *{_getglob("${into}::${cl}")}{CODE};
# spent 2µs making 1 call to Moo::_Utils::_getglob
18314µs257µs $methods{$cl} =
# spent 49µs making 1 call to Sub::Quote::quote_sub # spent 8µs making 1 call to Method::Generate::Accessor::_generate_simple_clear
184 quote_sub "${into}::${cl}" =>
185 $self->_generate_simple_clear('$_[0]', $name, $spec)."\n"
186 ;
187 }
18873µs if (my $hspec = $spec->{handles}) {
189 my $asserter = $spec->{asserter} ||= '_assert_'.$name;
190 my @specs = do {
191 if (ref($hspec) eq 'ARRAY') {
192 map [ $_ => $_ ], @$hspec;
193 } elsif (ref($hspec) eq 'HASH') {
194 map [ $_ => ref($hspec->{$_}) ? @{$hspec->{$_}} : $hspec->{$_} ],
195 keys %$hspec;
196 } elsif (!ref($hspec)) {
197 map [ $_ => $_ ], use_module('Moo::Role')->methods_provided_by(use_module($hspec))
198 } else {
199 die "You gave me a handles of ${hspec} and I have no idea why";
200 }
201 };
202 foreach my $delegation_spec (@specs) {
203 my ($proxy, $target, @args) = @$delegation_spec;
204 _die_overwrite($into, $proxy, 'a delegation')
205 if !$spec->{allow_overwrite} && *{_getglob("${into}::${proxy}")}{CODE};
206 $self->{captures} = {};
207 $methods{$proxy} =
208 quote_sub "${into}::${proxy}" =>
209 $self->_generate_delegation($asserter, $target, \@args),
210 delete $self->{captures}
211 ;
212 }
213 }
21472µs if (my $asserter = $spec->{asserter}) {
215 $self->{captures} = {};
216
217
218 $methods{$asserter} =
219 quote_sub "${into}::${asserter}" =>
220 $self->_generate_asserter($name, $spec),
221 delete $self->{captures};
222 }
223718µs \%methods;
224}
225
226sub is_simple_attribute {
227 my ($self, $name, $spec) = @_;
228 # clearer doesn't have to be listed because it doesn't
229 # affect whether defined/exists makes a difference
230 !grep $spec->{$_},
231 qw(lazy default builder coerce isa trigger predicate weak_ref);
232}
233
234
# spent 17µs within Method::Generate::Accessor::is_simple_get which was called 10 times, avg 2µs/call: # 6 times (10µs+0s) by Method::Generate::Accessor::generate_method at line 110, avg 2µs/call # 3 times (4µs+0s) by Method::Generate::Accessor::_generate_get at line 252, avg 1µs/call # once (2µs+0s) by Method::Generate::Accessor::generate_method at line 127
sub is_simple_get {
235104µs my ($self, $name, $spec) = @_;
2361026µs !($spec->{lazy} and (exists $spec->{default} or $spec->{builder}));
237}
238
239
# spent 10µs within Method::Generate::Accessor::is_simple_set which was called 3 times, avg 4µs/call: # 2 times (7µs+0s) by Method::Generate::Accessor::_generate_set at line 340, avg 3µs/call # once (4µs+0s) by Method::Generate::Accessor::generate_method at line 147
sub is_simple_set {
24031µs my ($self, $name, $spec) = @_;
241320µs !grep $spec->{$_}, qw(coerce isa trigger weak_ref);
242}
243
244
# spent 278µs within Method::Generate::Accessor::has_eager_default which was called 13 times, avg 21µs/call: # 11 times (17µs+0s) by Method::Generate::Accessor::_generate_populate_set at line 497, avg 2µs/call # 2 times (262µs+0s) by Method::Generate::Constructor::_assign_new at line 172 of Method/Generate/Constructor.pm, avg 131µs/call
sub has_eager_default {
24513243µs my ($self, $name, $spec) = @_;
2461367µs (!$spec->{lazy} and (exists $spec->{default} or $spec->{builder}));
247}
248
249
# spent 264µs (37+227) within Method::Generate::Accessor::_generate_get which was called 3 times, avg 88µs/call: # 2 times (16µs+113µs) by Method::Generate::Accessor::generate_method at line 116, avg 65µs/call # once (20µs+114µs) by Method::Generate::Accessor::_generate_getset at line 609
sub _generate_get {
25031µs my ($self, $name, $spec) = @_;
25134µs320µs my $simple = $self->_generate_simple_get('$_[0]', $name, $spec);
# spent 20µs making 3 calls to Method::Generate::Accessor::_generate_simple_get, avg 7µs/call
252310µs34µs if ($self->is_simple_get($name, $spec)) {
# spent 4µs making 3 calls to Method::Generate::Accessor::is_simple_get, avg 1µs/call
253 $simple;
254 } else {
25539µs6203µs $self->_generate_use_default(
# spent 182µs making 3 calls to Method::Generate::Accessor::_generate_use_default, avg 61µs/call # spent 21µs making 3 calls to Method::Generate::Accessor::_generate_simple_has, avg 7µs/call
256 '$_[0]', $name, $spec,
257 $self->_generate_simple_has('$_[0]', $name, $spec),
258 );
259 }
260}
261
262sub generate_simple_has {
263 my $self = shift;
264 $self->{captures} = {};
265 my $code = $self->_generate_simple_has(@_);
266 ($code, delete $self->{captures});
267}
268
269
# spent 21µs (12+8) within Method::Generate::Accessor::_generate_simple_has which was called 3 times, avg 7µs/call: # 3 times (12µs+8µs) by Method::Generate::Accessor::_generate_get at line 255, avg 7µs/call
sub _generate_simple_has {
27031µs my ($self, $me, $name) = @_;
271310µs38µs "exists ${me}->{${\quotify $name}}";
# spent 8µs making 3 calls to Sub::Quote::quotify, avg 3µs/call
272}
273
274
# spent 8µs (5+3) within Method::Generate::Accessor::_generate_simple_clear which was called: # once (5µs+3µs) by Method::Generate::Accessor::generate_method at line 183
sub _generate_simple_clear {
2751600ns my ($self, $me, $name) = @_;
27616µs13µs " delete ${me}->{${\quotify $name}}\n"
# spent 3µs making 1 call to Sub::Quote::quotify
277}
278
279sub generate_get_default {
280 my $self = shift;
281 $self->{captures} = {};
282 my $code = $self->_generate_get_default(@_);
283 ($code, delete $self->{captures});
284}
285
286sub generate_use_default {
287 my $self = shift;
288 $self->{captures} = {};
289 my $code = $self->_generate_use_default(@_);
290 ($code, delete $self->{captures});
291}
292
293
# spent 182µs (32+151) within Method::Generate::Accessor::_generate_use_default which was called 3 times, avg 61µs/call: # 3 times (32µs+151µs) by Method::Generate::Accessor::_generate_get at line 255, avg 61µs/call
sub _generate_use_default {
29432µs my ($self, $me, $name, $spec, $test) = @_;
29535µs395µs my $get_value = $self->_generate_get_default($me, $name, $spec);
# spent 95µs making 3 calls to Method::Generate::Accessor::_generate_get_default, avg 32µs/call
29631µs if ($spec->{coerce}) {
297 $get_value = $self->_generate_coerce(
298 $name, $get_value,
299 $spec->{coerce}
300 )
301 }
302317µs656µs $test." ? \n"
# spent 39µs making 3 calls to Method::Generate::Accessor::_generate_simple_set, avg 13µs/call # spent 17µs making 3 calls to Method::Generate::Accessor::_generate_simple_get, avg 6µs/call
303 .$self->_generate_simple_get($me, $name, $spec)."\n:"
304 .($spec->{isa} ?
305 " do {\n my \$value = ".$get_value.";\n"
306 ." ".$self->_generate_isa_check($name, '$value', $spec->{isa}).";\n"
307 ." ".$self->_generate_simple_set($me, $name, $spec, '$value')."\n"
308 ." }\n"
309 : ' ('.$self->_generate_simple_set($me, $name, $spec, $get_value).")\n"
310 );
311}
312
313
# spent 103µs (18+85) within Method::Generate::Accessor::_generate_get_default which was called 4 times, avg 26µs/call: # 3 times (13µs+81µs) by Method::Generate::Accessor::_generate_use_default at line 295, avg 32µs/call # once (5µs+4µs) by Method::Generate::Accessor::_generate_populate_set at line 499
sub _generate_get_default {
31442µs my ($self, $me, $name, $spec) = @_;
315418µs485µs if (exists $spec->{default}) {
# spent 79µs making 2 calls to Method::Generate::Accessor::_generate_call_code, avg 40µs/call # spent 6µs making 2 calls to Sub::Quote::quotify, avg 3µs/call
316 ref $spec->{default}
317 ? $self->_generate_call_code($name, 'default', $me, $spec->{default})
318 : quotify $spec->{default};
319 }
320 else {
321 "${me}->${\$spec->{builder}}"
322 }
323}
324
325sub generate_simple_get {
326 my ($self, @args) = @_;
327 $self->{captures} = {};
328 my $code = $self->_generate_simple_get(@args);
329 ($code, delete $self->{captures});
330}
331
332
# spent 37µs (20+18) within Method::Generate::Accessor::_generate_simple_get which was called 6 times, avg 6µs/call: # 3 times (11µs+9µs) by Method::Generate::Accessor::_generate_get at line 251, avg 7µs/call # 3 times (9µs+9µs) by Method::Generate::Accessor::_generate_use_default at line 302, avg 6µs/call
sub _generate_simple_get {
33362µs my ($self, $me, $name) = @_;
33465µs618µs my $name_str = quotify $name;
# spent 18µs making 6 calls to Sub::Quote::quotify, avg 3µs/call
335619µs "${me}->{${name_str}}";
336}
337
338
# spent 114µs (32+82) within Method::Generate::Accessor::_generate_set which was called 2 times, avg 57µs/call: # once (22µs+54µs) by Method::Generate::Accessor::generate_method at line 156 # once (10µs+28µs) by Method::Generate::Accessor::_generate_getset at line 609
sub _generate_set {
3392900ns my ($self, $name, $spec) = @_;
340212µs330µs if ($self->is_simple_set($name, $spec)) {
# spent 23µs making 1 call to Method::Generate::Accessor::_generate_simple_set # spent 7µs making 2 calls to Method::Generate::Accessor::is_simple_set, avg 3µs/call
341 $self->_generate_simple_set('$_[0]', $name, $spec, '$_[1]');
342 } else {
34311µs my ($coerce, $trigger, $isa_check) = @{$spec}{qw(coerce trigger isa)};
3441300ns my $value_store = '$_[0]';
3451300ns my $code;
3461500ns if ($coerce) {
347 $value_store = '$value';
348 $code = "do { my (\$self, \$value) = \@_;\n"
349 ." \$value = "
350 .$self->_generate_coerce($name, $value_store, $coerce).";\n";
351 }
352 else {
3531400ns $code = "do { my \$self = shift;\n";
354 }
3551200ns if ($isa_check) {
356 $code .=
357 " ".$self->_generate_isa_check($name, $value_store, $isa_check).";\n";
358 }
35912µs114µs my $simple = $self->_generate_simple_set('$self', $name, $spec, $value_store);
# spent 14µs making 1 call to Method::Generate::Accessor::_generate_simple_set
3601600ns if ($trigger) {
36113µs138µs my $fire = $self->_generate_trigger($name, '$self', $value_store, $trigger);
# spent 38µs making 1 call to Method::Generate::Accessor::_generate_trigger
36216µs $code .=
363 " ".$simple.";\n ".$fire.";\n"
364 ." $value_store;\n";
365 } else {
366 $code .= " ".$simple.";\n";
367 }
3681400ns $code .= " }";
3691600ns $code;
370 }
371}
372
373sub generate_coerce {
374 my $self = shift;
375 $self->{captures} = {};
376 my $code = $self->_generate_coerce(@_);
377 ($code, delete $self->{captures});
378}
379
380
# spent 8µs (5+3) within Method::Generate::Accessor::_attr_desc which was called: # once (5µs+3µs) by Method::Generate::Accessor::_wrap_attr_exception at line 418
sub _attr_desc {
3811400ns my ($name, $init_arg) = @_;
38214µs13µs return quotify($name) if !defined($init_arg) or $init_arg eq $name;
# spent 3µs making 1 call to Sub::Quote::quotify
383 return quotify($name).' (constructor argument: '.quotify($init_arg).')';
384}
385
386sub _generate_coerce {
387 my ($self, $name, $value, $coerce, $init_arg) = @_;
388 $self->_wrap_attr_exception(
389 $name,
390 "coercion",
391 $init_arg,
392 $self->_generate_call_code($name, 'coerce', "${value}", $coerce),
393 1,
394 );
395}
396
397sub generate_trigger {
398 my $self = shift;
399 $self->{captures} = {};
400 my $code = $self->_generate_trigger(@_);
401 ($code, delete $self->{captures});
402}
403
404
# spent 38µs (6+32) within Method::Generate::Accessor::_generate_trigger which was called: # once (6µs+32µs) by Method::Generate::Accessor::_generate_set at line 361
sub _generate_trigger {
4051500ns my ($self, $name, $obj, $value, $trigger) = @_;
40616µs132µs $self->_generate_call_code($name, 'trigger', "${obj}, ${value}", $trigger);
# spent 32µs making 1 call to Method::Generate::Accessor::_generate_call_code
407}
408
409sub generate_isa_check {
410 my ($self, @args) = @_;
411 $self->{captures} = {};
412 my $code = $self->_generate_isa_check(@args);
413 ($code, delete $self->{captures});
414}
415
416
# spent 40µs (21+19) within Method::Generate::Accessor::_wrap_attr_exception which was called: # once (21µs+19µs) by Method::Generate::Accessor::_generate_isa_check at line 449
sub _wrap_attr_exception {
4171800ns my ($self, $name, $step, $arg, $code, $want_return) = @_;
41814µs212µs my $prefix = quotify("${step} for "._attr_desc($name, $arg).' failed: ');
# spent 8µs making 1 call to Method::Generate::Accessor::_attr_desc # spent 4µs making 1 call to Sub::Quote::quotify
419112µs37µs "do {\n"
# spent 7µs making 3 calls to Sub::Quote::quotify, avg 2µs/call
420 .' local $Method::Generate::Accessor::CurrentAttribute = {'."\n"
421 .' init_arg => '.quotify($arg).",\n"
422 .' name => '.quotify($name).",\n"
423 .' step => '.quotify($step).",\n"
424 ." };\n"
425 .($want_return ? ' my $_return;'."\n" : '')
426 .' my $_error;'."\n"
427 ." {\n"
428 .' my $_old_error = $@;'."\n"
429 ." if (!eval {\n"
430 .' $@ = $_old_error;'."\n"
431 .($want_return ? ' $_return ='."\n" : '')
432 .' '.$code.";\n"
433 ." 1;\n"
434 ." }) {\n"
435 .' $_error = $@;'."\n"
436 .' if (!ref $_error) {'."\n"
437 .' $_error = '.$prefix.'.$_error;'."\n"
438 ." }\n"
439 ." }\n"
440 .' $@ = $_old_error;'."\n"
441 ." }\n"
442 .' die $_error if $_error;'."\n"
443 .($want_return ? ' $_return;'."\n" : '')
444 ."}\n"
445}
446
447
# spent 107µs (10+97) within Method::Generate::Accessor::_generate_isa_check which was called: # once (10µs+97µs) by Method::Generate::Accessor::_generate_populate_set at line 533
sub _generate_isa_check {
4481800ns my ($self, $name, $value, $check, $init_arg) = @_;
44917µs297µs $self->_wrap_attr_exception(
# spent 57µs making 1 call to Method::Generate::Accessor::_generate_call_code # spent 40µs making 1 call to Method::Generate::Accessor::_wrap_attr_exception
450 $name,
451 "isa check",
452 $init_arg,
453 $self->_generate_call_code($name, 'isa_check', $value, $check)
454 );
455}
456
457
# spent 168µs (59+109) within Method::Generate::Accessor::_generate_call_code which was called 4 times, avg 42µs/call: # 2 times (29µs+50µs) by Method::Generate::Accessor::_generate_get_default at line 315, avg 40µs/call # once (14µs+43µs) by Method::Generate::Accessor::_generate_isa_check at line 449 # once (17µs+15µs) by Method::Generate::Accessor::_generate_trigger at line 406
sub _generate_call_code {
45842µs my ($self, $name, $type, $values, $sub) = @_;
459414µs44µs $sub = \&{$sub} if blessed($sub); # coderef if blessed
# spent 4µs making 4 calls to Scalar::Util::blessed, avg 900ns/call
460426µs438µs if (my $quoted = quoted_from_sub($sub)) {
# spent 38µs making 4 calls to Sub::Quote::quoted_from_sub, avg 9µs/call
46141µs my $local = 1;
46242µs if ($values eq '@_' || $values eq '$_[0]') {
4632300ns $local = 0;
4642600ns $values = '@_';
465 }
46642µs my $code = $quoted->[1];
46743µs if (my $captures = $quoted->[2]) {
468 my $cap_name = qq{\$${type}_captures_for_}.$self->_sanitize_name($name);
469 $self->{captures}->{$cap_name} = \$captures;
470 Sub::Quote::inlinify($code, $values,
471 Sub::Quote::capture_unroll($cap_name, $captures, 6), $local);
472 } else {
47348µs468µs Sub::Quote::inlinify($code, $values, undef, $local);
# spent 68µs making 4 calls to Sub::Quote::inlinify, avg 17µs/call
474 }
475 } else {
476 my $cap_name = qq{\$${type}_for_}.$self->_sanitize_name($name);
477 $self->{captures}->{$cap_name} = \$sub;
478 "${cap_name}->(${values})";
479 }
480}
481
482sub _sanitize_name {
483 my ($self, $name) = @_;
484 $name =~ s/([_\W])/sprintf('_%x', ord($1))/ge;
485 $name;
486}
487
488
# spent 438µs (52+387) within Method::Generate::Accessor::generate_populate_set which was called 11 times, avg 40µs/call: # 11 times (52µs+387µs) by Method::Generate::Constructor::_assign_new at line 181 of Method/Generate/Constructor.pm, avg 40µs/call
sub generate_populate_set {
489112µs my $self = shift;
490119µs $self->{captures} = {};
4911121µs11387µs my $code = $self->_generate_populate_set(@_);
# spent 387µs making 11 calls to Method::Generate::Accessor::_generate_populate_set, avg 35µs/call
4921123µs ($code, delete $self->{captures});
493}
494
495
# spent 387µs (110+276) within Method::Generate::Accessor::_generate_populate_set which was called 11 times, avg 35µs/call: # 11 times (110µs+276µs) by Method::Generate::Accessor::generate_populate_set at line 491, avg 35µs/call
sub _generate_populate_set {
496116µs my ($self, $me, $name, $spec, $source, $test, $init_arg) = @_;
4971132µs1117µs if ($self->has_eager_default($name, $spec)) {
# spent 17µs making 11 calls to Method::Generate::Accessor::has_eager_default, avg 2µs/call
49812µs my $get_indent = ' ' x ($spec->{isa} ? 6 : 4);
49913µs18µs my $get_default = $self->_generate_get_default(
# spent 8µs making 1 call to Method::Generate::Accessor::_generate_get_default
500 '$new', $name, $spec
501 );
50214µs my $get_value =
503 defined($spec->{init_arg})
504 ? "(\n${get_indent} ${test}\n"
505 ."${get_indent} ? ${source}\n${get_indent} : "
506 .$get_default
507 ."\n${get_indent})"
508 : $get_default;
5091500ns if ($spec->{coerce}) {
510 $get_value = $self->_generate_coerce(
511 $name, $get_value,
512 $spec->{coerce}, $init_arg
513 )
514 }
51515µs118µs ($spec->{isa}
# spent 18µs making 1 call to Method::Generate::Accessor::_generate_simple_set
516 ? " {\n my \$value = ".$get_value.";\n "
517 .$self->_generate_isa_check(
518 $name, '$value', $spec->{isa}, $init_arg
519 ).";\n"
520 .' '.$self->_generate_simple_set($me, $name, $spec, '$value').";\n"
521 ." }\n"
522 : ' '.$self->_generate_simple_set($me, $name, $spec, $get_value).";\n"
523 )
524 .($spec->{trigger}
525 ? ' '
526 .$self->_generate_trigger(
527 $name, $me, $self->_generate_simple_get($me, $name, $spec),
528 $spec->{trigger}
529 )." if ${test};\n"
530 : ''
531 );
532 } else {
5331033µs11234µs " if (${test}) {\n"
# spent 127µs making 10 calls to Method::Generate::Accessor::_generate_simple_set, avg 13µs/call # spent 107µs making 1 call to Method::Generate::Accessor::_generate_isa_check
534 .($spec->{coerce}
535 ? " $source = "
536 .$self->_generate_coerce(
537 $name, $source,
538 $spec->{coerce}, $init_arg
539 ).";\n"
540 : ""
541 )
542 .($spec->{isa}
543 ? " "
544 .$self->_generate_isa_check(
545 $name, $source, $spec->{isa}, $init_arg
546 ).";\n"
547 : ""
548 )
549 ." ".$self->_generate_simple_set($me, $name, $spec, $source).";\n"
550 .($spec->{trigger}
551 ? " "
552 .$self->_generate_trigger(
553 $name, $me, $self->_generate_simple_get($me, $name, $spec),
554 $spec->{trigger}
555 ).";\n"
556 : ""
557 )
558 ." }\n";
559 }
560}
561
562
# spent 89µs (53+36) within Method::Generate::Accessor::_generate_core_set which was called 16 times, avg 6µs/call: # 16 times (53µs+36µs) by Method::Generate::Accessor::_generate_simple_set at line 571, avg 6µs/call
sub _generate_core_set {
563166µs my ($self, $me, $name, $spec, $value) = @_;
5641610µs1636µs my $name_str = quotify $name;
# spent 36µs making 16 calls to Sub::Quote::quotify, avg 2µs/call
5651637µs "${me}->{${name_str}} = ${value}";
566}
567
568
# spent 220µs (86+135) within Method::Generate::Accessor::_generate_simple_set which was called 16 times, avg 14µs/call: # 10 times (49µs+78µs) by Method::Generate::Accessor::_generate_populate_set at line 533, avg 13µs/call # 3 times (15µs+24µs) by Method::Generate::Accessor::_generate_use_default at line 302, avg 13µs/call # once (9µs+14µs) by Method::Generate::Accessor::_generate_set at line 340 # once (8µs+10µs) by Method::Generate::Accessor::_generate_populate_set at line 515 # once (5µs+9µs) by Method::Generate::Accessor::_generate_set at line 359
sub _generate_simple_set {
569167µs my ($self, $me, $name, $spec, $value) = @_;
5701613µs1646µs my $name_str = quotify $name;
# spent 46µs making 16 calls to Sub::Quote::quotify, avg 3µs/call
5711617µs1689µs my $simple = $self->_generate_core_set($me, $name, $spec, $value);
# spent 89µs making 16 calls to Method::Generate::Accessor::_generate_core_set, avg 6µs/call
572
5731635µs if ($spec->{weak_ref}) {
574 require Scalar::Util;
575 my $get = $self->_generate_simple_get($me, $name, $spec);
576
577 # Perl < 5.8.3 can't weaken refs to readonly vars
578 # (e.g. string constants). This *can* be solved by:
579 #
580 # &Internals::SvREADONLY($foo, 0);
581 # Scalar::Util::weaken($foo);
582 # &Internals::SvREADONLY($foo, 1);
583 #
584 # but requires Internal functions and is just too damn crazy
585 # so simply throw a better exception
586 my $weak_simple = "do { Scalar::Util::weaken(${simple}); no warnings 'void'; $get }";
587 Moo::_Utils::lt_5_8_3() ? <<"EOC" : $weak_simple;
588 eval { Scalar::Util::weaken($simple); 1 }
589 ? do { no warnings 'void'; $get }
590 : do {
591 if( \$@ =~ /Modification of a read-only value attempted/) {
592 require Carp;
593 Carp::croak( sprintf (
594 'Reference to readonly value in "%s" can not be weakened on Perl < 5.8.3',
595 $name_str,
596 ) );
597 } else {
598 die \$@;
599 }
600 }
601EOC
602 } else {
603164µs $simple;
604 }
605}
606
607
# spent 184µs (11+172) within Method::Generate::Accessor::_generate_getset which was called: # once (11µs+172µs) by Method::Generate::Accessor::generate_method at line 137
sub _generate_getset {
6081600ns my ($self, $name, $spec) = @_;
60918µs2172µs q{(@_ > 1}."\n ? ".$self->_generate_set($name, $spec)
# spent 134µs making 1 call to Method::Generate::Accessor::_generate_get # spent 38µs making 1 call to Method::Generate::Accessor::_generate_set
610 ."\n : ".$self->_generate_get($name, $spec)."\n )";
611}
612
613sub _generate_asserter {
614 my ($self, $name, $spec) = @_;
615
616 "do {\n"
617 ." my \$val = ".$self->_generate_get($name, $spec).";\n"
618 ." unless (".$self->_generate_simple_has('$_[0]', $name, $spec).") {\n"
619 .qq! die "Attempted to access '${name}' but it is not set";\n!
620 ." }\n"
621 ." \$val;\n"
622 ."}\n";
623}
624sub _generate_delegation {
625 my ($self, $asserter, $target, $args) = @_;
626 my $arg_string = do {
627 if (@$args) {
628 # I could, I reckon, linearise out non-refs here using quotify
629 # plus something to check for numbers but I'm unsure if it's worth it
630 $self->{captures}{'@curries'} = $args;
631 '@curries, @_';
632 } else {
633 '@_';
634 }
635 };
636 "shift->${asserter}->${target}(${arg_string});";
637}
638
639
# spent 311µs (37+275) within Method::Generate::Accessor::_generate_xs which was called 4 times, avg 78µs/call: # 4 times (37µs+275µs) by Method::Generate::Accessor::generate_method at line 110, avg 78µs/call
sub _generate_xs {
64042µs my ($self, $type, $into, $name, $slot) = @_;
641415µs4265µs Class::XSAccessor->import(
# spent 265µs making 4 calls to Class::XSAccessor::import, avg 66µs/call
642 class => $into,
643 $type => { $name => $slot },
644 replace => 1,
645 );
646428µs410µs $into->can($name);
# spent 10µs making 4 calls to UNIVERSAL::can, avg 2µs/call
647}
648
64913µs
# spent 2µs within Method::Generate::Accessor::default_construction_string which was called: # once (2µs+0s) by Method::Generate::Constructor::_build_construction_string at line 68 of Method/Generate/Constructor.pm
sub default_construction_string { '{}' }
650
651
# spent 35µs (27+8) within Method::Generate::Accessor::_validate_codulatable which was called 3 times, avg 12µs/call: # 2 times (17µs+5µs) by Method::Generate::Accessor::generate_method at line 89, avg 11µs/call # once (10µs+3µs) by Method::Generate::Accessor::generate_method at line 86
sub _validate_codulatable {
65231µs my ($self, $setting, $value, $into, $appended) = @_;
653320µs38µs my $invalid = "Invalid $setting '" . overload::StrVal($value)
# spent 8µs making 3 calls to overload::AddrRef, avg 3µs/call
654 . "' for $into not a coderef";
65532µs $invalid .= " $appended" if $appended;
656
65732µs unless (ref $value and (ref $value eq 'CODE' or blessed($value))) {
658 die "$invalid or code-convertible object";
659 }
660
66165µs unless (eval { \&$value }) {
662 die "$invalid and could not be converted to a coderef: $@";
663 }
664
665311µs 1;
666}
667
66816µs1;
 
# spent 2µs within Method::Generate::Accessor::CORE:qr which was called: # once (2µs+0s) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 25
sub Method::Generate::Accessor::CORE:qr; # opcode
# spent 19µs within Method::Generate::Accessor::CORE:regcomp which was called: # once (19µs+0s) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 25
sub Method::Generate::Accessor::CORE:regcomp; # opcode
# spent 2µs within Method::Generate::Accessor::CORE:subst which was called 7 times, avg 357ns/call: # 7 times (2µs+0s) by Method::Generate::Accessor::generate_method at line 36, avg 357ns/call
sub Method::Generate::Accessor::CORE:subst; # opcode
Report produced by the NYTProf 6.02 Perl profiler, developed by Tim Bunce and Adam Kaplan.