← Index
NYTProf Performance Profile   « line view »
For ../prof.pl
  Run on Wed Dec 14 16:10:05 2022
Reported on Wed Dec 14 16:12:57 2022

Filename/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/MooX/TypeTiny.pm
StatementsExecuted 185 statements in 1.54ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
7773.72ms9.29msMooX::TypeTiny::::importMooX::TypeTiny::import
4799702µs27.5msMooX::TypeTiny::::__ANON__[:25]MooX::TypeTiny::__ANON__[:25]
11138µs42µsMooX::TypeTiny::::BEGIN@2MooX::TypeTiny::BEGIN@2
11110µs50µsMooX::TypeTiny::::BEGIN@7MooX::TypeTiny::BEGIN@7
1116µs47µsMooX::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
1package MooX::TypeTiny;
2237µs246µs
# spent 42µs (38+4) within MooX::TypeTiny::BEGIN@2 which was called: # once (38µs+4µs) by JSON::Schema::Modern::BEGIN@29 at line 2
use strict;
# spent 42µs making 1 call to MooX::TypeTiny::BEGIN@2 # spent 4µs making 1 call to strict::import
3265µs288µs
# spent 47µs (6+41) within MooX::TypeTiny::BEGIN@3 which was called: # once (6µs+41µs) by JSON::Schema::Modern::BEGIN@29 at line 3
use warnings;
# spent 47µs making 1 call to MooX::TypeTiny::BEGIN@3 # spent 41µs making 1 call to warnings::import
410sour $VERSION = '0.002003';
511µs$VERSION =~ tr/_//d;
6
72222µs290µs
# spent 50µs (10+40) within MooX::TypeTiny::BEGIN@7 which was called: # once (10µs+40µs) by JSON::Schema::Modern::BEGIN@29 at line 7
use Moo::_Utils qw(_install_modifier);
# spent 50µs making 1 call to MooX::TypeTiny::BEGIN@7 # spent 40µs making 1 call to Exporter::import
8
9
# spent 9.29ms (3.72+5.57) within MooX::TypeTiny::import which was called 7 times, avg 1.33ms/call: # once (3.65ms+2.81ms) by JSON::Schema::Modern::BEGIN@29 at line 29 of JSON/Schema/Modern.pm # once (16µs+880µs) by JSON::Schema::Modern::Error::BEGIN@19 at line 19 of JSON/Schema/Modern/Error.pm # once (13µs+477µs) by JSON::Schema::Modern::Document::OpenAPI::BEGIN@25 at line 25 of JSON/Schema/Modern/Document/OpenAPI.pm # once (10µs+406µs) by JSON::Schema::Modern::Result::BEGIN@17 at line 17 of JSON/Schema/Modern/Result.pm # once (10µs+362µs) by JSON::Schema::Modern::Document::BEGIN@22 at line 22 of JSON/Schema/Modern/Document.pm # once (10µs+341µs) by OpenAPI::Modern::BEGIN@30 at line 30 of OpenAPI/Modern.pm # once (8µs+286µs) by JSON::Schema::Modern::Annotation::BEGIN@18 at line 18 of JSON/Schema/Modern/Annotation.pm
sub import {
1076µs my $target = caller;
1175µs require Moo;
127570µs require Moo::Role;
13
14716µs722µ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 27.5ms (702µs+26.8) within MooX::TypeTiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/MooX/TypeTiny.pm:25] which was called 47 times, avg 586µs/call: # 16 times (212µs+809µs) by JSON::Schema::Modern::has at line 4 of (eval 33)[Class/Method/Modifiers.pm:148], avg 64µs/call # 8 times (104µs+169µs) by JSON::Schema::Modern::Document::has at line 4 of (eval 260)[Class/Method/Modifiers.pm:148], avg 34µs/call # 6 times (135µs+773µs) by JSON::Schema::Modern::Result::has at line 4 of (eval 219)[Class/Method/Modifiers.pm:148], avg 151µs/call # 5 times (81µs+23.1ms) by JSON::Schema::Modern::Error::has at line 4 of (eval 192)[Class/Method/Modifiers.pm:148], avg 4.63ms/call # 4 times (43µs+530µs) by JSON::Schema::Modern::Annotation::has at line 4 of (eval 225)[Class/Method/Modifiers.pm:148], avg 143µs/call # 4 times (68µs+144µs) by JSON::Schema::Modern::Document::OpenAPI::has at line 4 of (eval 384)[Class/Method/Modifiers.pm:148], avg 53µs/call # 2 times (19µs+328µs) by OpenAPI::Modern::has at line 4 of (eval 399)[Class/Method/Modifiers.pm:148], avg 174µs/call # once (23µs+565µs) by JSON::Schema::Modern::Document::OpenAPI::extends at line 4 of (eval 386)[Class/Method/Modifiers.pm:148] # once (17µs+461µs) by JSON::Schema::Modern::Document::extends at line 4 of (eval 262)[Class/Method/Modifiers.pm:148]
_install_modifier($target, 'before', ['has', 'extends', 'with'], sub {
1947138µs4713.5ms my $am = Moo->_accessor_maker_for($target);
# spent 13.5ms making 47 calls to Moo::_accessor_maker_for, avg 288µs/call
20 $am->does($_) or Moo::Role->apply_roles_to_object($am, $_)
2147224µs545.51ms for qw(MooX::TypeTiny::Role::GenerateAccessor);
# spent 4.74ms making 7 calls to Moo::Role::apply_roles_to_object, avg 678µs/call # spent 749µs making 46 calls to Moo::Role::does_role, avg 16µs/call # spent 18µs making 1 call to Moo::Object::does
22
23 # make sure we have our own constructor
2447197µs477.78ms Moo->_constructor_maker_for($target);
# spent 7.78ms making 47 calls to Moo::_constructor_maker_for, avg 165µs/call
25757µs75.24ms });
# spent 5.24ms making 7 calls to Moo::_Utils::_install_modifier, avg 749µs/call
26}
27
2815µs1;
29__END__