← 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:34 2022

Filename/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny/Enum.pm
StatementsExecuted 2493 statements in 4.08ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
12621738µs753µsType::Tiny::Enum::_Trie::::_regexpType::Tiny::Enum::_Trie::_regexp (recurses: max depth 12, inclusive time 3.25ms)
3743427µs627µsType::Tiny::Enum::::inline_check Type::Tiny::Enum::inline_check
1911176µs176µsType::Tiny::Enum::_Trie::::addType::Tiny::Enum::_Trie::add
4411106µs181µsType::Tiny::Enum::::parent Type::Tiny::Enum::parent
41198µs337µsType::Tiny::Enum::::new Type::Tiny::Enum::new
412188µs1.11msType::Tiny::Enum::::_regexp Type::Tiny::Enum::_regexp
41186µs1.02msType::Tiny::Enum::_Trie::::handleType::Tiny::Enum::_Trie::handle
412179µs79µsType::Tiny::Enum::::unique_values Type::Tiny::Enum::unique_values
412168µs68µsType::Tiny::Enum::::_xs_encoding Type::Tiny::Enum::_xs_encoding
41153µs2.04msType::Tiny::Enum::::_build_compiled_check Type::Tiny::Enum::_build_compiled_check
11126µs26µsType::Tiny::Enum::::BEGIN@3 Type::Tiny::Enum::BEGIN@3
216319µs19µsType::Tiny::Enum::::can_be_inlined Type::Tiny::Enum::can_be_inlined
221119µs19µsType::Tiny::Enum::::has_parent Type::Tiny::Enum::has_parent
1071115µs15µsType::Tiny::Enum::_Trie::::CORE:sortType::Tiny::Enum::_Trie::CORE:sort (opcode)
41111µs11µsType::Tiny::Enum::::CORE:sort Type::Tiny::Enum::CORE:sort (opcode)
1117µs12µsType::Tiny::Enum::::BEGIN@16 Type::Tiny::Enum::BEGIN@16
1116µs9µsType::Tiny::Enum::::BEGIN@4 Type::Tiny::Enum::BEGIN@4
4116µs6µsType::Tiny::Enum::_Trie::::newType::Tiny::Enum::_Trie::new
1115µs19µsType::Tiny::Enum::::BEGIN@54 Type::Tiny::Enum::BEGIN@54
1114µs32µsType::Tiny::Enum::::BEGIN@5 Type::Tiny::Enum::BEGIN@5
4114µs4µsType::Tiny::Enum::::_is_null_constraint Type::Tiny::Enum::_is_null_constraint
1113µs3µsType::Tiny::Enum::::BEGIN@17 Type::Tiny::Enum::BEGIN@17
1112µs2µsType::Tiny::Enum::::BEGIN@7 Type::Tiny::Enum::BEGIN@7
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
3239µs126µs
# spent 26µs within Type::Tiny::Enum::BEGIN@3 which was called: # once (26µ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 26µs making 1 call to Type::Tiny::Enum::BEGIN@3
4219µs212µs
# spent 9µs (6+3) within Type::Tiny::Enum::BEGIN@4 which was called: # once (6µs+3µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:1059] at line 4
use strict;
# spent 9µs making 1 call to Type::Tiny::Enum::BEGIN@4 # spent 3µs making 1 call to strict::import
5226µs260µs
# spent 32µs (4+28) within Type::Tiny::Enum::BEGIN@5 which was called: # once (4µs+28µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:1059] at line 5
use warnings;
# spent 32µs making 1 call to Type::Tiny::Enum::BEGIN@5 # spent 28µ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 {
810s $Type::Tiny::Enum::AUTHORITY = 'cpan:TOBYINK';
912µs $Type::Tiny::Enum::VERSION = '2.000001';
10144µ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
16322µs217µs
# spent 12µs (7+5) within Type::Tiny::Enum::BEGIN@16 which was called: # once (7µ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 12µs making 1 call to Type::Tiny::Enum::BEGIN@16 # spent 5µs making 1 call to UNIVERSAL::VERSION
172151µs13µs
# spent 3µs within Type::Tiny::Enum::BEGIN@17 which was called: # once (3µ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 3µs making 1 call to Type::Tiny::Enum::BEGIN@17
18110µsour @ISA = qw( Type::Tiny Exporter::Tiny );
19
20__PACKAGE__->_install_overloads(
21 q[@{}] => sub { shift->values },
2214µs19µs);
# spent 9µ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 337µs (98+239) within Type::Tiny::Enum::new which was called 4 times, avg 84µs/call: # 4 times (98µs+239µ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 84µs/call
sub new {
4041µs my $proto = shift;
41
42410µs my %opts = ( @_ == 1 ) ? %{ $_[0] } : @_;
43 _croak
44 "Enum type constraints cannot have a parent constraint passed to the constructor"
4542µs if exists $opts{parent};
46 _croak
47 "Enum type constraints cannot have a constraint coderef passed to the constructor"
4842µs if exists $opts{constraint};
49 _croak
50 "Enum type constraints cannot have a inlining coderef passed to the constructor"
5140s if exists $opts{inlined};
5242µs _croak "Need to supply list of values" unless exists $opts{values};
53
5421.60ms233µs
# spent 19µs (5+14) within Type::Tiny::Enum::BEGIN@54 which was called: # once (5µs+14µ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 19µs making 1 call to Type::Tiny::Enum::BEGIN@54 # spent 14µs making 1 call to warnings::unimport
55 $opts{values} = [
56 map "$_",
57416µs @{ ref $opts{values} eq 'ARRAY' ? $opts{values} : [ $opts{values} ] }
58 ];
59
6042µs my %tmp;
61412µs undef $tmp{$_} for @{ $opts{values} };
62431µs411µs $opts{unique_values} = [ sort keys %tmp ];
# spent 11µs making 4 calls to Type::Tiny::Enum::CORE:sort, avg 3µs/call
63
6446µs46µs my $xs_encoding = _xs_encoding( $opts{unique_values} );
# spent 6µ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
7042µ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
84438µs4222µs return $proto->SUPER::new( %opts );
# spent 222µs making 4 calls to Type::Tiny::new, avg 56µ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} }
10541123µs
# spent 79µs within Type::Tiny::Enum::unique_values which was called 41 times, avg 2µs/call: # 37 times (75µs+0s) by Type::Tiny::Enum::inline_check at line 230, avg 2µ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
108417µs
# spent 4µs within Type::Tiny::Enum::_is_null_constraint which was called 4 times, avg 1µs/call: # 4 times (4µs+0s) by Type::Tiny::_build_compiled_check at line 532 of Type/Tiny.pm, avg 1µs/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{
14711µs 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 68µs within Type::Tiny::Enum::_xs_encoding which was called 41 times, avg 2µs/call: # 37 times (62µs+0s) by Type::Tiny::Enum::inline_check at line 230, avg 2µs/call # 4 times (6µs+0s) by Type::Tiny::Enum::new at line 64, avg 2µs/call
sub _xs_encoding {
1554111µs my $unique_values = shift;
156
1574173µ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{
17821µs 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 2.04ms (53µs+1.99) within Type::Tiny::Enum::_build_compiled_check which was called 4 times, avg 511µs/call: # 4 times (53µs+1.99ms) by Type::Tiny::compiled_check at line 437 of Type/Tiny.pm, avg 511µs/call
sub _build_compiled_check {
19541µs my $self = shift;
19648µs41.05ms my $regexp = $self->_regexp;
# spent 1.05ms making 4 calls to Type::Tiny::Enum::_regexp, avg 262µs/call
19743µs return $cached{$regexp} if $cached{$regexp};
198419µs4936µs my $coderef = ( $cached{$regexp} = $self->SUPER::_build_compiled_check( @_ ) );
# spent 936µs making 4 calls to Type::Tiny::_build_compiled_check, avg 234µs/call
199414µs45µs Scalar::Util::weaken( $cached{$regexp} );
# spent 5µs making 4 calls to Scalar::Util::weaken, avg 1µs/call
200410µs return $coderef;
201 }
202}
203
20410s
# spent 1.11ms (88µs+1.02) within Type::Tiny::Enum::_regexp which was called 41 times, avg 27µs/call: # 37 times (63µs+0s) by Type::Tiny::Enum::inline_check at line 235, avg 2µs/call # 4 times (25µs+1.02ms) by Type::Tiny::Enum::_build_compiled_check at line 196, avg 262µs/call
sub _regexp {
205419µs my $self = shift;
2064195µs81.03ms $self->{_regexp} ||= 'Type::Tiny::Enum::_Trie'->handle( $self->unique_values );
# spent 1.02ms making 4 calls to Type::Tiny::Enum::_Trie::handle, avg 255µ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 19µs within Type::Tiny::Enum::can_be_inlined which was called 21 times, avg 905ns/call: # 9 times (8µs+0s) by Type::Tiny::inline_assert at line 915 of Type/Tiny.pm, avg 889ns/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 (2µs+0s) by Type::Tiny::_overload_coderef at line 203 of Type/Tiny.pm, avg 667ns/call # 2 times (2µs+0s) by Types::Standard::Tuple::__inline_generator at line 103 of Types/Standard/Tuple.pm, avg 1µs/call # 2 times (1µs+0s) by Types::Standard::Dict::__inline_generator at line 117 of Types/Standard/Dict.pm, avg 500ns/call # once (2µs+0s) by Types::Standard::Dict::__coercion_generator at line 256 of Types/Standard/Dict.pm
sub can_be_inlined {
2232157µs !!1;
224}
225
226
# spent 627µs (427+200) within Type::Tiny::Enum::inline_check which was called 37 times, avg 17µs/call: # 16 times (179µs+81µ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 16µs/call # 9 times (81µs+38µs) by Type::Tiny::inline_assert at line 915 of Type/Tiny.pm, avg 13µs/call # 8 times (130µs+57µ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 23µs/call # 4 times (37µs+24µs) by Type::Tiny::_build_compiled_check at line 537 of Type/Tiny.pm, avg 15µs/call
sub inline_check {
227377µs my $self = shift;
228
2293710µs my $xsub;
23037125µs74137µs if ( my $xs_encoding = _xs_encoding( $self->unique_values ) ) {
# spent 75µs making 37 calls to Type::Tiny::Enum::unique_values, avg 2µs/call # spent 62µs making 37 calls to Type::Tiny::Enum::_xs_encoding, avg 2µs/call
231 $xsub = Type::Tiny::XS::get_subname_for( $xs_encoding );
232 return "$xsub\($_[0]\)" if $xsub && !$Type::Tiny::AvoidCallbacks;
233 }
234
2353772µs3763µs my $regexp = $self->_regexp;
# spent 63µs making 37 calls to Type::Tiny::Enum::_regexp, avg 2µs/call
2363773µ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
241377µs return "do { $Type::Tiny::SafePackage $code }"
242 if $Type::Tiny::AvoidCallbacks;
24337109µ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 {
2582240µs !!1;
259}
260
261
# spent 181µs (106+75) within Type::Tiny::Enum::parent which was called 44 times, avg 4µs/call: # 44 times (106µs+75µs) by Type::Tiny::is_strictly_subtype_of at line 698 of Type/Tiny.pm, avg 4µs/call
sub parent {
2624434µs require Types::Standard;
2634493µs4475µs Types::Standard::Str();
# spent 75µs making 44 calls to Types::Standard::Str, avg 2µs/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 6µs within Type::Tiny::Enum::_Trie::new which was called 4 times, avg 2µs/call: # 4 times (6µs+0s) by Type::Tiny::Enum::_Trie::handle at line 444, avg 2µs/call
sub new { bless {} => shift }
401
402
# spent 176µs within Type::Tiny::Enum::_Trie::add which was called 19 times, avg 9µs/call: # 19 times (176µs+0s) by Type::Tiny::Enum::_Trie::handle at line 445, avg 9µs/call
sub add {
403193µs my $self = shift;
404193µs my $str = shift;
405193µs my $ref = $self;
4061941µs for my $char ( split //, $str ) {
40713781µs $ref->{$char} ||= {};
40813734µs $ref = $ref->{$char};
409 }
410196µs $ref->{''} = 1; # { '' => 1 } as terminator
4111925µs $self;
412} #/ sub add
413
414
# spent 753µs (738+15) within Type::Tiny::Enum::_Trie::_regexp which was called 126 times, avg 6µs/call: # 122 times (656µs+-656µs) by Type::Tiny::Enum::_Trie::_regexp at line 421, avg 0s/call # 4 times (82µs+671µs) by Type::Tiny::Enum::_Trie::handle at line 446, avg 188µs/call
sub _regexp {
41512610µs my $self = shift;
41612639µs return if $self->{''} and scalar keys %$self == 1; # terminator
4171079µs my ( @alt, @cc );
41810710µs my $q = 0;
419107182µs10715µs for my $char ( sort keys %$self ) {
# spent 15µs making 107 calls to Type::Tiny::Enum::_Trie::CORE:sort, avg 140ns/call
42012220µs my $qchar = quotemeta $char;
421122186µs1220s if ( ref $self->{$char} ) {
# spent 3.25ms making 122 calls to Type::Tiny::Enum::_Trie::_regexp, avg 27µs/call, recursion: max depth 12, sum of overlapping time 3.25ms
422 if ( defined( my $recurse = _regexp( $self->{$char} ) ) ) {
423 push @alt, $qchar . $recurse;
424 }
425 else {
426199µs push @cc, $qchar;
427 }
428 }
429 else {
430 $q = 1;
431 }
432 } #/ for my $char ( sort keys...)
4331079µs my $cconly = !@alt;
43410715µs @cc and push @alt, @cc == 1 ? $cc[0] : '[' . join( '', @cc ) . ']';
43510784µs my $result = @alt == 1 ? $alt[0] : '(?:' . join( '|', @alt ) . ')';
43610711µs $q and $result = $cconly ? "$result?" : "(?:$result)?";
437107169µs return $result;
438} #/ sub _regexp
439
440
# spent 1.02ms (86µs+935µs) within Type::Tiny::Enum::_Trie::handle which was called 4 times, avg 255µs/call: # 4 times (86µs+935µs) by Type::Tiny::Enum::_regexp at line 206, avg 255µs/call
sub handle {
44143µs my $class = shift;
44240s my ( $vals ) = @_;
44342µs return '(?!)' unless @$vals;
44445µs46µs my $self = $class->new;
# spent 6µs making 4 calls to Type::Tiny::Enum::_Trie::new, avg 2µs/call
445418µs19176µs $self->add( $_ ) for @$vals;
# spent 176µs making 19 calls to Type::Tiny::Enum::_Trie::add, avg 9µs/call
446437µs4753µs $self->_regexp;
# spent 753µs making 4 calls to Type::Tiny::Enum::_Trie::_regexp, avg 188µs/call
447}
448
44915µs1;
450
451__END__
 
# spent 11µs within Type::Tiny::Enum::CORE:sort which was called 4 times, avg 3µs/call: # 4 times (11µs+0s) by Type::Tiny::Enum::new at line 62, avg 3µs/call
sub Type::Tiny::Enum::CORE:sort; # opcode
# spent 15µs within Type::Tiny::Enum::_Trie::CORE:sort which was called 107 times, avg 140ns/call: # 107 times (15µs+0s) by Type::Tiny::Enum::_Trie::_regexp at line 419, avg 140ns/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.