← Index
NYTProf Performance Profile   « line view »
For ../prof.pl
  Run on Wed Dec 14 15:57:08 2022
Reported on Wed Dec 14 16:00:32 2022

Filename/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Library.pm
StatementsExecuted 3557 statements in 10.1ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1119.91ms15.1msType::Library::::BEGIN@16Type::Library::BEGIN@16
371812.79ms38.8msType::Library::::add_typeType::Library::add_type
1112.47ms2.89msType::Library::::BEGIN@14Type::Library::BEGIN@14
295123781µs1.02msType::Library::::metaType::Library::meta
4011747µs1.91msType::Library::::_exporter_expand_subType::Library::_exporter_expand_sub
4011717µs1.58msType::Library::::_exporter_install_subType::Library::_exporter_install_sub
111335µs3.26msType::Library::::make_immutableType::Library::make_immutable
331196µs1.36msType::Library::::add_coercionType::Library::add_coercion
4021166µs286µsType::Library::::has_typeType::Library::has_type
811161µs192µsType::Library::::_exporter_validate_optsType::Library::_exporter_validate_opts
4021130µs208µsType::Library::::has_coercionType::Library::has_coercion
112184µs155µsType::Library::::get_typeType::Library::get_type
11141µs41µsType::Library::::BEGIN@3Type::Library::BEGIN@3
772139µs39µsType::Library::::CORE:matchType::Library::CORE:match (opcode)
11122µs56µsType::Library::::BEGIN@5Type::Library::BEGIN@5
11121µs24µsType::Library::::setup_type_libraryType::Library::setup_type_library
11120µs52µsType::Library::::BEGIN@284Type::Library::BEGIN@284
11115µs28µsType::Library::::BEGIN@188Type::Library::BEGIN@188
11113µs35µsType::Library::::BEGIN@315Type::Library::BEGIN@315
11112µs18µsType::Library::::BEGIN@207Type::Library::BEGIN@207
11112µs17µsType::Library::::BEGIN@314Type::Library::BEGIN@314
11111µs17µsType::Library::::BEGIN@232Type::Library::BEGIN@232
11111µs42µsType::Library::::BEGIN@285Type::Library::BEGIN@285
11110µs41µsType::Library::::BEGIN@15Type::Library::BEGIN@15
1118µs30µsType::Library::::BEGIN@233Type::Library::BEGIN@233
1118µs12µsType::Library::::BEGIN@4Type::Library::BEGIN@4
1116µs37µsType::Library::::BEGIN@208Type::Library::BEGIN@208
1114µs4µsType::Library::::BEGIN@17Type::Library::BEGIN@17
1114µs4µsType::Library::::BEGIN@7Type::Library::BEGIN@7
1113µs3µsType::Library::::CORE:substType::Library::CORE:subst (opcode)
0000s0sType::Library::::_croakType::Library::_croak
0000s0sType::Library::::_exporter_failType::Library::_exporter_fail
0000s0sType::Library::::coercion_namesType::Library::coercion_names
0000s0sType::Library::::get_coercionType::Library::get_coercion
0000s0sType::Library::::type_namesType::Library::type_names
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package Type::Library;
2
3241µs141µs
# spent 41µs within Type::Library::BEGIN@3 which was called: # once (41µs+0s) by Types::Standard::BEGIN@19 at line 3
use 5.008001;
# spent 41µs making 1 call to Type::Library::BEGIN@3
4222µs216µs
# spent 12µs (8+4) within Type::Library::BEGIN@4 which was called: # once (8µs+4µs) by Types::Standard::BEGIN@19 at line 4
use strict;
# spent 12µs making 1 call to Type::Library::BEGIN@4 # spent 4µs making 1 call to strict::import
5252µs290µs
# spent 56µs (22+34) within Type::Library::BEGIN@5 which was called: # once (22µs+34µs) by Types::Standard::BEGIN@19 at line 5
use warnings;
# spent 56µs making 1 call to Type::Library::BEGIN@5 # spent 34µs making 1 call to warnings::import
6
7
# spent 4µs within Type::Library::BEGIN@7 which was called: # once (4µs+0s) by Types::Standard::BEGIN@19 at line 10
BEGIN {
811µs $Type::Library::AUTHORITY = 'cpan:TOBYINK';
913µs $Type::Library::VERSION = '2.000001';
10138µs14µs}
# spent 4µs making 1 call to Type::Library::BEGIN@7
11
1211µs$Type::Library::VERSION =~ tr/_//d;
13
142413µs23.23ms
# spent 2.89ms (2.47+425µs) within Type::Library::BEGIN@14 which was called: # once (2.47ms+425µs) by Types::Standard::BEGIN@19 at line 14
use Eval::TypeTiny qw< eval_closure set_subname type_to_coderef NICE_PROTOTYPES >;
# spent 2.89ms making 1 call to Type::Library::BEGIN@14 # spent 335µs making 1 call to Eval::TypeTiny::import
15220µs272µs
# spent 41µs (10+31) within Type::Library::BEGIN@15 which was called: # once (10µs+31µs) by Types::Standard::BEGIN@19 at line 15
use Scalar::Util qw< blessed refaddr >;
# spent 41µs making 1 call to Type::Library::BEGIN@15 # spent 31µs making 1 call to Exporter::import
162621µs115.1ms
# spent 15.1ms (9.91+5.18) within Type::Library::BEGIN@16 which was called: # once (9.91ms+5.18ms) by Types::Standard::BEGIN@19 at line 16
use Type::Tiny ();
# spent 15.1ms making 1 call to Type::Library::BEGIN@16
172894µs14µs
# spent 4µs within Type::Library::BEGIN@17 which was called: # once (4µs+0s) by Types::Standard::BEGIN@19 at line 17
use Types::TypeTiny ();
# spent 4µs making 1 call to Type::Library::BEGIN@17
18
1911µsrequire Exporter::Tiny;
20112µsour @ISA = 'Exporter::Tiny';
21
22sub _croak ($;@) { require Error::TypeTiny; goto \&Error::TypeTiny::croak }
23
24####
25#### Hooks for Exporter::Tiny
26####
27
28# Handling for -base, -extends, and -utils tags.
29#
30
# spent 192µs (161+31) within Type::Library::_exporter_validate_opts which was called 8 times, avg 24µs/call: # 8 times (161µs+31µs) by Exporter::Tiny::import at line 77 of Exporter/Tiny.pm, avg 24µs/call
sub _exporter_validate_opts {
3187µs my ( $class, $opts ) = ( shift, @_ );
32
33 $class->setup_type_library( @{$opts}{qw/ into utils extends /} )
34828µs124µs if $_[0]{base} || $_[0]{extends};
# spent 24µs making 1 call to Type::Library::setup_type_library
35
36839µs87µs return $class->SUPER::_exporter_validate_opts( @_ );
# spent 7µs making 8 calls to Exporter::Tiny::_exporter_validate_opts, avg 875ns/call
37}
38
39# In Exporter::Tiny, this method takes a sub name, a 'value' (i.e.
40# potentially an options hashref for the export), and some global
41# options, and returns a list of name+coderef pairs to actually
42# export. We override it to provide some useful features.
43#
44
# spent 1.91ms (747µs+1.17) within Type::Library::_exporter_expand_sub which was called 40 times, avg 48µs/call: # 40 times (747µs+1.17ms) by Exporter::Tiny::import at line 82 of Exporter/Tiny.pm, avg 48µs/call
sub _exporter_expand_sub {
45408µs my $class = shift;
464014µs my ( $name, $value, $globals ) = @_;
47
48 # Handle exporting '+Type'.
49 #
50 # Note that this recurses, so if used in conjunction with the other
51 # special cases handled by this method, will still work.
52 #
534086µs4021µs if ( $name =~ /^\+(.+)/ and $class->has_type( "$1" ) ) {
# spent 21µs making 40 calls to Type::Library::CORE:match, avg 525ns/call
54 my $type = $class->get_type( "$1" );
55 my $exported = $type->exportables;
56 return map $class->_exporter_expand_sub(
57 $_->{name},
58 +{ %{ $value || {} } },
59 $globals,
60 ), @$exported;
61 }
62
63 # Is the function being exported one which is associated with a
64 # type constraint? If so, which one. If not, then forget the rest
65 # and just use the superclass method.
66 #
6740127µs80237µs if ( my $f = $class->meta->{'functions'}{$name}
# spent 237µs making 80 calls to Type::Library::meta, avg 3µs/call
68 and defined $class->meta->{'functions'}{$name}{'type'} ) {
69
704017µs my $type = $f->{type};
714024µs my $tag = $f->{tags}[0];
724052µs4053µs my $typename = $type->name;
# spent 53µs making 40 calls to Type::Tiny::name, avg 1µs/call
73
74 # If $value has `of` or `where` options, then this is a
75 # custom type.
76 #
77405µs my $custom_type = 0;
784073µs for my $param ( qw/ of where / ) {
798015µs exists $value->{$param} or next;
80 defined $value->{-as} or _croak( "Parameter '-as' not supplied" );
81 $type = $type->$param( $value->{$param} );
82 $name = $value->{-as};
83 ++$custom_type;
84 }
85
86 # If we're exporting a type itself, then export a custom
87 # function if they customized the type or want a Moose/Mouse
88 # type constraint.
89 #
904023µs if ( $tag eq 'types' ) {
91408µs my $post_method = q();
924015µs $post_method = '->mouse_type' if $globals->{mouse};
93403µs $post_method = '->moose_type' if $globals->{moose};
944011µs return ( $name => type_to_coderef( $type, post_method => $post_method ) )
95 if $post_method || $custom_type;
96 }
97
98 # If they're exporting some other type of function, like
99 # 'to', 'is', or 'assert', then find the correct exportable
100 # by tag name, and return that.
101 #
102 # XXX: this will fail for tags like 'constants' where there
103 # will be multiple exportables which match!
104 #
1054018µs if ( $custom_type and $tag ne 'types' ) {
106 my $exportable = $type->exportables_by_tag( $tag, $typename );
107 return ( $value->{-as} || $exportable->{name}, $exportable->{code} );
108 }
109 }
110
111 # In all other cases, the superclass method will work.
112 #
11340123µs40856µs return $class->SUPER::_exporter_expand_sub( @_ );
# spent 856µs making 40 calls to Exporter::Tiny::_exporter_expand_sub, avg 21µs/call
114}
115
116# Mostly just rely on superclass to do the actual export, but add
117# a couple of useful behaviours.
118#
119
# spent 1.58ms (717µs+863µs) within Type::Library::_exporter_install_sub which was called 40 times, avg 40µs/call: # 40 times (717µs+863µs) by Exporter::Tiny::import at line 84 of Exporter/Tiny.pm, avg 40µs/call
sub _exporter_install_sub {
120407µs my $class = shift;
1214011µs my ( $name, $value, $globals, $sym ) = @_;
122
1234022µs my $into = $globals->{into};
1244047µs40155µs my $type = $class->meta->{'functions'}{$name}{'type'};
# spent 155µs making 40 calls to Type::Library::meta, avg 4µs/call
1254039µs4069µs my $tags = $class->meta->{'functions'}{$name}{'tags'};
# spent 69µs making 40 calls to Type::Library::meta, avg 2µs/call
126
127 # Issue a warning if exporting a deprecated type constraint.
128 #
129 Exporter::Tiny::_carp(
130 "Exporting deprecated type %s to %s",
131 $type->qualified_name,
132 ref( $into ) ? "reference" : "package $into",
1334065µs4045µs ) if ( defined $type and $type->deprecated and not $globals->{allow_deprecated} );
# spent 45µs making 40 calls to Type::Tiny::deprecated, avg 1µs/call
134
135 # If exporting a type constraint into a real package, then
136 # add it to the package's type registry.
137 #
1384055µs if ( !ref $into
139 and $into ne '-lexical'
140 and defined $type
141 and grep $_ eq 'types', @$tags ) {
142
143 # If they're renaming it, figure out what name, and use that.
144 # XXX: `-as` can be a coderef, and can be in $globals in that case.
1454044µs my ( $prefix ) = grep defined, $value->{-prefix}, $globals->{prefix}, q();
1464030µs my ( $suffix ) = grep defined, $value->{-suffix}, $globals->{suffix}, q();
1474014µs my $as = $prefix . ( $value->{-as} || $name ) . $suffix;
148
149 $INC{'Type/Registry.pm'}
150 ? 'Type::Registry'->for_class( $into )->add_type( $type, $as )
1514039µs : ( $Type::Registry::DELAYED{$into}{$as} = $type );
152 }
153
15440113µs40594µs $class->SUPER::_exporter_install_sub( @_ );
# spent 594µs making 40 calls to Exporter::Tiny::_exporter_install_sub, avg 15µs/call
155} #/ sub _exporter_install_sub
156
157sub _exporter_fail {
158 my $class = shift;
159 my ( $name, $value, $globals ) = @_;
160
161 # Passing the `-declare` flag means that if a type isn't found, then
162 # we export a placeholder function instead of failing.
163 if ( $globals->{declare} ) {
164 return (
165 $name,
166 type_to_coderef(
167 undef,
168 type_name => $name,
169 type_library => $globals->{into} || _croak( "Parameter 'into' not supplied" ),
170 ),
171 );
172 } #/ if ( $globals->{declare...})
173
174 return $class->SUPER::_exporter_fail( @_ );
175} #/ sub _exporter_fail
176
177####
178#### Type library functionality
179####
180
181
# spent 24µs (21+3) within Type::Library::setup_type_library which was called: # once (21µs+3µs) by Type::Library::_exporter_validate_opts at line 34
sub setup_type_library {
18211µs my ( $class, $type_library, $install_utils, $extends ) = @_;
183
18411µs my @extends = ref( $extends ) ? @$extends : $extends ? $extends : ();
18511µs unshift @extends, $class if $class ne __PACKAGE__;
186
18710s if ( not ref $type_library ) {
1882181µs241µs
# spent 28µs (15+13) within Type::Library::BEGIN@188 which was called: # once (15µs+13µs) by Types::Standard::BEGIN@19 at line 188
no strict "refs";
# spent 28µs making 1 call to Type::Library::BEGIN@188 # spent 13µs making 1 call to strict::unimport
18919µs push @{"$type_library\::ISA"}, $class;
19019µs13µs ( my $file = $type_library ) =~ s{::}{/}g;
# spent 3µs making 1 call to Type::Library::CORE:subst
19111µs $INC{"$file.pm"} ||= __FILE__;
192 }
193
19410s if ( $install_utils ) {
195 require Type::Utils;
196 'Type::Utils'->import( { into => $type_library }, '-default' );
197 }
198
19913µs if ( @extends and not ref $type_library ) {
200 require Type::Utils;
201 my $wrapper = eval "sub { package $type_library; &Type::Utils::extends; }";
202 $wrapper->( @extends );
203 }
204}
205
206
# spent 1.02ms (781µs+234µs) within Type::Library::meta which was called 295 times, avg 3µs/call: # 80 times (191µs+46µs) by Type::Library::_exporter_expand_sub at line 67, avg 3µs/call # 40 times (138µs+17µs) by Type::Library::_exporter_install_sub at line 124, avg 4µs/call # 40 times (84µs+36µs) by Type::Library::has_type at line 258, avg 3µs/call # 40 times (60µs+18µs) by Type::Library::has_coercion at line 301, avg 2µs/call # 40 times (59µs+10µs) by Type::Library::_exporter_install_sub at line 125, avg 2µs/call # 37 times (144µs+69µs) by Type::Library::add_type at line 214, avg 6µs/call # 11 times (47µs+24µs) by Type::Library::get_type at line 253, avg 6µs/call # 3 times (7µs+3µs) by Type::Library::add_coercion at line 268, avg 3µs/call # once (24µs+7µs) by JSON::Schema::Modern::BEGIN@31 at line 144 of Types/Standard.pm # once (20µs+2µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:190] at line 22 of Types/Standard/Map.pm # once (5µs+1000ns) by JSON::Schema::Modern::BEGIN@31 at line 1107 of Types/Standard.pm # once (2µs+1µs) by Type::Library::make_immutable at line 311
sub meta {
207242µs224µs
# spent 18µs (12+6) within Type::Library::BEGIN@207 which was called: # once (12µs+6µs) by Types::Standard::BEGIN@19 at line 207
no strict "refs";
# spent 18µs making 1 call to Type::Library::BEGIN@207 # spent 6µs making 1 call to strict::unimport
2082229µs268µs
# spent 37µs (6+31) within Type::Library::BEGIN@208 which was called: # once (6µs+31µs) by Types::Standard::BEGIN@19 at line 208
no warnings "once";
# spent 37µs making 1 call to Type::Library::BEGIN@208 # spent 31µs making 1 call to warnings::unimport
209295975µs295234µs return $_[0] if blessed $_[0];
# spent 234µs making 295 calls to Scalar::Util::blessed, avg 793ns/call
210163372µs ${"$_[0]\::META"} ||= bless {}, $_[0];
211}
212
213
# spent 38.8ms (2.79+36.0) within Type::Library::add_type which was called 37 times, avg 1.05ms/call: # 20 times (1.37ms+20.2ms) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:127] at line 126 of Types/Standard.pm, avg 1.08ms/call # once (123µs+1.30ms) by JSON::Schema::Modern::BEGIN@31 at line 827 of Types/Standard.pm # once (68µs+1.30ms) by JSON::Schema::Modern::BEGIN@31 at line 924 of Types/Standard.pm # once (86µs+1.25ms) by JSON::Schema::Modern::BEGIN@31 at line 770 of Types/Standard.pm # once (91µs+1.16ms) by JSON::Schema::Modern::BEGIN@31 at line 883 of Types/Standard.pm # once (152µs+1.10ms) by JSON::Schema::Modern::BEGIN@31 at line 1018 of Types/Standard.pm # once (71µs+1.05ms) by JSON::Schema::Modern::BEGIN@31 at line 957 of Types/Standard.pm # once (155µs+963µs) by JSON::Schema::Modern::BEGIN@31 at line 706 of Types/Standard.pm # once (81µs+958µs) by JSON::Schema::Modern::BEGIN@31 at line 887 of Types/Standard.pm # once (82µs+944µs) by JSON::Schema::Modern::BEGIN@31 at line 802 of Types/Standard.pm # once (71µs+841µs) by JSON::Schema::Modern::BEGIN@31 at line 1035 of Types/Standard.pm # once (45µs+853µs) by JSON::Schema::Modern::BEGIN@31 at line 332 of Types/Standard.pm # once (68µs+806µs) by JSON::Schema::Modern::BEGIN@31 at line 989 of Types/Standard.pm # once (85µs+782µs) by JSON::Schema::Modern::BEGIN@31 at line 1060 of Types/Standard.pm # once (49µs+704µs) by JSON::Schema::Modern::BEGIN@31 at line 334 of Types/Standard.pm # once (83µs+658µs) by JSON::Schema::Modern::BEGIN@31 at line 364 of Types/Standard.pm # once (40µs+587µs) by JSON::Schema::Modern::BEGIN@31 at line 377 of Types/Standard.pm # once (66µs+492µs) by JSON::Schema::Modern::BEGIN@31 at line 299 of Types/Standard.pm
sub add_type {
2143777µs37213µs my $meta = shift->meta;
# spent 213µs making 37 calls to Type::Library::meta, avg 6µs/call
2153790µs3718µs my $class = blessed( $meta ) ;
# spent 18µs making 37 calls to Scalar::Util::blessed, avg 486ns/call
216
2173715µs _croak( 'Type library is immutable' ) if $meta->{immutable};
218
219 my $type =
220 ref( $_[0] ) =~ /^Type::Tiny\b/ ? $_[0] :
221 blessed( $_[0] ) ? Types::TypeTiny::to_TypeTiny( $_[0] ) :
22237321µs1112.80ms ref( $_[0] ) eq q(HASH) ? 'Type::Tiny'->new( library => $class, %{ $_[0] } ) :
# spent 2.77ms making 37 calls to Type::Tiny::new, avg 75µs/call # spent 18µs making 37 calls to Type::Library::CORE:match, avg 486ns/call # spent 15µs making 37 calls to Scalar::Util::blessed, avg 405ns/call
223 "Type::Tiny"->new( library => $class, @_ );
2243762µs my $name = $type->{name};
225
2263772µs37270µs _croak( 'Type %s already exists in this library', $name ) if $meta->has_type( $name );
# spent 270µs making 37 calls to Type::Library::has_type, avg 7µs/call
2273756µs37185µs _croak( 'Type %s conflicts with coercion of same name', $name ) if $meta->has_coercion( $name );
# spent 185µs making 37 calls to Type::Library::has_coercion, avg 5µs/call
22837112µs37222µs _croak( 'Cannot add anonymous type to a library' ) if $type->is_anon;
# spent 222µs making 37 calls to Type::Tiny::is_anon, avg 6µs/call
2293711µs $meta->{types} ||= {};
2303739µs $meta->{types}{$name} = $type;
231
232240µs223µs
# spent 17µs (11+6) within Type::Library::BEGIN@232 which was called: # once (11µs+6µs) by Types::Standard::BEGIN@19 at line 232
no strict "refs";
# spent 17µs making 1 call to Type::Library::BEGIN@232 # spent 6µs making 1 call to strict::unimport
2332796µs252µs
# spent 30µs (8+22) within Type::Library::BEGIN@233 which was called: # once (8µs+22µs) by Types::Standard::BEGIN@19 at line 233
no warnings "redefine", "prototype";
# spent 30µs making 1 call to Type::Library::BEGIN@233 # spent 22µs making 1 call to warnings::unimport
234
23537156µs3731.4ms for my $exportable ( @{ $type->exportables } ) {
# spent 31.4ms making 37 calls to Type::Tiny::exportables, avg 848µs/call
23614846µs my $name = $exportable->{name};
23714821µs my $code = $exportable->{code};
23814813µs my $tags = $exportable->{tags};
239148505µs148905µs *{"$class\::$name"} = set_subname( "$class\::$name", $code );
# spent 905µs making 148 calls to Eval::TypeTiny::set_subname, avg 6µs/call
240148116µs push @{"$class\::EXPORT_OK"}, $name;
241148280µs push @{ ${"$class\::EXPORT_TAGS"}{$_} ||= [] }, $name for @$tags;
242148542µs $meta->{'functions'}{$name} = { type => $type, tags => $tags };
243 }
244
245 $INC{'Type/Registry.pm'}
246 ? 'Type::Registry'->for_class( $class )->add_type( $type, $name )
2473755µs : ( $Type::Registry::DELAYED{$class}{$name} = $type );
248
24937201µs return $type;
250} #/ sub add_type
251
252
# spent 155µs (84+71) within Type::Library::get_type which was called 11 times, avg 14µs/call: # 10 times (79µs+65µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:190] at line 169 of Types/Standard.pm, avg 14µs/call # once (5µs+6µs) by JSON::Schema::Modern::BEGIN@31 at line 1064 of Types/Standard.pm
sub get_type {
2531124µs1171µs my $meta = shift->meta;
# spent 71µs making 11 calls to Type::Library::meta, avg 6µs/call
2541158µs $meta->{types}{ $_[0] };
255}
256
257
# spent 286µs (166+120) within Type::Library::has_type which was called 40 times, avg 7µs/call: # 37 times (155µs+115µs) by Type::Library::add_type at line 226, avg 7µs/call # 3 times (11µs+5µs) by Type::Library::add_coercion at line 278, avg 5µs/call
sub has_type {
2584053µs40120µs my $meta = shift->meta;
# spent 120µs making 40 calls to Type::Library::meta, avg 3µs/call
25940101µs exists $meta->{types}{ $_[0] };
260}
261
262sub type_names {
263 my $meta = shift->meta;
264 keys %{ $meta->{types} };
265}
266
267
# spent 1.36ms (196µs+1.17) within Type::Library::add_coercion which was called 3 times, avg 454µs/call: # once (118µs+503µs) by JSON::Schema::Modern::BEGIN@31 at line 1064 of Types/Standard.pm # once (43µs+344µs) by JSON::Schema::Modern::BEGIN@31 at line 1105 of Types/Standard.pm # once (35µs+319µs) by JSON::Schema::Modern::BEGIN@31 at line 1089 of Types/Standard.pm
sub add_coercion {
26833µs310µs my $meta = shift->meta;
# spent 10µs making 3 calls to Type::Library::meta, avg 3µs/call
26937µs32µs my $class = blessed( $meta );
# spent 2µs making 3 calls to Scalar::Util::blessed, avg 667ns/call
270
27130s _croak( 'Type library is immutable' ) if $meta->{immutable};
272
27333µs require Type::Coercion;
274315µs6383µs my $c = blessed( $_[0] ) ? $_[0] : "Type::Coercion"->new( @_ );
# spent 382µs making 3 calls to Type::Coercion::new, avg 127µs/call # spent 1µs making 3 calls to Scalar::Util::blessed, avg 333ns/call
275316µs32µs my $name = $c->name;
# spent 2µs making 3 calls to Type::Coercion::name, avg 667ns/call
276
27735µs323µs _croak( 'Coercion %s already exists in this library', $name ) if $meta->has_coercion( $name );
# spent 23µs making 3 calls to Type::Library::has_coercion, avg 8µs/call
27835µs316µs _croak( 'Coercion %s conflicts with type of same name', $name ) if $meta->has_type( $name );
# spent 16µs making 3 calls to Type::Library::has_type, avg 5µs/call
27931µs37µs _croak( 'Cannot add anonymous type to a library' ) if $c->is_anon;
# spent 7µs making 3 calls to Type::Coercion::is_anon, avg 2µs/call
280
28133µs $meta->{coercions} ||= {};
28231µs $meta->{coercions}{$name} = $c;
283
284292µs284µs
# spent 52µs (20+32) within Type::Library::BEGIN@284 which was called: # once (20µs+32µs) by Types::Standard::BEGIN@19 at line 284
no strict "refs";
# spent 52µs making 1 call to Type::Library::BEGIN@284 # spent 32µs making 1 call to strict::unimport
2852279µs273µs
# spent 42µs (11+31) within Type::Library::BEGIN@285 which was called: # once (11µs+31µs) by Types::Standard::BEGIN@19 at line 285
no warnings "redefine", "prototype";
# spent 42µs making 1 call to Type::Library::BEGIN@285 # spent 31µs making 1 call to warnings::unimport
286
287314µs3723µs *{"$class\::$name"} = type_to_coderef( $c );
# spent 723µs making 3 calls to Eval::TypeTiny::type_to_coderef, avg 241µs/call
28833µs push @{"$class\::EXPORT_OK"}, $name;
28937µs push @{ ${"$class\::EXPORT_TAGS"}{'coercions'} ||= [] }, $name;
290319µs $meta->{'functions'}{$name} = { coercion => $c, tags => [ 'coercions' ] };
291
292311µs return $c;
293} #/ sub add_coercion
294
295sub get_coercion {
296 my $meta = shift->meta;
297 $meta->{coercions}{ $_[0] };
298}
299
300
# spent 208µs (130+78) within Type::Library::has_coercion which was called 40 times, avg 5µs/call: # 37 times (116µs+69µs) by Type::Library::add_type at line 227, avg 5µs/call # 3 times (14µs+9µs) by Type::Library::add_coercion at line 277, avg 8µs/call
sub has_coercion {
3014035µs4078µs my $meta = shift->meta;
# spent 78µs making 40 calls to Type::Library::meta, avg 2µs/call
3024095µs exists $meta->{coercions}{ $_[0] };
303}
304
305sub coercion_names {
306 my $meta = shift->meta;
307 keys %{ $meta->{coercions} };
308}
309
310
# spent 3.26ms (335µs+2.92) within Type::Library::make_immutable which was called: # once (335µs+2.92ms) by JSON::Schema::Modern::BEGIN@31 at line 1107 of Types/Standard.pm
sub make_immutable {
31111µs13µs my $meta = shift->meta;
# spent 3µs making 1 call to Type::Library::meta
31211µs my $class = ref( $meta );
313
314243µs222µs
# spent 17µs (12+5) within Type::Library::BEGIN@314 which was called: # once (12µs+5µs) by Types::Standard::BEGIN@19 at line 314
no strict "refs";
# spent 17µs making 1 call to Type::Library::BEGIN@314 # spent 5µs making 1 call to strict::unimport
3152230µs257µs
# spent 35µs (13+22) within Type::Library::BEGIN@315 which was called: # once (13µs+22µs) by Types::Standard::BEGIN@19 at line 315
no warnings "redefine", "prototype";
# spent 35µs making 1 call to Type::Library::BEGIN@315 # spent 22µs making 1 call to warnings::unimport
316
317124µs for my $type ( values %{ $meta->{types} } ) {
3183773µs741.98ms $type->coercion->freeze;
# spent 1.88ms making 37 calls to Type::Tiny::coercion, avg 51µs/call # spent 94µs making 37 calls to Type::Coercion::freeze, avg 3µs/call
3193742µs39329µs next unless $type->has_coercion && $type->coercion->frozen;
# spent 324µs making 37 calls to Type::Tiny::has_coercion, avg 9µs/call # spent 3µs making 1 call to Type::Tiny::coercion # spent 2µs making 1 call to Type::Coercion::frozen
32014µs1605µs for my $e ( $type->exportables_by_tag( 'to' ) ) {
# spent 605µs making 1 call to Type::Tiny::exportables_by_tag
32111µs my $qualified_name = $class . '::' . $e->{name};
322112µs112µs *$qualified_name = set_subname( $qualified_name, $e->{code} );
# spent 12µs making 1 call to Eval::TypeTiny::set_subname
323 }
324 }
325
326154µs $meta->{immutable} = 1;
327}
328
32916µs1;
330
331__END__
 
# spent 39µs within Type::Library::CORE:match which was called 77 times, avg 506ns/call: # 40 times (21µs+0s) by Type::Library::_exporter_expand_sub at line 53, avg 525ns/call # 37 times (18µs+0s) by Type::Library::add_type at line 222, avg 486ns/call
sub Type::Library::CORE:match; # opcode
# spent 3µs within Type::Library::CORE:subst which was called: # once (3µs+0s) by Type::Library::setup_type_library at line 190
sub Type::Library::CORE:subst; # opcode
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.