Filename | /opt/perl-5.18.1/lib/site_perl/5.18.1/Moo/Object.pm |
Statements | Executed 28 statements in 738µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
4 | 2 | 1 | 47µs | 61µs | new | Moo::Object::
1 | 1 | 1 | 21µs | 76µs | BEGIN@3 | Moo::Object::
1 | 1 | 1 | 11µs | 23µs | BEGIN@68 | Moo::Object::
0 | 0 | 0 | 0s | 0s | BUILDALL | Moo::Object::
0 | 0 | 0 | 0s | 0s | BUILDARGS | Moo::Object::
0 | 0 | 0 | 0s | 0s | DEMOLISHALL | Moo::Object::
0 | 0 | 0 | 0s | 0s | does | Moo::Object::
0 | 0 | 0 | 0s | 0s | meta | Moo::Object::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Moo::Object; | ||||
2 | |||||
3 | 3 | 543µs | 3 | 132µs | # spent 76µs (21+56) within Moo::Object::BEGIN@3 which was called:
# once (21µs+56µs) by Moo::import at line 3 # spent 76µs making 1 call to Moo::Object::BEGIN@3
# spent 40µs making 1 call to strictures::import
# spent 16µs making 1 call to strictures::VERSION |
4 | |||||
5 | 1 | 200ns | our %NO_BUILD; | ||
6 | 1 | 100ns | our %NO_DEMOLISH; | ||
7 | 1 | 0s | our $BUILD_MAKER; | ||
8 | 1 | 0s | our $DEMOLISH_MAKER; | ||
9 | |||||
10 | # spent 61µs (47+14) within Moo::Object::new which was called 4 times, avg 15µs/call:
# 3 times (34µs+9µs) by Moo::_accessor_maker_for at line 139 of Moo.pm, avg 14µs/call
# once (12µs+5µs) by Moo::_constructor_maker_for at line 189 of Moo.pm | ||||
11 | 4 | 1µs | my $class = shift; | ||
12 | 4 | 2µs | unless (exists $NO_DEMOLISH{$class}) { | ||
13 | 2 | 23µs | 2 | 6µs | unless ($NO_DEMOLISH{$class} = !$class->can('DEMOLISH')) { # spent 6µs making 2 calls to UNIVERSAL::can, avg 3µs/call |
14 | ($DEMOLISH_MAKER ||= do { | ||||
15 | require Method::Generate::DemolishAll; | ||||
16 | Method::Generate::DemolishAll->new | ||||
17 | })->generate_method($class); | ||||
18 | } | ||||
19 | } | ||||
20 | $NO_BUILD{$class} and | ||||
21 | 4 | 9µs | return bless({ ref($_[0]) eq 'HASH' ? %{$_[0]} : @_ }, $class); | ||
22 | 2 | 16µs | 2 | 8µs | $NO_BUILD{$class} = !$class->can('BUILD') unless exists $NO_BUILD{$class}; # spent 8µs making 2 calls to UNIVERSAL::can, avg 4µs/call |
23 | $NO_BUILD{$class} | ||||
24 | ? bless({ ref($_[0]) eq 'HASH' ? %{$_[0]} : @_ }, $class) | ||||
25 | 2 | 13µs | : do { | ||
26 | my $proto = ref($_[0]) eq 'HASH' ? $_[0] : { @_ }; | ||||
27 | bless({ %$proto }, $class)->BUILDALL($proto); | ||||
28 | }; | ||||
29 | } | ||||
30 | |||||
31 | # Inlined into Method::Generate::Constructor::_generate_args() - keep in sync | ||||
32 | sub BUILDARGS { | ||||
33 | my $class = shift; | ||||
34 | if ( scalar @_ == 1 ) { | ||||
35 | unless ( defined $_[0] && ref $_[0] eq 'HASH' ) { | ||||
36 | die "Single parameters to new() must be a HASH ref" | ||||
37 | ." data => ". $_[0] ."\n"; | ||||
38 | } | ||||
39 | return { %{ $_[0] } }; | ||||
40 | } | ||||
41 | elsif ( @_ % 2 ) { | ||||
42 | die "The new() method for $class expects a hash reference or a key/value list." | ||||
43 | . " You passed an odd number of arguments\n"; | ||||
44 | } | ||||
45 | else { | ||||
46 | return {@_}; | ||||
47 | } | ||||
48 | } | ||||
49 | |||||
50 | sub BUILDALL { | ||||
51 | my $self = shift; | ||||
52 | $self->${\(($BUILD_MAKER ||= do { | ||||
53 | require Method::Generate::BuildAll; | ||||
54 | Method::Generate::BuildAll->new | ||||
55 | })->generate_method(ref($self)))}(@_); | ||||
56 | } | ||||
57 | |||||
58 | sub DEMOLISHALL { | ||||
59 | my $self = shift; | ||||
60 | $self->${\(($DEMOLISH_MAKER ||= do { | ||||
61 | require Method::Generate::DemolishAll; | ||||
62 | Method::Generate::DemolishAll->new | ||||
63 | })->generate_method(ref($self)))}(@_); | ||||
64 | } | ||||
65 | |||||
66 | sub does { | ||||
67 | require Role::Tiny; | ||||
68 | 2 | 126µs | 2 | 34µs | # spent 23µs (11+12) within Moo::Object::BEGIN@68 which was called:
# once (11µs+12µs) by Moo::import at line 68 # spent 23µs making 1 call to Moo::Object::BEGIN@68
# spent 12µs making 1 call to warnings::unimport |
69 | goto &Role::Tiny::does_role; | ||||
70 | } | ||||
71 | |||||
72 | # duplicated in Moo::Role | ||||
73 | sub meta { | ||||
74 | require Moo::HandleMoose::FakeMetaClass; | ||||
75 | my $class = ref($_[0])||$_[0]; | ||||
76 | bless({ name => $class }, 'Moo::HandleMoose::FakeMetaClass'); | ||||
77 | } | ||||
78 | |||||
79 | 1 | 4µs | 1; |