Profile of MooX/TypeTiny.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
7	7	7	2.30ms	6.83ms	MooX::TypeTiny::::importMooX::TypeTiny::import
47	9	9	695µs	26.0ms	MooX::TypeTiny::::__ANON__[:25]MooX::TypeTiny::__ANON__[:25]
1	1	1	30µs	34µs	MooX::TypeTiny::::BEGIN@2MooX::TypeTiny::BEGIN@2
1	1	1	9µs	37µs	MooX::TypeTiny::::BEGIN@7MooX::TypeTiny::BEGIN@7
1	1	1	6µs	40µ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	26µs	2	38µs	# spent 34µs (30+4) within MooX::TypeTiny::BEGIN@2 which was called: # once (30µs+4µs) by JSON::Schema::Modern::BEGIN@29 at line 2 use strict; # spent 34µs making 1 call to MooX::TypeTiny::BEGIN@2 # spent 4µs making 1 call to strict::import
3	2	36µs	2	74µs	# spent 40µs (6+34) within MooX::TypeTiny::BEGIN@3 which was called: # once (6µs+34µs) by JSON::Schema::Modern::BEGIN@29 at line 3 use warnings; # spent 40µs making 1 call to MooX::TypeTiny::BEGIN@3 # spent 34µs making 1 call to warnings::import
4	1	0s			our $VERSION = '0.002003';
5	1	2µs			$VERSION =~ tr/_//d;
6
7	2	152µs	2	65µs	# spent 37µs (9+28) within MooX::TypeTiny::BEGIN@7 which was called: # once (9µs+28µs) by JSON::Schema::Modern::BEGIN@29 at line 7 use Moo::_Utils qw(_install_modifier); # spent 37µs making 1 call to MooX::TypeTiny::BEGIN@7 # spent 28µs making 1 call to Exporter::import
8
9					# spent 6.83ms (2.30+4.53) within MooX::TypeTiny::import which was called 7 times, avg 975µs/call: # once (2.22ms+1.70ms) by JSON::Schema::Modern::BEGIN@29 at line 29 of JSON/Schema/Modern.pm # once (15µs+717µs) by JSON::Schema::Modern::Annotation::BEGIN@18 at line 18 of JSON/Schema/Modern/Annotation.pm # once (15µs+610µs) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@25 at line 25 of JSON/Schema/Modern/Document/OpenAPI.pm # once (12µs+578µs) by JSON::Schema::Modern::Document::BEGIN@22 at line 22 of JSON/Schema/Modern/Document.pm # once (14µs+337µs) by JSON::Schema::Modern::Error::BEGIN@19 at line 19 of JSON/Schema/Modern/Error.pm # once (10µs+307µs) by JSON::Schema::Modern::Result::BEGIN@17 at line 17 of JSON/Schema/Modern/Result.pm # once (8µs+277µs) by OpenAPI::Modern::BEGIN@30 at line 30 of OpenAPI/Modern.pm sub import {
10	7	5µs			my $target = caller;
11	7	4µs			require Moo;
12	7	379µs			require Moo::Role;
13
14	7	19µs	7	22µs	unless (Moo->is_class($target)) { # spent 22µ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 26.0ms (695µs+25.3) within MooX::TypeTiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/MooX/TypeTiny.pm:25] which was called 47 times, avg 553µs/call: # 16 times (179µs+835µs) by JSON::Schema::Modern::has at line 4 of (eval 33)[Class/Method/Modifiers.pm:148], avg 63µs/call # 8 times (101µs+152µs) by JSON::Schema::Modern::Document::has at line 4 of (eval 256)[Class/Method/Modifiers.pm:148], avg 32µs/call # 6 times (115µs+660µs) by JSON::Schema::Modern::Result::has at line 4 of (eval 219)[Class/Method/Modifiers.pm:148], avg 129µs/call # 5 times (83µs+21.1ms) by JSON::Schema::Modern::Error::has at line 4 of (eval 192)[Class/Method/Modifiers.pm:148], avg 4.24ms/call # 4 times (76µs+623µs) by JSON::Schema::Modern::Annotation::has at line 4 of (eval 225)[Class/Method/Modifiers.pm:148], avg 175µs/call # 4 times (44µs+56µs) by JSON::Schema::Modern::Document::OpenAPI::has at line 4 of (eval 380)[Class/Method/Modifiers.pm:148], avg 25µs/call # 2 times (53µs+757µs) by OpenAPI::Modern::has at line 4 of (eval 395)[Class/Method/Modifiers.pm:148], avg 405µs/call # once (30µs+655µs) by JSON::Schema::Modern::Document::extends at line 4 of (eval 258)[Class/Method/Modifiers.pm:148] # once (14µs+428µs) by JSON::Schema::Modern::Document::OpenAPI::extends at line 4 of (eval 382)[Class/Method/Modifiers.pm:148] _install_modifier($target, 'before', ['has', 'extends', 'with'], sub {
19	47	145µs	47	14.5ms	my $am = Moo->_accessor_maker_for($target); # spent 14.5ms making 47 calls to Moo::_accessor_maker_for, avg 309µs/call
20					$am->does($_) or Moo::Role->apply_roles_to_object($am, $_)
21	47	222µs	54	4.31ms	for qw(MooX::TypeTiny::Role::GenerateAccessor); # spent 3.61ms making 7 calls to Moo::Role::apply_roles_to_object, avg 515µs/call # spent 672µs making 46 calls to Moo::Role::does_role, avg 15µs/call # spent 34µs making 1 call to Moo::Object::does
22
23					# make sure we have our own constructor
24	47	188µs	47	6.44ms	Moo->_constructor_maker_for($target); # spent 6.44ms making 47 calls to Moo::_constructor_maker_for, avg 137µs/call
25	7	55µs	7	4.35ms	}); # spent 4.35ms making 7 calls to Moo::_Utils::_install_modifier, avg 621µs/call
26					}
27
28	1	3µs			1;
29					__END__