Profile of Moo/Object.pm

Filename	/usr/share/perl5/Moo/Object.pm
Statements	Executed 0 statements in 0s

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
2	1	1	22µs	28µs	Moo::Object::::newMoo::Object::new
1	1	1	18µs	53µs	Moo::Object::::BEGIN@3Moo::Object::BEGIN@3
1	1	1	13µs	25µs	Moo::Object::::BEGIN@69Moo::Object::BEGIN@69
1	1	1	6µs	6µs	Moo::Object::::BUILDARGSMoo::Object::BUILDARGS
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::::doesMoo::Object::does
0	0	0	0s	0s	Moo::Object::::metaMoo::Object::meta

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

Line	Calls	Time in subs	Code
1			package Moo::Object;
2
3	3	89µs	# spent 53µs (18+36) within Moo::Object::BEGIN@3 which was called: # once (18µs+36µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 3 use strictures 1; # spent 53µs making 1 call to Moo::Object::BEGIN@3 # spent 20µs making 1 call to strictures::import # spent 15µs making 1 call to strictures::VERSION
4
5			our %NO_BUILD;
6			our %NO_DEMOLISH;
7			our $BUILD_MAKER;
8			our $DEMOLISH_MAKER;
9
10			# spent 28µs (22+6) within Moo::Object::new which was called 2 times, avg 14µs/call: # 2 times (22µs+6µs) by Moo::_accessor_maker_for at line 143 of Moo.pm, avg 14µs/call sub new {
11			my $class = shift;
12			unless (exists $NO_DEMOLISH{$class}) {
13	2	5µs	unless ($NO_DEMOLISH{$class} = !$class->can('DEMOLISH')) { # spent 5µ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			return bless({ ref($_[0]) eq 'HASH' ? %{$_[0]} : @_ }, $class);
22	2	5µs	$NO_BUILD{$class} = !$class->can('BUILD') unless exists $NO_BUILD{$class}; # spent 5µs making 2 calls to UNIVERSAL::can, avg 2µs/call
23			$NO_BUILD{$class}
24			? bless({ ref($_[0]) eq 'HASH' ? %{$_[0]} : @_ }, $class)
25			: 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			# spent 6µs within Moo::Object::BUILDARGS which was called: # once (6µs+0s) by Method::Generate::Constructor::new at line 206 of Method/Generate/Constructor.pm 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"
43			. " key/value list. 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 Moo::Role;
68			my $does = Moo::Role->can("does_role");
69	2	37µs	# spent 25µs (13+12) within Moo::Object::BEGIN@69 which was called: # once (13µs+12µs) by DBIx::Class::Storage::BlockRunner::BEGIN@16 at line 69 { no warnings 'redefine'; *does = $does } # spent 25µs making 1 call to Moo::Object::BEGIN@69 # spent 12µs making 1 call to warnings::unimport
70			goto &$does;
71			}
72
73			# duplicated in Moo::Role
74			sub meta {
75			require Moo::HandleMoose::FakeMetaClass;
76			my $class = ref($_[0])\|\|$_[0];
77			bless({ name => $class }, 'Moo::HandleMoose::FakeMetaClass');
78			}
79
80			1;