Profile of MooX/TypeTiny.pm

Filename	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/MooX/TypeTiny.pm
Statements	Executed 185 statements in 1.54ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
7	7	7	3.16ms	9.11ms	MooX::TypeTiny::::importMooX::TypeTiny::import
47	9	9	658µs	27.2ms	MooX::TypeTiny::::__ANON__[:25]MooX::TypeTiny::__ANON__[:25]
1	1	1	43µs	47µs	MooX::TypeTiny::::BEGIN@2MooX::TypeTiny::BEGIN@2
1	1	1	9µs	39µs	MooX::TypeTiny::::BEGIN@7MooX::TypeTiny::BEGIN@7
1	1	1	6µs	49µs	MooX::TypeTiny::::BEGIN@3MooX::TypeTiny::BEGIN@3

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package MooX::TypeTiny;
2	2	46µs	2	51µs	# spent 47µs (43+4) within MooX::TypeTiny::BEGIN@2 which was called: # once (43µs+4µs) by JSON::Schema::Modern::BEGIN@29 at line 2 use strict; # spent 47µs making 1 call to MooX::TypeTiny::BEGIN@2 # spent 4µs making 1 call to strict::import
3	2	68µs	2	92µs	# spent 49µs (6+43) within MooX::TypeTiny::BEGIN@3 which was called: # once (6µs+43µs) by JSON::Schema::Modern::BEGIN@29 at line 3 use warnings; # spent 49µs making 1 call to MooX::TypeTiny::BEGIN@3 # spent 43µs making 1 call to warnings::import
4	1	0s			our $VERSION = '0.002003';
5	1	1µs			$VERSION =~ tr/_//d;
6
7	2	185µs	2	69µs	# spent 39µs (9+30) within MooX::TypeTiny::BEGIN@7 which was called: # once (9µs+30µs) by JSON::Schema::Modern::BEGIN@29 at line 7 use Moo::_Utils qw(_install_modifier); # spent 39µs making 1 call to MooX::TypeTiny::BEGIN@7 # spent 30µs making 1 call to Exporter::import
8
9					# spent 9.11ms (3.16+5.95) within MooX::TypeTiny::import which was called 7 times, avg 1.30ms/call: # once (3.08ms+3.02ms) by JSON::Schema::Modern::BEGIN@29 at line 29 of JSON/Schema/Modern.pm # once (13µs+683µs) by JSON::Schema::Modern::Result::BEGIN@17 at line 17 of JSON/Schema/Modern/Result.pm # once (14µs+561µs) by JSON::Schema::Modern::Error::BEGIN@19 at line 19 of JSON/Schema/Modern/Error.pm # once (13µs+481µs) by OpenAPI::Modern::BEGIN@30 at line 30 of OpenAPI/Modern.pm # once (13µs+472µs) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@25 at line 25 of JSON/Schema/Modern/Document/OpenAPI.pm # once (17µs+443µs) by JSON::Schema::Modern::Annotation::BEGIN@18 at line 18 of JSON/Schema/Modern/Annotation.pm # once (10µs+296µs) by JSON::Schema::Modern::Document::BEGIN@22 at line 22 of JSON/Schema/Modern/Document.pm sub import {
10	7	7µs			my $target = caller;
11	7	6µs			require Moo;
12	7	566µs			require Moo::Role;
13
14	7	16µs	7	20µs	unless (Moo->is_class($target)) { # spent 20µs making 7 calls to Moo::is_class, avg 3µs/call
15					die "MooX::TypeTiny can only be used on Moo classes.";
16					}
17
18					# spent 27.2ms (658µs+26.6) within MooX::TypeTiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/MooX/TypeTiny.pm:25] which was called 47 times, avg 579µs/call: # 16 times (223µs+764µs) by JSON::Schema::Modern::has at line 4 of (eval 33)[Class/Method/Modifiers.pm:148], avg 62µs/call # 8 times (91µs+155µs) by JSON::Schema::Modern::Document::has at line 4 of (eval 256)[Class/Method/Modifiers.pm:148], avg 31µs/call # 6 times (91µs+586µs) by JSON::Schema::Modern::Result::has at line 4 of (eval 219)[Class/Method/Modifiers.pm:148], avg 113µs/call # 5 times (86µs+22.9ms) by JSON::Schema::Modern::Error::has at line 4 of (eval 192)[Class/Method/Modifiers.pm:148], avg 4.61ms/call # 4 times (61µs+648µs) by JSON::Schema::Modern::Annotation::has at line 4 of (eval 225)[Class/Method/Modifiers.pm:148], avg 177µs/call # 4 times (46µs+81µs) by JSON::Schema::Modern::Document::OpenAPI::has at line 4 of (eval 380)[Class/Method/Modifiers.pm:148], avg 32µs/call # 2 times (28µs+514µs) by OpenAPI::Modern::has at line 4 of (eval 395)[Class/Method/Modifiers.pm:148], avg 271µs/call # once (16µs+445µs) by JSON::Schema::Modern::Document::OpenAPI::extends at line 4 of (eval 382)[Class/Method/Modifiers.pm:148] # once (16µs+436µs) by JSON::Schema::Modern::Document::extends at line 4 of (eval 258)[Class/Method/Modifiers.pm:148] _install_modifier($target, 'before', ['has', 'extends', 'with'], sub {
19	47	130µs	47	14.3ms	my $am = Moo->_accessor_maker_for($target); # spent 14.3ms making 47 calls to Moo::_accessor_maker_for, avg 304µs/call
20					$am->does($_) or Moo::Role->apply_roles_to_object($am, $_)
21	47	186µs	54	4.59ms	for qw(MooX::TypeTiny::Role::GenerateAccessor); # spent 3.92ms making 7 calls to Moo::Role::apply_roles_to_object, avg 559µs/call # spent 651µs making 46 calls to Moo::Role::does_role, avg 14µs/call # spent 20µs making 1 call to Moo::Object::does
22
23					# make sure we have our own constructor
24	47	263µs	47	7.70ms	Moo->_constructor_maker_for($target); # spent 7.70ms making 47 calls to Moo::_constructor_maker_for, avg 164µs/call
25	7	58µs	7	5.70ms	}); # spent 5.70ms making 7 calls to Moo::_Utils::_install_modifier, avg 814µs/call
26					}
27
28	1	4µs			1;
29					__END__