← Index
NYTProf Performance Profile   « line view »
For ../prof.pl
  Run on Thu Dec 15 15:23:56 2022
Reported on Thu Dec 15 15:27:03 2022

Filename/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny/Enum.pm
StatementsExecuted 2493 statements in 3.75ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
12621604µs614µsType::Tiny::Enum::_Trie::::_regexpType::Tiny::Enum::_Trie::_regexp (recurses: max depth 12, inclusive time 2.58ms)
3743317µs483µsType::Tiny::Enum::::inline_check Type::Tiny::Enum::inline_check
1911124µs124µsType::Tiny::Enum::_Trie::::addType::Tiny::Enum::_Trie::add
411118µs271µsType::Tiny::Enum::::new Type::Tiny::Enum::new
441181µs112µsType::Tiny::Enum::::parent Type::Tiny::Enum::parent
41176µs817µsType::Tiny::Enum::_Trie::::handleType::Tiny::Enum::_Trie::handle
412176µs897µsType::Tiny::Enum::::_regexp Type::Tiny::Enum::_regexp
412173µs73µsType::Tiny::Enum::::_xs_encoding Type::Tiny::Enum::_xs_encoding
412150µs50µsType::Tiny::Enum::::unique_values Type::Tiny::Enum::unique_values
41139µs1.57msType::Tiny::Enum::::_build_compiled_check Type::Tiny::Enum::_build_compiled_check
216334µs34µsType::Tiny::Enum::::can_be_inlined Type::Tiny::Enum::can_be_inlined
11125µs25µsType::Tiny::Enum::::BEGIN@3 Type::Tiny::Enum::BEGIN@3
221119µs19µsType::Tiny::Enum::::has_parent Type::Tiny::Enum::has_parent
1071110µs10µsType::Tiny::Enum::_Trie::::CORE:sortType::Tiny::Enum::_Trie::CORE:sort (opcode)
1119µs14µsType::Tiny::Enum::::BEGIN@16 Type::Tiny::Enum::BEGIN@16
4118µs8µsType::Tiny::Enum::::CORE:sort Type::Tiny::Enum::CORE:sort (opcode)
1116µs8µsType::Tiny::Enum::::BEGIN@4 Type::Tiny::Enum::BEGIN@4
1115µs14µsType::Tiny::Enum::::BEGIN@54 Type::Tiny::Enum::BEGIN@54
1113µs28µsType::Tiny::Enum::::BEGIN@5 Type::Tiny::Enum::BEGIN@5
4113µs3µsType::Tiny::Enum::_Trie::::newType::Tiny::Enum::_Trie::new
1112µs2µsType::Tiny::Enum::::BEGIN@17 Type::Tiny::Enum::BEGIN@17
1112µs2µsType::Tiny::Enum::::BEGIN@7 Type::Tiny::Enum::BEGIN@7
4111µs1µsType::Tiny::Enum::::_is_null_constraint Type::Tiny::Enum::_is_null_constraint
0000s0sType::Tiny::Enum::::__ANON__[:185] Type::Tiny::Enum::__ANON__[:185]
0000s0sType::Tiny::Enum::::__ANON__[:21] Type::Tiny::Enum::__ANON__[:21]
0000s0sType::Tiny::Enum::::__ANON__[:315] Type::Tiny::Enum::__ANON__[:315]
0000s0sType::Tiny::Enum::::__ANON__[:316] Type::Tiny::Enum::__ANON__[:316]
0000s0sType::Tiny::Enum::::__ANON__[:396] Type::Tiny::Enum::__ANON__[:396]
0000s0sType::Tiny::Enum::::__ANON__[:79] Type::Tiny::Enum::__ANON__[:79]
0000s0sType::Tiny::Enum::::__ANON__[:81] Type::Tiny::Enum::__ANON__[:81]
0000s0sType::Tiny::Enum::::_build_constraint Type::Tiny::Enum::_build_constraint
0000s0sType::Tiny::Enum::::_build_display_name Type::Tiny::Enum::_build_display_name
0000s0sType::Tiny::Enum::::_croak Type::Tiny::Enum::_croak
0000s0sType::Tiny::Enum::::_enum_order_hash Type::Tiny::Enum::_enum_order_hash
0000s0sType::Tiny::Enum::::_exporter_fail Type::Tiny::Enum::_exporter_fail
0000s0sType::Tiny::Enum::::_instantiate_moose_type Type::Tiny::Enum::_instantiate_moose_type
0000s0sType::Tiny::Enum::::as_regexp Type::Tiny::Enum::as_regexp
0000s0sType::Tiny::Enum::::closest_match Type::Tiny::Enum::closest_match
0000s0sType::Tiny::Enum::::constraint Type::Tiny::Enum::constraint
0000s0sType::Tiny::Enum::::exportables Type::Tiny::Enum::exportables
0000s0sType::Tiny::Enum::::has_sorter Type::Tiny::Enum::has_sorter
0000s0sType::Tiny::Enum::::is_word_safe Type::Tiny::Enum::is_word_safe
0000s0sType::Tiny::Enum::::new_intersection Type::Tiny::Enum::new_intersection
0000s0sType::Tiny::Enum::::new_union Type::Tiny::Enum::new_union
0000s0sType::Tiny::Enum::::sorter Type::Tiny::Enum::sorter
0000s0sType::Tiny::Enum::::validate_explain Type::Tiny::Enum::validate_explain
0000s0sType::Tiny::Enum::::values Type::Tiny::Enum::values
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package Type::Tiny::Enum;
2
3238µs125µs
# spent 25µs within Type::Tiny::Enum::BEGIN@3 which was called: # once (25µs+0s) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:1059] at line 3
use 5.008001;
# spent 25µs making 1 call to Type::Tiny::Enum::BEGIN@3
4221µs210µs
# spent 8µs (6+2) within Type::Tiny::Enum::BEGIN@4 which was called: # once (6µs+2µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:1059] at line 4
use strict;
# spent 8µs making 1 call to Type::Tiny::Enum::BEGIN@4 # spent 2µs making 1 call to strict::import
5225µs253µs
# spent 28µs (3+25) within Type::Tiny::Enum::BEGIN@5 which was called: # once (3µs+25µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:1059] at line 5
use warnings;
# spent 28µs making 1 call to Type::Tiny::Enum::BEGIN@5 # spent 25µs making 1 call to warnings::import
6
7
# spent 2µs within Type::Tiny::Enum::BEGIN@7 which was called: # once (2µs+0s) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:1059] at line 10
BEGIN {
811µs $Type::Tiny::Enum::AUTHORITY = 'cpan:TOBYINK';
912µs $Type::Tiny::Enum::VERSION = '2.000001';
10142µs12µs}
# spent 2µs making 1 call to Type::Tiny::Enum::BEGIN@7
11
1211µs$Type::Tiny::Enum::VERSION =~ tr/_//d;
13
14sub _croak ($;@) { require Error::TypeTiny; goto \&Error::TypeTiny::croak }
15
16323µs219µs
# spent 14µs (9+5) within Type::Tiny::Enum::BEGIN@16 which was called: # once (9µs+5µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:1059] at line 16
use Exporter::Tiny 1.004001 ();
# spent 14µs making 1 call to Type::Tiny::Enum::BEGIN@16 # spent 5µs making 1 call to UNIVERSAL::VERSION
172146µs12µs
# spent 2µs within Type::Tiny::Enum::BEGIN@17 which was called: # once (2µs+0s) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:1059] at line 17
use Type::Tiny ();
# spent 2µs making 1 call to Type::Tiny::Enum::BEGIN@17
1818µsour @ISA = qw( Type::Tiny Exporter::Tiny );
19
20__PACKAGE__->_install_overloads(
21 q[@{}] => sub { shift->values },
2215µs115µs);
# spent 15µs making 1 call to Type::Tiny::_install_overloads
23
24sub _exporter_fail {
25 my ( $class, $type_name, $values, $globals ) = @_;
26 my $caller = $globals->{into};
27 my $type = $class->new(
28 name => $type_name,
29 values => [ @$values ],
30 coercion => 1,
31 );
32 $INC{'Type/Registry.pm'}
33 ? 'Type::Registry'->for_class( $caller )->add_type( $type, $type_name )
34 : ( $Type::Registry::DELAYED{$caller}{$type_name} = $type )
35 unless( ref($caller) or $caller eq '-lexical' or $globals->{'lexical'} );
36 return map +( $_->{name} => $_->{code} ), @{ $type->exportables };
37}
38
39
# spent 271µs (118+153) within Type::Tiny::Enum::new which was called 4 times, avg 68µs/call: # 4 times (118µs+153µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:1059] at line 1054 of Types/Standard.pm, avg 68µs/call
sub new {
4042µs my $proto = shift;
41
4245µs my %opts = ( @_ == 1 ) ? %{ $_[0] } : @_;
43 _croak
44 "Enum type constraints cannot have a parent constraint passed to the constructor"
4543µs if exists $opts{parent};
46 _croak
47 "Enum type constraints cannot have a constraint coderef passed to the constructor"
4840s if exists $opts{constraint};
49 _croak
50 "Enum type constraints cannot have a inlining coderef passed to the constructor"
5142µs if exists $opts{inlined};
5240s _croak "Need to supply list of values" unless exists $opts{values};
53
5421.74ms223µs
# spent 14µs (5+9) within Type::Tiny::Enum::BEGIN@54 which was called: # once (5µs+9µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:1059] at line 54
no warnings 'uninitialized';
# spent 14µs making 1 call to Type::Tiny::Enum::BEGIN@54 # spent 9µs making 1 call to warnings::unimport
55 $opts{values} = [
56 map "$_",
57414µs @{ ref $opts{values} eq 'ARRAY' ? $opts{values} : [ $opts{values} ] }
58 ];
59
6041µs my %tmp;
61417µs undef $tmp{$_} for @{ $opts{values} };
62427µs48µs $opts{unique_values} = [ sort keys %tmp ];
# spent 8µs making 4 calls to Type::Tiny::Enum::CORE:sort, avg 2µs/call
63
6446µs47µs my $xs_encoding = _xs_encoding( $opts{unique_values} );
# spent 7µs making 4 calls to Type::Tiny::Enum::_xs_encoding, avg 2µs/call
6541µs if ( defined $xs_encoding ) {
66 my $xsub = Type::Tiny::XS::get_coderef_for( $xs_encoding );
67 $opts{compiled_type_constraint} = $xsub if $xsub;
68 }
69
70425µs if ( defined $opts{coercion} and !ref $opts{coercion} and 1 eq $opts{coercion} )
71 {
72 delete $opts{coercion};
73 $opts{_build_coercion} = sub {
74 require Types::Standard;
75 my $c = shift;
76 my $t = $c->type_constraint;
77 $c->add_type_coercions(
78 Types::Standard::Str(),
79 sub { $t->closest_match( @_ ? $_[0] : $_ ) }
80 );
81 };
82 } #/ if ( defined $opts{coercion...})
83
84419µs4138µs return $proto->SUPER::new( %opts );
# spent 138µs making 4 calls to Type::Tiny::new, avg 34µs/call
85} #/ sub new
86
87sub new_union {
88 my $proto = shift;
89 my %opts = ( @_ == 1 ) ? %{ $_[0] } : @_;
90 my @types = @{ delete $opts{type_constraints} };
91 my @values = map @$_, @types;
92 $proto->new( %opts, values => \@values );
93}
94
95sub new_intersection {
96 my $proto = shift;
97 my %opts = ( @_ == 1 ) ? %{ $_[0] } : @_;
98 my @types = @{ delete $opts{type_constraints} };
99 my %values; ++$values{$_} for map @$_, @types;
100 my @values = sort grep $values{$_}==@types, keys %values;
101 $proto->new( %opts, values => \@values );
102}
103
104sub values { $_[0]{values} }
1054186µs
# spent 50µs within Type::Tiny::Enum::unique_values which was called 41 times, avg 1µs/call: # 37 times (46µs+0s) by Type::Tiny::Enum::inline_check at line 230, avg 1µs/call # 4 times (4µs+0s) by Type::Tiny::Enum::_regexp at line 206, avg 1µs/call
sub unique_values { $_[0]{unique_values} }
106sub constraint { $_[0]{constraint} ||= $_[0]->_build_constraint }
107
10848µs
# spent 1µs within Type::Tiny::Enum::_is_null_constraint which was called 4 times, avg 250ns/call: # 4 times (1µs+0s) by Type::Tiny::_build_compiled_check at line 532 of Type/Tiny.pm, avg 250ns/call
sub _is_null_constraint { 0 }
109
110sub _build_display_name {
111 my $self = shift;
112 sprintf( "Enum[%s]", join q[,], @{ $self->unique_values } );
113}
114
115sub is_word_safe {
116 my $self = shift;
117 return not grep /\W/, @{ $self->unique_values };
118}
119
120sub exportables {
121 my ( $self, $base_name ) = @_;
122 if ( not $self->is_anon ) {
123 $base_name ||= $self->name;
124 }
125
126 my $exportables = $self->SUPER::exportables( $base_name );
127
128 if ( $self->is_word_safe ) {
129 require Eval::TypeTiny;
130 require B;
131 for my $value ( @{ $self->unique_values } ) {
132 push @$exportables, {
133 name => uc( sprintf '%s_%s', $base_name, $value ),
134 tags => [ 'constants' ],
135 code => Eval::TypeTiny::eval_closure(
136 source => sprintf( 'sub () { %s }', B::perlstring($value) ),
137 environment => {},
138 ),
139 };
140 }
141 }
142
143 return $exportables;
144}
145
146{
14710s my $new_xs;
148
149 #
150 # Note the fallback code for older Type::Tiny::XS cannot be tested as
151 # part of the coverage tests because they use the latest Type::Tiny::XS.
152 #
153
154
# spent 73µs within Type::Tiny::Enum::_xs_encoding which was called 41 times, avg 2µs/call: # 37 times (66µs+0s) by Type::Tiny::Enum::inline_check at line 230, avg 2µs/call # 4 times (7µs+0s) by Type::Tiny::Enum::new at line 64, avg 2µs/call
sub _xs_encoding {
1554110µs my $unique_values = shift;
156
1574167µs return undef unless Type::Tiny::_USE_XS;
158
159 return undef if @$unique_values > 50; # RT 121957
160
161 $new_xs = eval { Type::Tiny::XS->VERSION( "0.020" ); 1 } ? 1 : 0
162 unless defined $new_xs;
163 if ( $new_xs ) {
164 require B;
165 return sprintf(
166 "Enum[%s]",
167 join( ",", map B::perlstring( $_ ), @$unique_values )
168 );
169 }
170 else { # uncoverable statement
171 return undef if grep /\W/, @$unique_values; # uncoverable statement
172 return sprintf( "Enum[%s]", join( ",", @$unique_values ) ); # uncoverable statement
173 } # uncoverable statement
174 } #/ sub _xs_encoding
175}
176
177{
17820s my %cached;
179
180 sub _build_constraint {
181 my $self = shift;
182
183 my $regexp = $self->_regexp;
184 return $cached{$regexp} if $cached{$regexp};
185 my $coderef = ( $cached{$regexp} = sub { defined and m{\A(?:$regexp)\z} } );
186 Scalar::Util::weaken( $cached{$regexp} );
187 return $coderef;
188 }
189}
190
191{
19220s my %cached;
193
194
# spent 1.57ms (39µs+1.53) within Type::Tiny::Enum::_build_compiled_check which was called 4 times, avg 392µs/call: # 4 times (39µs+1.53ms) by Type::Tiny::compiled_check at line 437 of Type/Tiny.pm, avg 392µs/call
sub _build_compiled_check {
19541µs my $self = shift;
19645µs4843µs my $regexp = $self->_regexp;
# spent 843µs making 4 calls to Type::Tiny::Enum::_regexp, avg 211µs/call
19743µs return $cached{$regexp} if $cached{$regexp};
198412µs4682µs my $coderef = ( $cached{$regexp} = $self->SUPER::_build_compiled_check( @_ ) );
# spent 682µs making 4 calls to Type::Tiny::_build_compiled_check, avg 170µs/call
199410µs42µs Scalar::Util::weaken( $cached{$regexp} );
# spent 2µs making 4 calls to Scalar::Util::weaken, avg 500ns/call
20047µs return $coderef;
201 }
202}
203
20410s
# spent 897µs (76+821) within Type::Tiny::Enum::_regexp which was called 41 times, avg 22µs/call: # 37 times (54µs+0s) by Type::Tiny::Enum::inline_check at line 235, avg 1µs/call # 4 times (22µs+821µs) by Type::Tiny::Enum::_build_compiled_check at line 196, avg 211µs/call
sub _regexp {
2054112µs my $self = shift;
2064184µs8821µs $self->{_regexp} ||= 'Type::Tiny::Enum::_Trie'->handle( $self->unique_values );
# spent 817µs making 4 calls to Type::Tiny::Enum::_Trie::handle, avg 204µs/call # spent 4µs making 4 calls to Type::Tiny::Enum::unique_values, avg 1µs/call
207}
208
209sub as_regexp {
210 my $self = shift;
211
212 my $flags = @_ ? $_[0] : '';
213 unless ( defined $flags and $flags =~ /^[i]*$/ ) {
214 _croak(
215 "Unknown regexp flags: '$flags'; only 'i' currently accepted; stopped" );
216 }
217
218 my $regexp = $self->_regexp;
219 $flags ? qr/\A(?:$regexp)\z/i : qr/\A(?:$regexp)\z/;
220} #/ sub as_regexp
221
222
# spent 34µs within Type::Tiny::Enum::can_be_inlined which was called 21 times, avg 2µs/call: # 9 times (22µs+0s) by Type::Tiny::inline_assert at line 915 of Type/Tiny.pm, avg 2µs/call # 4 times (4µs+0s) by Type::Tiny::_build_compiled_check at line 537 of Type/Tiny.pm, avg 1µs/call # 3 times (1µs+0s) by Type::Tiny::_overload_coderef at line 203 of Type/Tiny.pm, avg 333ns/call # 2 times (4µs+0s) by Types::Standard::Dict::__inline_generator at line 117 of Types/Standard/Dict.pm, avg 2µs/call # 2 times (2µs+0s) by Types::Standard::Tuple::__inline_generator at line 103 of Types/Standard/Tuple.pm, avg 1µs/call # once (1µs+0s) by Types::Standard::Dict::__coercion_generator at line 256 of Types/Standard/Dict.pm
sub can_be_inlined {
2232141µs !!1;
224}
225
226
# spent 483µs (317+166) within Type::Tiny::Enum::inline_check which was called 37 times, avg 13µs/call: # 16 times (118µs+51µs) by Types::Standard::Dict::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard/Dict.pm:161] at line 156 of Types/Standard/Dict.pm, avg 11µs/call # 9 times (98µs+65µs) by Type::Tiny::inline_assert at line 915 of Type/Tiny.pm, avg 18µs/call # 8 times (72µs+41µs) by Types::Standard::Tuple::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard/Tuple.pm:164] at line 157 of Types/Standard/Tuple.pm, avg 14µs/call # 4 times (29µs+9µs) by Type::Tiny::_build_compiled_check at line 537 of Type/Tiny.pm, avg 10µs/call
sub inline_check {
227377µs my $self = shift;
228
229378µs my $xsub;
23037114µs74112µs if ( my $xs_encoding = _xs_encoding( $self->unique_values ) ) {
# spent 66µs making 37 calls to Type::Tiny::Enum::_xs_encoding, avg 2µs/call # spent 46µs making 37 calls to Type::Tiny::Enum::unique_values, avg 1µs/call
231 $xsub = Type::Tiny::XS::get_subname_for( $xs_encoding );
232 return "$xsub\($_[0]\)" if $xsub && !$Type::Tiny::AvoidCallbacks;
233 }
234
2353747µs3754µs my $regexp = $self->_regexp;
# spent 54µs making 37 calls to Type::Tiny::Enum::_regexp, avg 1µs/call
2363741µs my $code =
237 $_[0] eq '$_'
238 ? "(defined and !ref and m{\\A(?:$regexp)\\z})"
239 : "(defined($_[0]) and !ref($_[0]) and $_[0] =~ m{\\A(?:$regexp)\\z})";
240
2413711µs return "do { $Type::Tiny::SafePackage $code }"
242 if $Type::Tiny::AvoidCallbacks;
2433759µs return $code;
244} #/ sub inline_check
245
246sub _instantiate_moose_type {
247 my $self = shift;
248 my %opts = @_;
249 delete $opts{parent};
250 delete $opts{constraint};
251 delete $opts{inlined};
252 require Moose::Meta::TypeConstraint::Enum;
253 return "Moose::Meta::TypeConstraint::Enum"
254 ->new( %opts, values => $self->values );
255} #/ sub _instantiate_moose_type
256
257
# spent 19µs within Type::Tiny::Enum::has_parent which was called 22 times, avg 864ns/call: # 22 times (19µs+0s) by Type::Tiny::is_strictly_subtype_of at line 697 of Type/Tiny.pm, avg 864ns/call
sub has_parent {
2582228µs !!1;
259}
260
261
# spent 112µs (81+31) within Type::Tiny::Enum::parent which was called 44 times, avg 3µs/call: # 44 times (81µs+31µs) by Type::Tiny::is_strictly_subtype_of at line 698 of Type/Tiny.pm, avg 3µs/call
sub parent {
2624418µs require Types::Standard;
2634472µs4431µs Types::Standard::Str();
# spent 31µs making 44 calls to Types::Standard::Str, avg 705ns/call
264}
265
266sub validate_explain {
267 my $self = shift;
268 my ( $value, $varname ) = @_;
269 $varname = '$_' unless defined $varname;
270
271 return undef if $self->check( $value );
272
273 require Type::Utils;
274 !defined( $value )
275 ? [
276 sprintf(
277 '"%s" requires that the value is defined',
278 $self,
279 ),
280 ]
281 : @$self < 13 ? [
282 sprintf(
283 '"%s" requires that the value is equal to %s',
284 $self,
285 Type::Utils::english_list( \"or", map B::perlstring( $_ ), @$self ),
286 ),
287 ]
288 : [
289 sprintf(
290 '"%s" requires that the value is one of an enumerated list of strings',
291 $self,
292 ),
293 ];
294} #/ sub validate_explain
295
296sub has_sorter {
297 !!1;
298}
299
300sub _enum_order_hash {
301 my $self = shift;
302 my %hash;
303 my $i = 0;
304 for my $value ( @{ $self->values } ) {
305 next if exists $hash{$value};
306 $hash{$value} = $i++;
307 }
308 return %hash;
309} #/ sub _enum_order_hash
310
311sub sorter {
312 my $self = shift;
313 my %hash = $self->_enum_order_hash;
314 return [
315 sub { $_[0] <=> $_[1] },
316 sub { exists( $hash{ $_[0] } ) ? $hash{ $_[0] } : 2_100_000_000 },
317 ];
318}
319
32010smy $canon;
321
322sub closest_match {
323 require Types::Standard;
324
325 my ( $self, $given ) = ( shift, @_ );
326
327 return unless Types::Standard::is_Str $given;
328
329 return $given if $self->check( $given );
330
331 $canon ||= eval(
332 $] lt '5.016'
333 ? q< sub { ( my $var = lc($_[0]) ) =~ s/(^\s+)|(\s+$)//g; $var } >
334 : q< sub { CORE::fc($_[0]) =~ s/(^\s+)|(\s+$)//gr; } >
335 );
336
337 $self->{_lookups} ||= do {
338 my %lookups;
339 for ( @{ $self->values } ) {
340 my $key = $canon->( $_ );
341 next if exists $lookups{$key};
342 $lookups{$key} = $_;
343 }
344 \%lookups;
345 };
346
347 my $cgiven = $canon->( $given );
348 return $self->{_lookups}{$cgiven}
349 if $self->{_lookups}{$cgiven};
350
351 my $best;
352 VALUE: for my $possible ( @{ $self->values } ) {
353 my $stem = substr( $possible, 0, length $cgiven );
354 if ( $cgiven eq $canon->( $stem ) ) {
355 if ( defined( $best ) and length( $best ) >= length( $possible ) ) {
356 next VALUE;
357 }
358 $best = $possible;
359 }
360 }
361
362 return $best if defined $best;
363
364 return $self->values->[$given]
365 if Types::Standard::is_Int $given;
366
367 return $given;
368} #/ sub closest_match
369
370push @Type::Tiny::CMP, sub {
371 my $A = shift->find_constraining_type;
372 my $B = shift->find_constraining_type;
373 return Type::Tiny::CMP_UNKNOWN
374 unless $A->isa( __PACKAGE__ ) && $B->isa( __PACKAGE__ );
375
376 my %seen;
377 for my $word ( @{ $A->unique_values } ) {
378 $seen{$word} += 1;
379 }
380 for my $word ( @{ $B->unique_values } ) {
381 $seen{$word} += 2;
382 }
383
384 my $values = join( '', CORE::values %seen );
385 if ( $values =~ /^3*$/ ) {
386 return Type::Tiny::CMP_EQUIVALENT;
387 }
388 elsif ( $values !~ /2/ ) {
389 return Type::Tiny::CMP_SUPERTYPE;
390 }
391 elsif ( $values !~ /1/ ) {
392 return Type::Tiny::CMP_SUBTYPE;
393 }
394
395 return Type::Tiny::CMP_UNKNOWN;
39612µs};
397
398package # stolen from Regexp::Trie
399 Type::Tiny::Enum::_Trie;
40049µs
# spent 3µs within Type::Tiny::Enum::_Trie::new which was called 4 times, avg 750ns/call: # 4 times (3µs+0s) by Type::Tiny::Enum::_Trie::handle at line 444, avg 750ns/call
sub new { bless {} => shift }
401
402
# spent 124µs within Type::Tiny::Enum::_Trie::add which was called 19 times, avg 7µs/call: # 19 times (124µs+0s) by Type::Tiny::Enum::_Trie::handle at line 445, avg 7µs/call
sub add {
403193µs my $self = shift;
404192µs my $str = shift;
405191µs my $ref = $self;
4061936µs for my $char ( split //, $str ) {
40713741µs $ref->{$char} ||= {};
40813730µs $ref = $ref->{$char};
409 }
410195µs $ref->{''} = 1; # { '' => 1 } as terminator
4111918µs $self;
412} #/ sub add
413
414
# spent 614µs (604+10) within Type::Tiny::Enum::_Trie::_regexp which was called 126 times, avg 5µs/call: # 122 times (552µs+-552µs) by Type::Tiny::Enum::_Trie::_regexp at line 421, avg 0s/call # 4 times (52µs+562µs) by Type::Tiny::Enum::_Trie::handle at line 446, avg 154µs/call
sub _regexp {
41512612µs my $self = shift;
41612635µs return if $self->{''} and scalar keys %$self == 1; # terminator
4171079µs my ( @alt, @cc );
4181078µs my $q = 0;
419107141µs10710µs for my $char ( sort keys %$self ) {
# spent 10µs making 107 calls to Type::Tiny::Enum::_Trie::CORE:sort, avg 93ns/call
42012219µs my $qchar = quotemeta $char;
421122171µs1220s if ( ref $self->{$char} ) {
# spent 2.58ms making 122 calls to Type::Tiny::Enum::_Trie::_regexp, avg 21µs/call, recursion: max depth 12, sum of overlapping time 2.58ms
422 if ( defined( my $recurse = _regexp( $self->{$char} ) ) ) {
423 push @alt, $qchar . $recurse;
424 }
425 else {
426198µs push @cc, $qchar;
427 }
428 }
429 else {
430 $q = 1;
431 }
432 } #/ for my $char ( sort keys...)
43310711µs my $cconly = !@alt;
43410714µs @cc and push @alt, @cc == 1 ? $cc[0] : '[' . join( '', @cc ) . ']';
43510737µs my $result = @alt == 1 ? $alt[0] : '(?:' . join( '|', @alt ) . ')';
43610710µs $q and $result = $cconly ? "$result?" : "(?:$result)?";
437107145µs return $result;
438} #/ sub _regexp
439
440
# spent 817µs (76+741) within Type::Tiny::Enum::_Trie::handle which was called 4 times, avg 204µs/call: # 4 times (76µs+741µs) by Type::Tiny::Enum::_regexp at line 206, avg 204µs/call
sub handle {
44141µs my $class = shift;
44241µs my ( $vals ) = @_;
44341µs return '(?!)' unless @$vals;
44448µs43µs my $self = $class->new;
# spent 3µs making 4 calls to Type::Tiny::Enum::_Trie::new, avg 750ns/call
445413µs19124µs $self->add( $_ ) for @$vals;
# spent 124µs making 19 calls to Type::Tiny::Enum::_Trie::add, avg 7µs/call
446431µs4614µs $self->_regexp;
# spent 614µs making 4 calls to Type::Tiny::Enum::_Trie::_regexp, avg 154µs/call
447}
448
44916µs1;
450
451__END__
 
# spent 8µs within Type::Tiny::Enum::CORE:sort which was called 4 times, avg 2µs/call: # 4 times (8µs+0s) by Type::Tiny::Enum::new at line 62, avg 2µs/call
sub Type::Tiny::Enum::CORE:sort; # opcode
# spent 10µs within Type::Tiny::Enum::_Trie::CORE:sort which was called 107 times, avg 93ns/call: # 107 times (10µs+0s) by Type::Tiny::Enum::_Trie::_regexp at line 419, avg 93ns/call
sub Type::Tiny::Enum::_Trie::CORE:sort; # 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.