Profile of Moo/Object.pm

Filename	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Moo/Object.pm
Statements	Executed 153 statements in 788µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
21	2	2	211µs	279µs	Moo::Object::::newMoo::Object::new
24	4	4	69µs	69µs	Moo::Object::::BUILDARGSMoo::Object::BUILDARGS
1	1	1	23µs	25µs	Moo::Object::::BEGIN@2Moo::Object::BEGIN@2
1	1	1	16µs	18µs	Moo::Object::::doesMoo::Object::does
1	1	1	4µs	20µs	Moo::Object::::BEGIN@3Moo::Object::BEGIN@3
1	1	1	4µs	18µs	Moo::Object::::BEGIN@67Moo::Object::BEGIN@67
1	1	1	2µs	2µs	Moo::Object::::BEGIN@5Moo::Object::BEGIN@5
0	0	0	0s	0s	Moo::Object::::BUILDALLMoo::Object::BUILDALL
0	0	0	0s	0s	Moo::Object::::DEMOLISHALLMoo::Object::DEMOLISHALL
0	0	0	0s	0s	Moo::Object::::metaMoo::Object::meta

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Moo::Object;
2	2	24µs	2	27µs	# spent 25µs (23+2) within Moo::Object::BEGIN@2 which was called: # once (23µs+2µs) by Moo::make_class at line 2 use strict; # spent 25µs making 1 call to Moo::Object::BEGIN@2 # spent 2µs making 1 call to strict::import
3	2	12µs	2	36µs	# spent 20µs (4+16) within Moo::Object::BEGIN@3 which was called: # once (4µs+16µs) by Moo::make_class at line 3 use warnings; # spent 20µs making 1 call to Moo::Object::BEGIN@3 # spent 16µs making 1 call to warnings::import
4
5	2	248µs	1	2µs	# spent 2µs within Moo::Object::BEGIN@5 which was called: # once (2µs+0s) by Moo::make_class at line 5 use Carp (); # spent 2µs making 1 call to Moo::Object::BEGIN@5
6
7					our %NO_BUILD;
8					our %NO_DEMOLISH;
9					our $BUILD_MAKER;
10					our $DEMOLISH_MAKER;
11
12					# spent 279µs (211+68) within Moo::Object::new which was called 21 times, avg 13µs/call: # 18 times (173µs+53µs) by Moo::_accessor_maker_for at line 197 of Moo.pm, avg 13µs/call # 3 times (38µs+15µs) by Method::Generate::Constructor::buildall_generator at line 62 of Method/Generate/Constructor.pm, avg 18µs/call sub new {
13	21	5µs			my $class = shift;
14	21	13µs			unless (exists $NO_DEMOLISH{$class}) {
15	2	24µs	2	7µs	unless ($NO_DEMOLISH{$class} = !$class->can('DEMOLISH')) { # spent 7µs making 2 calls to UNIVERSAL::can, avg 4µs/call
16					($DEMOLISH_MAKER \|\|= do {
17					require Method::Generate::DemolishAll;
18					Method::Generate::DemolishAll->new
19					})->generate_method($class);
20					}
21					}
22	21	83µs	21	59µs	my $proto = $class->BUILDARGS(@_); # spent 59µs making 21 calls to Moo::Object::BUILDARGS, avg 3µs/call
23	21	76µs			$NO_BUILD{$class} and
24					return bless({}, $class);
25	2	10µs	2	2µs	$NO_BUILD{$class} = !$class->can('BUILD') unless exists $NO_BUILD{$class}; # spent 2µs making 2 calls to UNIVERSAL::can, avg 1µs/call
26	2	9µs			$NO_BUILD{$class}
27					? bless({}, $class)
28					: bless({}, $class)->BUILDALL($proto);
29					}
30
31					# Inlined into Method::Generate::Constructor::_generate_args() - keep in sync
32					# spent 69µs within Moo::Object::BUILDARGS which was called 24 times, avg 3µs/call: # 21 times (59µs+0s) by Moo::Object::new at line 22, avg 3µs/call # once (5µs+0s) by OpenAPI::Modern::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/OpenAPI/Modern.pm:79] at line 55 of OpenAPI/Modern.pm # once (3µs+0s) by JSON::Schema::Modern::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/JSON/Schema/Modern.pm:133] at line 127 of JSON/Schema/Modern.pm # once (2µs+0s) by Method::Generate::Constructor::new at line 248 of Method/Generate/Constructor.pm sub BUILDARGS {
33	24	7µs			my $class = shift;
34					scalar @_ == 1
35					? ref $_[0] eq 'HASH'
36	24	107µs			? { %{ $_[0] } }
37					: Carp::croak("Single parameters to new() must be a HASH ref"
38					. " data => ". $_[0])
39					: @_ % 2
40					? Carp::croak("The new() method for $class expects a hash reference or a"
41					. " key/value list. You passed an odd number of arguments")
42					: {@_}
43					;
44					}
45
46					sub BUILDALL {
47					my $self = shift;
48					$self->${\(($BUILD_MAKER \|\|= do {
49					require Method::Generate::BuildAll;
50					Method::Generate::BuildAll->new
51					})->generate_method(ref($self)))}(@_);
52					}
53
54					sub DEMOLISHALL {
55					my $self = shift;
56					$self->${\(($DEMOLISH_MAKER \|\|= do {
57					require Method::Generate::DemolishAll;
58					Method::Generate::DemolishAll->new
59					})->generate_method(ref($self)))}(@_);
60					}
61
62					# spent 18µs (16+2) within Moo::Object::does which was called: # once (16µs+2µs) by MooX::TypeTiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/MooX/TypeTiny.pm:25] at line 21 of MooX/TypeTiny.pm sub does {
63					return !!0
64	1	2µs			unless ($INC{'Moose/Role.pm'} \|\| $INC{'Role/Tiny.pm'});
65	1	1µs			require Moo::Role;
66	1	7µs	1	2µs	my $does = Moo::Role->can("does_role"); # spent 2µs making 1 call to UNIVERSAL::can
67	4	152µs	2	32µs	# spent 18µs (4+14) within Moo::Object::BEGIN@67 which was called: # once (4µs+14µs) by Moo::make_class at line 67 { no warnings 'redefine'; *does = $does } # spent 18µs making 1 call to Moo::Object::BEGIN@67 # spent 14µs making 1 call to warnings::unimport
68	1	5µs	1	24µs	goto &$does; # spent 24µs making 1 call to Moo::Role::does_role
69					}
70
71					# duplicated in Moo::Role
72					sub meta {
73					require Moo::HandleMoose::FakeMetaClass;
74					my $class = ref($_[0])\|\|$_[0];
75					bless({ name => $class }, 'Moo::HandleMoose::FakeMetaClass');
76					}
77
78	1	3µs			1;