← 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/Tiny.pm
StatementsExecuted 56865 statements in 105ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
63823911.6ms60.7msType::Tiny::::inline_check Type::Tiny::inline_check (recurses: max depth 4, inclusive time 45.1ms)
7032110.0ms34.1msType::Tiny::::is_strictly_subtype_of Type::Tiny::is_strictly_subtype_of (recurses: max depth 7, inclusive time 61.1ms)
37561247.73ms9.48msType::Tiny::::isa Type::Tiny::isa
10262197.55ms12.1msType::Tiny::::can_be_inlined Type::Tiny::can_be_inlined (recurses: max depth 2, inclusive time 710µs)
794326.79ms17.8msType::Tiny::::strictly_equals Type::Tiny::strictly_equals
137326.40ms58.6msType::Tiny::::inline_assert Type::Tiny::inline_assert
1691415.96ms14.0msType::Tiny::::_loose_to_TypeTiny Type::Tiny::_loose_to_TypeTiny
1114.41ms4.76msType::Tiny::::BEGIN@21 Type::Tiny::BEGIN@21
54113.47ms13.9msType::Tiny::::_build_coercion Type::Tiny::_build_coercion (recurses: max depth 2, inclusive time 3.06ms)
82763.43ms6.31msType::Tiny::::new Type::Tiny::new
1551713.33ms4.38msType::Tiny::::_is_null_constraint Type::Tiny::_is_null_constraint
69112.86ms76.8msType::Tiny::::parameterize Type::Tiny::parameterize
1911032.66ms44.8msType::Tiny::::is_strictly_a_type_of Type::Tiny::is_strictly_a_type_of
1112.36ms2.71msType::Tiny::::__ANON__[:126] Type::Tiny::__ANON__[:126]
36481212.23ms2.23msType::Tiny::::has_parent Type::Tiny::has_parent
203218102.19ms2.19msType::Tiny::::CORE:match Type::Tiny::CORE:match (opcode)
3721032.07ms3.11msType::Tiny::::__ANON__[:100] Type::Tiny::__ANON__[:100] (recurses: max depth 1, inclusive time 9µs)
220211.73ms41.6msType::Tiny::::_overload_coderef Type::Tiny::_overload_coderef
38221.18ms32.0msType::Tiny::::exportables Type::Tiny::exportables
69111.16ms4.22msType::Tiny::::____make_key Type::Tiny::____make_key
62321.10ms21.2msType::Tiny::::_build_compiled_check Type::Tiny::_build_compiled_check
1551111.04ms1.05msType::Tiny::::constraint Type::Tiny::constraint
38122939µs3.66msType::Tiny::::check Type::Tiny::check
8321887µs1.04msType::Tiny::::_stringify_no_magic Type::Tiny::_stringify_no_magic
18373811µs25.5msType::Tiny::::__ANON__[:89] Type::Tiny::__ANON__[:89]
1139123680µs680µsType::Tiny::::parent Type::Tiny::parent
80411541µs541µsType::Tiny::::has_inlined Type::Tiny::has_inlined
37211524µs730µsType::Tiny::::display_name Type::Tiny::display_name (recurses: max depth 1, inclusive time 1µs)
10622451µs643µsType::Tiny::::is_parameterizable Type::Tiny::is_parameterizable
12932439µs565µsType::Tiny::::is_anon Type::Tiny::is_anon
169104423µs22.3msType::Tiny::::compiled_check Type::Tiny::compiled_check (recurses: max depth 1, inclusive time 24µs)
52911388µs388µsType::Tiny::::inlined Type::Tiny::inlined
6733380µs487µsType::Tiny::::can Type::Tiny::can
8576373µs2.83msType::Tiny::::has_coercion Type::Tiny::has_coercion (recurses: max depth 2, inclusive time 723µs)
2732332µs3.01msType::Tiny::::create_child_type Type::Tiny::create_child_type
1622313µs827µsType::Tiny::::__ANON__[:524] Type::Tiny::__ANON__[:524]
245146310µs310µsType::Tiny::::__ANON__[:101] Type::Tiny::__ANON__[:101]
29752308µs308µsType::Tiny::::name Type::Tiny::name
311257µs4.84msType::Tiny::::__ANON__[:659] Type::Tiny::__ANON__[:659]
4633247µs294µsType::Tiny::::qualified_name Type::Tiny::qualified_name
3011219µs237µsType::Tiny::::__ANON__[:276] Type::Tiny::__ANON__[:276]
5863198µs14.0msType::Tiny::::coercion Type::Tiny::coercion (recurses: max depth 2, inclusive time 3.08ms)
10611192µs192µsType::Tiny::::has_constraint_generator Type::Tiny::has_constraint_generator
10322185µs185µsType::Tiny::::deprecated Type::Tiny::deprecated
311160µs1.36msType::Tiny::::__ANON__[:1073] Type::Tiny::__ANON__[:1073]
13721147µs147µsType::Tiny::::CORE:sort Type::Tiny::CORE:sort (opcode)
885132µs132µsType::Tiny::::_install_overloads Type::Tiny::_install_overloads
4411131µs191µsType::Tiny::::_build_display_name Type::Tiny::_build_display_name
1221107µs143µsType::Tiny::::_lookup_my_method Type::Tiny::_lookup_my_method (recurses: max depth 1, inclusive time 27µs)
111106µs106µsType::Tiny::::BEGIN@29 Type::Tiny::BEGIN@29
3311106µs345µsType::Tiny::::CORE:subst Type::Tiny::CORE:subst (opcode)
4355103µs103µsType::Tiny::::__ANON__[:55] Type::Tiny::__ANON__[:55]
1762102µs114µsType::Tiny::::type_default Type::Tiny::type_default (recurses: max depth 1, inclusive time 6µs)
62180µs416µsType::Tiny::::AUTOLOAD Type::Tiny::AUTOLOAD
31164µs4.97msType::Tiny::::__ANON__[:602] Type::Tiny::__ANON__[:602]
21156µs68µsType::Tiny::::find_parent Type::Tiny::find_parent
542156µs56µsType::Tiny::::has_coercion_generator Type::Tiny::has_coercion_generator
341153µs53µsType::Tiny::::constraint_generator Type::Tiny::constraint_generator
222250µs68µsType::Tiny::::name_generator Type::Tiny::name_generator
201146µs46µsType::Tiny::::inline_generator Type::Tiny::inline_generator
11144µs44µsType::Tiny::::BEGIN@3 Type::Tiny::BEGIN@3
55234µs1.47msType::Tiny::::where Type::Tiny::where
271129µs29µsType::Tiny::::child_type_class Type::Tiny::child_type_class
181126µs28µsType::Tiny::::my_methods Type::Tiny::my_methods
201122µs22µsType::Tiny::::has_inline_generator Type::Tiny::has_inline_generator
11120µs27µsType::Tiny::::DESTROY Type::Tiny::DESTROY
21120µs34µsType::Tiny::::type_parameter Type::Tiny::type_parameter
11118µs31µsType::Tiny::::BEGIN@1435 Type::Tiny::BEGIN@1435
51118µs18µsType::Tiny::::_build_name_generator Type::Tiny::_build_name_generator
52218µs18µsType::Tiny::::parameters Type::Tiny::parameters
151117µs17µsType::Tiny::::_build_constraint Type::Tiny::_build_constraint
31116µs4.98msType::Tiny::::is_a_type_of Type::Tiny::is_a_type_of
11112µs34µsType::Tiny::::BEGIN@4 Type::Tiny::BEGIN@4
62112µs27µsType::Tiny::::find_constraining_type Type::Tiny::find_constraining_type
11111µs65µsType::Tiny::::BEGIN@5 Type::Tiny::BEGIN@5
11111µs605µsType::Tiny::::exportables_by_tag Type::Tiny::exportables_by_tag
11110µs49µsType::Tiny::::BEGIN@20 Type::Tiny::BEGIN@20
3116µs10µsType::Tiny::::is_parameterized Type::Tiny::is_parameterized
1115µs5µsType::Tiny::::BEGIN@7 Type::Tiny::BEGIN@7
1115µs12µsType::Tiny::::BEGIN@71 Type::Tiny::BEGIN@71
3115µs5µsType::Tiny::::coercion_generator Type::Tiny::coercion_generator
1114µs4µsType::Tiny::::BEGIN@11 Type::Tiny::BEGIN@11
3114µs4µsType::Tiny::::has_parameters Type::Tiny::has_parameters
1113µs18µsType::Tiny::::BEGIN@72 Type::Tiny::BEGIN@72
2112µs2µsType::Tiny::::_build_my_methods Type::Tiny::_build_my_methods
1111µs1µsType::Tiny::::_swap Type::Tiny::_swap
0000s0sType::Tiny::::DOES Type::Tiny::DOES
0000s0sType::Tiny::::TIEARRAY Type::Tiny::TIEARRAY
0000s0sType::Tiny::::TIEHASH Type::Tiny::TIEHASH
0000s0sType::Tiny::::TIESCALAR Type::Tiny::TIESCALAR
0000s0sType::Tiny::::__ANON__[:1110] Type::Tiny::__ANON__[:1110]
0000s0sType::Tiny::::__ANON__[:1114] Type::Tiny::__ANON__[:1114]
0000s0sType::Tiny::::__ANON__[:1147] Type::Tiny::__ANON__[:1147]
0000s0sType::Tiny::::__ANON__[:1219] Type::Tiny::__ANON__[:1219]
0000s0sType::Tiny::::__ANON__[:1395] Type::Tiny::__ANON__[:1395]
0000s0sType::Tiny::::__ANON__[:1410] Type::Tiny::__ANON__[:1410]
0000s0sType::Tiny::::__ANON__[:150] Type::Tiny::__ANON__[:150]
0000s0sType::Tiny::::__ANON__[:151] Type::Tiny::__ANON__[:151]
0000s0sType::Tiny::::__ANON__[:152] Type::Tiny::__ANON__[:152]
0000s0sType::Tiny::::__ANON__[:1530] Type::Tiny::__ANON__[:1530]
0000s0sType::Tiny::::__ANON__[:153] Type::Tiny::__ANON__[:153]
0000s0sType::Tiny::::__ANON__[:154] Type::Tiny::__ANON__[:154]
0000s0sType::Tiny::::__ANON__[:158] Type::Tiny::__ANON__[:158]
0000s0sType::Tiny::::__ANON__[:159] Type::Tiny::__ANON__[:159]
0000s0sType::Tiny::::__ANON__[:163] Type::Tiny::__ANON__[:163]
0000s0sType::Tiny::::__ANON__[:164] Type::Tiny::__ANON__[:164]
0000s0sType::Tiny::::__ANON__[:165] Type::Tiny::__ANON__[:165]
0000s0sType::Tiny::::__ANON__[:166] Type::Tiny::__ANON__[:166]
0000s0sType::Tiny::::__ANON__[:167] Type::Tiny::__ANON__[:167]
0000s0sType::Tiny::::__ANON__[:171] Type::Tiny::__ANON__[:171]
0000s0sType::Tiny::::__ANON__[:195] Type::Tiny::__ANON__[:195]
0000s0sType::Tiny::::__ANON__[:321] Type::Tiny::__ANON__[:321]
0000s0sType::Tiny::::__ANON__[:335] Type::Tiny::__ANON__[:335]
0000s0sType::Tiny::::__ANON__[:484] Type::Tiny::__ANON__[:484]
0000s0sType::Tiny::::__ANON__[:511] Type::Tiny::__ANON__[:511]
0000s0sType::Tiny::::__ANON__[:516] Type::Tiny::__ANON__[:516]
0000s0sType::Tiny::::__ANON__[:553] Type::Tiny::__ANON__[:553]
0000s0sType::Tiny::::__ANON__[:569] Type::Tiny::__ANON__[:569]
0000s0sType::Tiny::::__ANON__[:823] Type::Tiny::__ANON__[:823]
0000s0sType::Tiny::::__ANON__[:82] Type::Tiny::__ANON__[:82]
0000s0sType::Tiny::::__ANON__[:83] Type::Tiny::__ANON__[:83]
0000s0sType::Tiny::::__is_parameterized Type::Tiny::__is_parameterized
0000s0sType::Tiny::::_actually_compile_type_constraint Type::Tiny::_actually_compile_type_constraint
0000s0sType::Tiny::::_add_type_coercions Type::Tiny::_add_type_coercions
0000s0sType::Tiny::::_as_string Type::Tiny::_as_string
0000s0sType::Tiny::::_assert_coercion Type::Tiny::_assert_coercion
0000s0sType::Tiny::::_build_complementary_type Type::Tiny::_build_complementary_type
0000s0sType::Tiny::::_build_default_message Type::Tiny::_build_default_message
0000s0sType::Tiny::::_build_moose_type Type::Tiny::_build_moose_type
0000s0sType::Tiny::::_build_mouse_type Type::Tiny::_build_mouse_type
0000s0sType::Tiny::::_build_util Type::Tiny::_build_util
0000s0sType::Tiny::::_clone Type::Tiny::_clone
0000s0sType::Tiny::::_compiled_type_coercion Type::Tiny::_compiled_type_coercion
0000s0sType::Tiny::::_compiled_type_constraint Type::Tiny::_compiled_type_constraint
0000s0sType::Tiny::::_croak Type::Tiny::_croak
0000s0sType::Tiny::::_dd Type::Tiny::_dd
0000s0sType::Tiny::::_default_message Type::Tiny::_default_message
0000s0sType::Tiny::::_failed_check Type::Tiny::_failed_check
0000s0sType::Tiny::::_has_xsub Type::Tiny::_has_xsub
0000s0sType::Tiny::::_identity Type::Tiny::_identity
0000s0sType::Tiny::::_inline_check Type::Tiny::_inline_check
0000s0sType::Tiny::::_instantiate_moose_type Type::Tiny::_instantiate_moose_type
0000s0sType::Tiny::::_perlcode Type::Tiny::_perlcode
0000s0sType::Tiny::::_process_coercion_list Type::Tiny::_process_coercion_list
0000s0sType::Tiny::::_strict_check Type::Tiny::_strict_check
0000s0sType::Tiny::::_unite Type::Tiny::_unite
0000s0sType::Tiny::::assert_coerce Type::Tiny::assert_coerce
0000s0sType::Tiny::::assert_return Type::Tiny::assert_return
0000s0sType::Tiny::::assert_valid Type::Tiny::assert_valid
0000s0sType::Tiny::::coerce Type::Tiny::coerce
0000s0sType::Tiny::::coercibles Type::Tiny::coercibles
0000s0sType::Tiny::::compile_type_constraint Type::Tiny::compile_type_constraint
0000s0sType::Tiny::::complementary_type Type::Tiny::complementary_type
0000s0sType::Tiny::::deep_explanation Type::Tiny::deep_explanation
0000s0sType::Tiny::::equals Type::Tiny::equals
0000s0sType::Tiny::::get_message Type::Tiny::get_message
0000s0sType::Tiny::::hand_optimized_type_constraint Type::Tiny::hand_optimized_type_constraint
0000s0sType::Tiny::::has_deep_explanation Type::Tiny::has_deep_explanation
0000s0sType::Tiny::::has_hand_optimized_type_constraint Type::Tiny::has_hand_optimized_type_constraint
0000s0sType::Tiny::::has_library Type::Tiny::has_library
0000s0sType::Tiny::::has_message Type::Tiny::has_message
0000s0sType::Tiny::::has_parameterized_from Type::Tiny::has_parameterized_from
0000s0sType::Tiny::::has_sorter Type::Tiny::has_sorter
0000s0sType::Tiny::::inline_environment Type::Tiny::inline_environment
0000s0sType::Tiny::::is_strictly_supertype_of Type::Tiny::is_strictly_supertype_of
0000s0sType::Tiny::::is_subtype_of Type::Tiny::is_subtype_of
0000s0sType::Tiny::::is_supertype_of Type::Tiny::is_supertype_of
0000s0sType::Tiny::::library Type::Tiny::library
0000s0sType::Tiny::::message Type::Tiny::message
0000s0sType::Tiny::::meta Type::Tiny::meta
0000s0sType::Tiny::::minus_coercions Type::Tiny::minus_coercions
0000s0sType::Tiny::::moose_type Type::Tiny::moose_type
0000s0sType::Tiny::::mouse_type Type::Tiny::mouse_type
0000s0sType::Tiny::::no_coercions Type::Tiny::no_coercions
0000s0sType::Tiny::::of Type::Tiny::of
0000s0sType::Tiny::::parameterized_from Type::Tiny::parameterized_from
0000s0sType::Tiny::::parents Type::Tiny::parents
0000s0sType::Tiny::::plus_coercions Type::Tiny::plus_coercions
0000s0sType::Tiny::::plus_fallback_coercions Type::Tiny::plus_fallback_coercions
0000s0sType::Tiny::::sorter Type::Tiny::sorter
0000s0sType::Tiny::::validate Type::Tiny::validate
0000s0sType::Tiny::::validate_explain Type::Tiny::validate_explain
0000s0sTypes::Standard::::to_AnyTypes::Standard::to_Any
0000s0sTypes::Standard::::to_ArrayRefTypes::Standard::to_ArrayRef
0000s0sTypes::Standard::::to_ClassNameTypes::Standard::to_ClassName
0000s0sTypes::Standard::::to_CodeRefTypes::Standard::to_CodeRef
0000s0sTypes::Standard::::to_ConsumerOfTypes::Standard::to_ConsumerOf
0000s0sTypes::Standard::::to_CycleTupleTypes::Standard::to_CycleTuple
0000s0sTypes::Standard::::to_DefinedTypes::Standard::to_Defined
0000s0sTypes::Standard::::to_DictTypes::Standard::to_Dict
0000s0sTypes::Standard::::to_EnumTypes::Standard::to_Enum
0000s0sTypes::Standard::::to_FileHandleTypes::Standard::to_FileHandle
0000s0sTypes::Standard::::to_GlobRefTypes::Standard::to_GlobRef
0000s0sTypes::Standard::::to_HasMethodsTypes::Standard::to_HasMethods
0000s0sTypes::Standard::::to_HashRefTypes::Standard::to_HashRef
0000s0sTypes::Standard::::to_InstanceOfTypes::Standard::to_InstanceOf
0000s0sTypes::Standard::::to_IntTypes::Standard::to_Int
0000s0sTypes::Standard::::to_ItemTypes::Standard::to_Item
0000s0sTypes::Standard::::to_LaxNumTypes::Standard::to_LaxNum
0000s0sTypes::Standard::::to_MapTypes::Standard::to_Map
0000s0sTypes::Standard::::to_MaybeTypes::Standard::to_Maybe
0000s0sTypes::Standard::::to_NumTypes::Standard::to_Num
0000s0sTypes::Standard::::to_ObjectTypes::Standard::to_Object
0000s0sTypes::Standard::::to_OptListTypes::Standard::to_OptList
0000s0sTypes::Standard::::to_OptionalTypes::Standard::to_Optional
0000s0sTypes::Standard::::to_OverloadTypes::Standard::to_Overload
0000s0sTypes::Standard::::to_RefTypes::Standard::to_Ref
0000s0sTypes::Standard::::to_RegexpRefTypes::Standard::to_RegexpRef
0000s0sTypes::Standard::::to_RoleNameTypes::Standard::to_RoleName
0000s0sTypes::Standard::::to_ScalarRefTypes::Standard::to_ScalarRef
0000s0sTypes::Standard::::to_SlurpyTypes::Standard::to_Slurpy
0000s0sTypes::Standard::::to_StrTypes::Standard::to_Str
0000s0sTypes::Standard::::to_StrMatchTypes::Standard::to_StrMatch
0000s0sTypes::Standard::::to_StrictNumTypes::Standard::to_StrictNum
0000s0sTypes::Standard::::to_TiedTypes::Standard::to_Tied
0000s0sTypes::Standard::::to_TupleTypes::Standard::to_Tuple
0000s0sTypes::Standard::::to_UndefTypes::Standard::to_Undef
0000s0sTypes::Standard::::to_ValueTypes::Standard::to_Value
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;
2
3254µs144µs
# spent 44µs within Type::Tiny::BEGIN@3 which was called: # once (44µs+0s) by Type::Library::BEGIN@16 at line 3
use 5.008001;
# spent 44µs making 1 call to Type::Tiny::BEGIN@3
4292µs256µs
# spent 34µs (12+22) within Type::Tiny::BEGIN@4 which was called: # once (12µs+22µs) by Type::Library::BEGIN@16 at line 4
use strict;
# spent 34µs making 1 call to Type::Tiny::BEGIN@4 # spent 22µs making 1 call to strict::import
5250µs2119µs
# spent 65µs (11+54) within Type::Tiny::BEGIN@5 which was called: # once (11µs+54µs) by Type::Library::BEGIN@16 at line 5
use warnings;
# spent 65µs making 1 call to Type::Tiny::BEGIN@5 # spent 54µs making 1 call to warnings::import
6
7
# spent 5µs within Type::Tiny::BEGIN@7 which was called: # once (5µs+0s) by Type::Library::BEGIN@16 at line 9
BEGIN {
814µs if ( $] < 5.010 ) { require Devel::TypeTiny::Perl58Compat }
9190µs15µs}
# spent 5µs making 1 call to Type::Tiny::BEGIN@7
10
11
# spent 4µs within Type::Tiny::BEGIN@11 which was called: # once (4µs+0s) by Type::Library::BEGIN@16 at line 15
BEGIN {
1210s $Type::Tiny::AUTHORITY = 'cpan:TOBYINK';
1310s $Type::Tiny::VERSION = '2.000001';
14111µs $Type::Tiny::XS_VERSION = '0.016';
15155µs14µs}
# spent 4µs making 1 call to Type::Tiny::BEGIN@11
16
1711µs$Type::Tiny::VERSION =~ tr/_//d;
1811µs$Type::Tiny::XS_VERSION =~ tr/_//d;
19
20246µs288µs
# spent 49µs (10+39) within Type::Tiny::BEGIN@20 which was called: # once (10µs+39µs) by Type::Library::BEGIN@16 at line 20
use Scalar::Util qw( blessed );
# spent 49µs making 1 call to Type::Tiny::BEGIN@20 # spent 39µs making 1 call to Exporter::import
212837µs14.76ms
# spent 4.76ms (4.41+353µs) within Type::Tiny::BEGIN@21 which was called: # once (4.41ms+353µs) by Type::Library::BEGIN@16 at line 21
use Types::TypeTiny ();
# spent 4.76ms making 1 call to Type::Tiny::BEGIN@21
22
2312µsour $SafePackage = sprintf 'package %s;', __PACKAGE__;
24
25sub _croak ($;@) { require Error::TypeTiny; goto \&Error::TypeTiny::croak }
26
2713µs
# spent 1µs within Type::Tiny::_swap which was called: # once (1µs+0s) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:126] at line 104
sub _swap { $_[2] ? @_[ 1, 0 ] : @_[ 0, 1 ] }
28
29
# spent 106µs within Type::Tiny::BEGIN@29 which was called: # once (106µs+0s) by Type::Library::BEGIN@16 at line 66
BEGIN {
3010s my $support_smartmatch = 0+ !!( $] >= 5.010001 );
31118µs eval qq{ sub SUPPORT_SMARTMATCH () { !! $support_smartmatch } };
32
3310s my $fixed_precedence = 0+ !!( $] >= 5.014 );
34113µs eval qq{ sub _FIXED_PRECEDENCE () { !! $fixed_precedence } };
35
36 my $try_xs =
37 exists( $ENV{PERL_TYPE_TINY_XS} ) ? !!$ENV{PERL_TYPE_TINY_XS}
38 : exists( $ENV{PERL_ONLY} ) ? !$ENV{PERL_ONLY}
3911µs : 1;
40
4110s my $use_xs = 0;
4210s $try_xs and eval {
43169µs require Type::Tiny::XS;
44 'Type::Tiny::XS'->VERSION( $Type::Tiny::XS_VERSION );
45 $use_xs++;
46 };
47
48 *_USE_XS =
49 $use_xs
50 ? sub () { !!1 }
5111µs : sub () { !!0 };
52
53 *_USE_MOUSE =
54 $try_xs
5543185µs
# spent 103µs within Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:55] which was called 43 times, avg 2µs/call: # 20 times (45µs+0s) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:127] at line 74 of Types/Standard.pm, avg 2µs/call # 10 times (24µs+0s) by Type::Tiny::Class::new at line 46 of Type/Tiny/Class.pm, avg 2µs/call # 8 times (21µs+0s) by Types::Standard::HashRef::__constraint_generator at line 34 of Types/Standard/HashRef.pm, avg 3µs/call # 4 times (9µs+0s) by Types::Standard::ArrayRef::__constraint_generator at line 38 of Types/Standard/ArrayRef.pm, avg 2µs/call # once (4µs+0s) by Type::Tiny::Duck::new at line 47 of Type/Tiny/Duck.pm
? sub () { $INC{'Mouse/Util.pm'} and Mouse::Util::MOUSE_XS() }
5611µs : sub () { !!0 };
57
5810s my $strict_mode = 0;
5911µs $ENV{$_} && ++$strict_mode for qw(
60 EXTENDED_TESTING
61 AUTHOR_TESTING
62 RELEASE_TESTING
63 PERL_STRICT
64 );
6513µs *_STRICT_MODE = $strict_mode ? sub () { !!1 } : sub () { !!0 };
66121µs1106µs} #/ BEGIN
# spent 106µs making 1 call to Type::Tiny::BEGIN@29
67
68{
69
70
# spent 132µs within Type::Tiny::_install_overloads which was called 8 times, avg 16µs/call: # once (41µs+0s) by Type::Library::BEGIN@16 at line 168 # once (22µs+0s) by Type::Tiny::_build_coercion at line 29 of Type/Coercion.pm # once (19µs+0s) by JSON::Schema::Modern::BEGIN@31 at line 161 of Types/Standard.pm # once (15µs+0s) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:126] at line 23 of Type/Tiny/Union.pm # once (10µs+0s) by Type::Library::BEGIN@16 at line 172 # once (9µs+0s) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:1059] at line 22 of Type/Tiny/Enum.pm # once (9µs+0s) by JSON::Schema::Modern::BEGIN@31 at line 191 of Types/Standard.pm # once (7µs+0s) by Type::Tiny::_build_coercion at line 34 of Type/Coercion.pm
sub _install_overloads {
71225µs219µs
# spent 12µs (5+7) within Type::Tiny::BEGIN@71 which was called: # once (5µs+7µs) by Type::Library::BEGIN@16 at line 71
no strict 'refs';
# spent 12µs making 1 call to Type::Tiny::BEGIN@71 # spent 7µs making 1 call to strict::unimport
7227.53ms233µs
# spent 18µs (3+15) within Type::Tiny::BEGIN@72 which was called: # once (3µs+15µs) by Type::Library::BEGIN@16 at line 72
no warnings 'redefine', 'once';
# spent 18µs making 1 call to Type::Tiny::BEGIN@72 # spent 15µs making 1 call to warnings::unimport
73
74 # Coverage is checked on Perl 5.26
7583µs if ( $] < 5.010 ) { # uncoverable statement
76 require overload; # uncoverable statement
77 push @_, fallback => 1; # uncoverable statement
78 goto \&overload::OVERLOAD; # uncoverable statement
79 }
80
8184µs my $class = shift;
82835µs *{ $class . '::((' } = sub { };
83813µs *{ $class . '::()' } = sub { };
842412µs *{ $class . '::()' } = do { my $x = 1; \$x };
85842µs while ( @_ ) {
86252µs my $f = shift;
872540µs *{ $class . '::(' . $f } = ref $_[0] ? shift : do {
8820s my $m = shift;
89183617µs18324.7ms
# spent 25.5ms (811µs+24.7) within Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:89] which was called 183 times, avg 139µs/call: # 72 times (310µs+3.48ms) by JSON::Schema::Modern::Document::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/JSON/Schema/Modern/Document.pm:135] or Sub::Defer::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Defer.pm:178] at line 120 of JSON/Schema/Modern/Document.pm, avg 53µs/call # 48 times (144µs+3.28ms) by JSON::Schema::Modern::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/JSON/Schema/Modern.pm:672] or Sub::Defer::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Defer.pm:178] at line 646 of JSON/Schema/Modern.pm, avg 71µs/call # 47 times (322µs+17.4ms) by Method::Generate::Accessor::_validate_codulatable at line 686 of Method/Generate/Accessor.pm, avg 378µs/call # 10 times (14µs+6µs) by JSON::Schema::Modern::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/JSON/Schema/Modern.pm:124] or Sub::Defer::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Defer.pm:178] at line 124 of JSON/Schema/Modern.pm, avg 2µs/call # 2 times (7µs+225µs) by JSON::Schema::Modern::add_vocabulary or Sub::Defer::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Defer.pm:178] at line 707 of JSON/Schema/Modern.pm, avg 116µs/call # 2 times (8µs+221µs) by JSON::Schema::Modern::add_vocabulary or Sub::Defer::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Defer.pm:178] at line 702 of JSON/Schema/Modern.pm, avg 114µs/call # 2 times (6µs+1µs) by JSON::Schema::Modern::add_vocabulary or Sub::Defer::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Defer.pm:178] at line 708 of JSON/Schema/Modern.pm, avg 4µs/call
sub { shift->$m( @_ ) }
# spent 24.7ms making 183 calls to Type::Tiny::_overload_coderef, avg 135µs/call
9023µs };
91 }
92 } #/ sub _install_overloads
93}
94
9510s__PACKAGE__->_install_overloads(
96
# spent 3.11ms (2.07+1.03) within Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:100] which was called 372 times, avg 8µs/call: # 73 times (448µs+164µs) by Type::Tiny::inline_assert at line 935, avg 8µs/call # 64 times (362µs+281µs) by Type::Tiny::inline_assert at line 947, avg 10µs/call # 48 times (415µs+287µs) by Type::Tiny::_build_compiled_check at line 537, avg 15µs/call # 39 times (127µs+60µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:826] at line 823 of Types/Standard.pm, avg 5µs/call # 37 times (227µs+37µs) by Type::Tiny::_overload_coderef at line 215, avg 7µs/call # 37 times (162µs+91µs) by Type::Tiny::_build_coercion at line 502, avg 7µs/call # 33 times (158µs+81µs) by Type::Tiny::CORE:subst at line 522, avg 7µs/call # 33 times (140µs+29µs) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:524] at line 523, avg 5µs/call # 6 times (27µs+10µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:786] at line 785 of Types/Standard.pm, avg 6µs/call # 2 times (8µs+-8µs) by Type::Tiny::Union::_build_display_name at line 97 of Type/Tiny/Union.pm, avg 0s/call
q("") => sub {
973722.25ms7441.04ms caller =~ m{^(Moo::HandleMoose|Sub::Quote)}
# spent 731µs making 372 calls to Type::Tiny::display_name, avg 2µs/call, recursion: max depth 1, sum of overlapping time 1µs # spent 310µs making 372 calls to Type::Tiny::CORE:match, avg 833ns/call
98 ? $_[0]->_stringify_no_magic
99 : $_[0]->display_name;
100 },
101245568µs
# spent 310µs within Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:101] which was called 245 times, avg 1µs/call: # 79 times (49µs+0s) by Type::Tiny::Class::parent at line 149 of Type/Tiny/Class.pm, avg 620ns/call # 58 times (89µs+0s) by Type::Coercion::_preserve_type_constraint at line 111 of Type/Coercion.pm, avg 2µs/call # 46 times (79µs+0s) by Method::Generate::Accessor::_generate_populate_set at line 567 of Method/Generate/Accessor.pm, avg 2µs/call # 17 times (40µs+0s) by Method::Generate::Accessor::_generate_use_default at line 367 of Method/Generate/Accessor.pm, avg 2µs/call # 10 times (16µs+0s) by Method::Generate::Accessor::is_simple_set at line 297 of Method/Generate/Accessor.pm, avg 2µs/call # 10 times (9µs+0s) by Method::Generate::Accessor::_generate_set at line 410 of Method/Generate/Accessor.pm, avg 900ns/call # 6 times (6µs+0s) by Type::Coercion::type_constraint at line 89 of Type/Coercion.pm, avg 1µs/call # 4 times (5µs+0s) by Types::Standard::Slurpy::my_unslurpy at line 751 of Types/Standard.pm, avg 1µs/call # 3 times (4µs+0s) by Types::Standard::Dict::__inline_generator at line 100 of Types/Standard/Dict.pm, avg 1µs/call # 3 times (3µs+0s) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:826] at line 823 of Types/Standard.pm, avg 1µs/call # 3 times (2µs+0s) by Types::Standard::Dict::__inline_generator at line 103 of Types/Standard/Dict.pm, avg 667ns/call # 3 times (0s+0s) by Types::Standard::Dict::__inline_generator at line 96 of Types/Standard/Dict.pm, avg 0s/call # 2 times (4µs+0s) by Type::Tiny::find_parent at line 743, avg 2µs/call # once (4µs+0s) by Type::Tiny::type_default at line 573
q(bool) => sub { 1 },
102 q(&{}) => "_overload_coderef",
103
# spent 2.71ms (2.36+353µs) within Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:126] which was called: # once (2.36ms+353µs) by JSON::Schema::Modern::BEGIN@33 at line 42 of JSON/Schema/Modern/Error.pm
q(|) => sub {
10412µs11µs my @tc = _swap @_;
# spent 1µs making 1 call to Type::Tiny::_swap
105 if ( !_FIXED_PRECEDENCE && $_[2] ) {
106 if ( blessed $tc[0] ) {
107 if ( blessed $tc[0] eq "Type::Tiny::_HalfOp" ) {
108 my $type = $tc[0]->{type};
109 my $param = $tc[0]->{param};
110 my $op = $tc[0]->{op};
111 require Type::Tiny::Union;
112 return "Type::Tiny::_HalfOp"->new(
113 $op,
114 $param,
115 "Type::Tiny::Union"->new_by_overload( type_constraints => [ $type, $tc[1] ] ),
116 );
117 } #/ if ( blessed $tc[0] eq...)
118 } #/ if ( blessed $tc[0] )
119 elsif ( ref $tc[0] eq 'ARRAY' ) {
120 require Type::Tiny::_HalfOp;
121 return "Type::Tiny::_HalfOp"->new( '|', @tc );
122 }
123 } #/ if ( !_FIXED_PRECEDENCE...)
1241548µs require Type::Tiny::Union;
12515µs1151µs return "Type::Tiny::Union"->new_by_overload( type_constraints => \@tc );
# spent 151µs making 1 call to Type::Tiny::Union::new_by_overload
126 },
127 q(&) => sub {
128 my @tc = _swap @_;
129 if ( !_FIXED_PRECEDENCE && $_[2] ) {
130 if ( blessed $tc[0] ) {
131 if ( blessed $tc[0] eq "Type::Tiny::_HalfOp" ) {
132 my $type = $tc[0]->{type};
133 my $param = $tc[0]->{param};
134 my $op = $tc[0]->{op};
135 require Type::Tiny::Intersection;
136 return "Type::Tiny::_HalfOp"->new(
137 $op,
138 $param,
139 "Type::Tiny::Intersection"->new_by_overload( type_constraints => [ $type, $tc[1] ] ),
140 );
141 } #/ if ( blessed $tc[0] eq...)
142 } #/ if ( blessed $tc[0] )
143 elsif ( ref $tc[0] eq 'ARRAY' ) {
144 require Type::Tiny::_HalfOp;
145 return "Type::Tiny::_HalfOp"->new( '&', @tc );
146 }
147 } #/ if ( !_FIXED_PRECEDENCE...)
148 require Type::Tiny::Intersection;
149 "Type::Tiny::Intersection"->new_by_overload( type_constraints => \@tc );
150 },
151 q(~) => sub { shift->complementary_type },
152 q(==) => sub { $_[0]->equals( $_[1] ) },
153 q(!=) => sub { not $_[0]->equals( $_[1] ) },
154 q(<) => sub { my $m = $_[0]->can( 'is_subtype_of' ); $m->( _swap @_ ) },
155 q(>) => sub {
156 my $m = $_[0]->can( 'is_subtype_of' );
157 $m->( reverse _swap @_ );
158 },
159 q(<=) => sub { my $m = $_[0]->can( 'is_a_type_of' ); $m->( _swap @_ ) },
160 q(>=) => sub {
161 my $m = $_[0]->can( 'is_a_type_of' );
162 $m->( reverse _swap @_ );
163 },
164 q(eq) => sub { "$_[0]" eq "$_[1]" },
165 q(cmp) => sub { $_[2] ? ( "$_[1]" cmp "$_[0]" ) : ( "$_[0]" cmp "$_[1]" ) },
166 q(0+) => sub { $_[0]{uniq} },
167 q(/) => sub { ( _STRICT_MODE xor $_[2] ) ? $_[0] : $_[1] },
168127µs141µs);
# spent 41µs making 1 call to Type::Tiny::_install_overloads
169
170__PACKAGE__->_install_overloads(
171 q(~~) => sub { $_[0]->check( $_[1] ) },
17212µs110µs) if Type::Tiny::SUPPORT_SMARTMATCH;
# spent 10µs making 1 call to Type::Tiny::_install_overloads
173
174# Would be easy to just return sub { $self->assert_return(@_) }
175# but try to build a more efficient coderef whenever possible.
176#
177
# spent 41.6ms (1.73+39.8) within Type::Tiny::_overload_coderef which was called 220 times, avg 189µs/call: # 183 times (780µs+23.9ms) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:89] at line 89, avg 135µs/call # 37 times (953µs+15.9ms) by Type::Tiny::exportables at line 1209, avg 457µs/call
sub _overload_coderef {
17822027µs my $self = shift;
179
180 # Bypass generating a coderef if we've already got the best possible one.
181 #
182220424µs return $self->{_overload_coderef} if $self->{_overload_coderef_no_rebuild};
183
184 # Subclasses of Type::Tiny might override assert_return to do some kind
185 # of interesting thing. In that case, we can't rely on it having identical
186 # behaviour to Type::Tiny::inline_assert.
187 #
188 $self->{_overrides_assert_return} =
189 ( $self->can( 'assert_return' ) != \&assert_return )
19064261µs61418µs unless exists $self->{_overrides_assert_return};
# spent 418µs making 61 calls to Type::Tiny::can, avg 7µs/call
191
19264109µs if ( $self->{_overrides_assert_return} ) {
193 $self->{_overload_coderef} ||= do {
194 Scalar::Util::weaken( my $weak = $self );
195 sub { $weak->assert_return( @_ ) };
196 };
197 ++$self->{_overload_coderef_no_rebuild};
198 }
199 elsif ( exists( &Sub::Quote::quote_sub ) ) {
200
201 # Use `=` instead of `||=` because we want to overwrite non-Sub::Quote
202 # coderef if possible.
20327210µs8123.7ms $self->{_overload_coderef} = $self->can_be_inlined
# spent 21.7ms making 27 calls to Type::Tiny::inline_assert, avg 805µs/call # spent 1.56ms making 27 calls to Sub::Quote::quote_sub, avg 58µs/call # spent 386µs making 23 calls to Type::Tiny::can_be_inlined, avg 17µs/call # spent 32µs making 1 call to Type::Tiny::Union::can_be_inlined # spent 2µs making 3 calls to Type::Tiny::Enum::can_be_inlined, avg 667ns/call
204 ? Sub::Quote::quote_sub(
205 $self->inline_assert( '$_[0]' ),
206 )
207 : Sub::Quote::quote_sub(
208 $self->inline_assert( '$_[0]', '$type' ),
209 { '$type' => \$self },
210 );
2112726µs ++$self->{_overload_coderef_no_rebuild};
212 } #/ elsif ( exists( &Sub::Quote::quote_sub...))
213 else {
2143723µs require Eval::TypeTiny;
21537292µs14815.7ms $self->{_overload_coderef} ||= $self->can_be_inlined
# spent 7.34ms making 37 calls to Eval::TypeTiny::eval_closure, avg 198µs/call # spent 7.24ms making 37 calls to Type::Tiny::inline_assert, avg 196µs/call # spent 858µs making 37 calls to Type::Tiny::can_be_inlined, avg 23µs/call # spent 264µs making 37 calls to Type::Tiny::__ANON__[Type/Tiny.pm:100], avg 7µs/call
216 ? Eval::TypeTiny::eval_closure(
217 source => sprintf(
218 'sub { %s }', $self->inline_assert( '$_[0]', undef, no_wrapper => 1 )
219 ),
220 description => sprintf( "compiled assertion 'assert_%s'", $self ),
221 )
222 : Eval::TypeTiny::eval_closure(
223 source => sprintf(
224 'sub { %s }', $self->inline_assert( '$_[0]', '$type', no_wrapper => 1 )
225 ),
226 description => sprintf( "compiled assertion 'assert_%s'", $self ),
227 environment => { '$type' => \$self },
228 );
229 } #/ else [ if ( $self->{_overrides_assert_return...})]
230
23164287µs $self->{_overload_coderef};
232} #/ sub _overload_coderef
233
234our %ALL_TYPES;
235
23610smy $QFS;
23711µsmy $uniq = 1;
238
239
# spent 6.31ms (3.43+2.88) within Type::Tiny::new which was called 82 times, avg 77µs/call: # 37 times (1.59ms+1.18ms) by Type::Library::add_type at line 222 of Type/Library.pm, avg 75µs/call # 27 times (1.20ms+1.46ms) by Type::Tiny::create_child_type at line 1096, avg 98µs/call # 11 times (391µs+152µs) by Type::Tiny::ConstrainedObject::new at line 36 of Type/Tiny/ConstrainedObject.pm, avg 49µs/call # 4 times (172µs+50µs) by Type::Tiny::Enum::new at line 84 of Type/Tiny/Enum.pm, avg 56µs/call # once (42µs+11µs) by Type::Tiny::Union::new at line 85 of Type/Tiny/Union.pm # once (28µs+17µs) by Types::TypeTiny::TypeTiny at line 421 of Types/TypeTiny.pm # once (17µs+12µs) by Types::TypeTiny::StringLike at line 195 of Types/TypeTiny.pm
sub new {
2408225µs my $class = shift;
24182241µs my %params = ( @_ == 1 ) ? %{ $_[0] } : @_;
242
2438297µs for ( qw/ name display_name library / ) {
244246196µs $params{$_} = $params{$_} . '' if defined $params{$_};
245 }
246
2478267µs if ( exists $params{parent} ) {
248 $params{parent} =
249 ref( $params{parent} ) =~ /^Type::Tiny\b/
250 ? $params{parent}
25163368µs63138µs : Types::TypeTiny::to_TypeTiny( $params{parent} );
# spent 138µs making 63 calls to Type::Tiny::CORE:match, avg 2µs/call
252
253 _croak "Parent must be an instance of %s", __PACKAGE__
254 unless blessed( $params{parent} )
25563290µs126418µs && $params{parent}->isa( __PACKAGE__ );
# spent 360µs making 63 calls to Type::Tiny::isa, avg 6µs/call # spent 58µs making 63 calls to Scalar::Util::blessed, avg 921ns/call
256
25763126µs63140µs if ( $params{parent}->deprecated and not exists $params{deprecated} ) {
# spent 140µs making 63 calls to Type::Tiny::deprecated, avg 2µs/call
258 $params{deprecated} = 1;
259 }
260 } #/ if ( exists $params{parent...})
261
2628248µs if ( exists $params{constraint}
263 and defined $params{constraint}
264 and not ref $params{constraint} )
265 {
26656µs require Eval::TypeTiny;
26754µs my $code = $params{constraint};
268527µs5690µs $params{constraint} = Eval::TypeTiny::eval_closure(
# spent 690µs making 5 calls to Eval::TypeTiny::eval_closure, avg 138µs/call
269 source => sprintf( 'sub ($) { %s }', $code ),
270 description => "anonymous check",
271 );
272
# spent 237µs (219+18) within Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:276] which was called 30 times, avg 8µs/call: # 30 times (219µs+18µs) by Type::Tiny::inline_check at line 895, avg 8µs/call
$params{inlined} ||= sub {
2733016µs my ( $type ) = @_;
2743061µs my $inlined = $_ eq '$_' ? "do { $code }" : "do { local \$_ = $_; $code }";
27530125µs3018µs $type->has_parent ? ( undef, $inlined ) : $inlined;
# spent 18µs making 30 calls to Type::Tiny::has_parent, avg 600ns/call
276 }
277558µs5140µs if ( !exists $params{parent} or $params{parent}->can_be_inlined );
# spent 140µs making 5 calls to Type::Tiny::can_be_inlined, avg 28µs/call
278 } #/ if ( exists $params{constraint...})
279
280 # canonicalize to a boolean
2818298µs $params{deprecated} = !!$params{deprecated};
282
2838248µs $params{name} = "__ANON__" unless exists $params{name};
2848265µs $params{uniq} = $uniq++;
285
2868253µs if ( $params{name} ne "__ANON__" ) {
287
288 # First try a fast ASCII-only expression, but fall back to Unicode
289 $params{name} =~ /^_{0,2}[A-Z][A-Za-z0-9_]+$/sm
290 or eval q( use 5.008; $params{name} =~ /^_{0,2}\p{Lu}[\p{L}0-9_]+$/sm )
29139259µs39156µs or _croak '"%s" is not a valid type name', $params{name};
# spent 156µs making 39 calls to Type::Tiny::CORE:match, avg 4µs/call
292 }
293
2948222µs if ( exists $params{coercion} and !ref $params{coercion} and $params{coercion} )
295 {
296 $params{parent}->has_coercion
297 or _croak
298 "coercion => 1 requires type to have a direct parent with a coercion";
299
300 $params{coercion} = $params{parent}->coercion->type_coercion_map;
301 }
302
3038241µs if ( !exists $params{inlined}
304 and exists $params{constraint}
305 and ( !exists $params{parent} or $params{parent}->can_be_inlined )
306 and $QFS ||= "Sub::Quote"->can( "quoted_from_sub" ) )
307 {
308 my ( undef, $perlstring, $captures ) = @{ $QFS->( $params{constraint} ) || [] };
309
310 $params{inlined} = sub {
311 my ( $self, $var ) = @_;
312 my $code = Sub::Quote::inlinify(
313 $perlstring,
314 $var,
315 $var eq q($_) ? '' : "local \$_ = $var;",
316 1,
317 );
318 $code = sprintf( '%s and %s', $self->parent->inline_check( $var ), $code )
319 if $self->has_parent;
320 return $code;
321 }
322 if $perlstring && !$captures;
323 } #/ if ( !exists $params{inlined...})
324
3258295µs my $self = bless \%params, $class;
326
3278272µs unless ( $params{tmp} ) {
32882220µs my $uniq = $self->{uniq};
329
33082107µs $ALL_TYPES{$uniq} = $self;
33182302µs8279µs Scalar::Util::weaken( $ALL_TYPES{$uniq} );
# spent 79µs making 82 calls to Scalar::Util::weaken, avg 963ns/call
332
3338222µs my $tmp = $self;
33482176µs8248µs Scalar::Util::weaken( $tmp );
# spent 48µs making 82 calls to Scalar::Util::weaken, avg 585ns/call
33582382µs821.03ms $Moo::HandleMoose::TYPE_MAP{ $self->_stringify_no_magic } = sub { $tmp };
# spent 1.03ms making 82 calls to Type::Tiny::_stringify_no_magic, avg 13µs/call
336 } #/ unless ( $params{tmp} )
337
33882113µs if ( ref( $params{coercion} ) eq q(CODE) ) {
339 require Types::Standard;
340 my $code = delete( $params{coercion} );
341 $self->{coercion} = $self->_build_coercion;
342 $self->coercion->add_type_coercions( Types::Standard::Any(), $code );
343 }
344 elsif ( ref( $params{coercion} ) eq q(ARRAY) ) {
345 my $arr = delete( $params{coercion} );
346 $self->{coercion} = $self->_build_coercion;
347 $self->coercion->add_type_coercions( @$arr );
348 }
349
350 # Documenting this here because it's too weird to be in the pod.
351 # There's a secret attribute called "_build_coercion" which takes a
352 # coderef. If present, then when $type->coercion is lazy built,
353 # the blank Type::Coercion object gets passed to the coderef,
354 # allowing the coderef to manipulate it a little. This is used by
355 # Types::TypeTiny to allow it to build a coercion for the TypeTiny
356 # type constraint without needing to load Type::Coercion yet.
357
3588226µs if ( $params{my_methods} ) {
35943µs require Eval::TypeTiny;
360 Scalar::Util::reftype( $params{my_methods}{$_} ) eq 'CODE'
361 and Eval::TypeTiny::set_subname(
362 sprintf( "%s::my_%s", $self->qualified_name, $_ ),
363 $params{my_methods}{$_},
364431µs1336µs ) for keys %{ $params{my_methods} };
# spent 25µs making 2 calls to Eval::TypeTiny::set_subname, avg 12µs/call # spent 7µs making 2 calls to Type::Tiny::qualified_name, avg 4µs/call # spent 4µs making 9 calls to Scalar::Util::reftype, avg 444ns/call
365 } #/ if ( $params{my_methods...})
366
36782170µs return $self;
368} #/ sub new
369
370
# spent 27µs (20+7) within Type::Tiny::DESTROY which was called: # once (20µs+7µs) by JSON::Schema::Modern::add_vocabulary at line 708 of JSON/Schema/Modern.pm
sub DESTROY {
37111µs my $self = shift;
372114µs delete( $ALL_TYPES{ $self->{uniq} } );
37313µs17µs delete( $Moo::HandleMoose::TYPE_MAP{ $self->_stringify_no_magic } );
# spent 7µs making 1 call to Type::Tiny::_stringify_no_magic
37412µs return;
375}
376
377sub _clone {
378 my $self = shift;
379 my %opts;
380 $opts{$_} = $self->{$_} for qw< name display_name message >;
381 $self->create_child_type( %opts );
382}
383
384
# spent 1.04ms (887µs+150µs) within Type::Tiny::_stringify_no_magic which was called 83 times, avg 12µs/call: # 82 times (881µs+149µs) by Type::Tiny::new at line 335, avg 13µs/call # once (6µs+1000ns) by Type::Tiny::DESTROY at line 373
sub _stringify_no_magic {
385831.08ms249150µs sprintf(
# spent 66µs making 83 calls to Scalar::Util::blessed, avg 795ns/call # spent 56µs making 83 calls to Scalar::Util::reftype, avg 675ns/call # spent 28µs making 83 calls to Scalar::Util::refaddr, avg 337ns/call
386 '%s=%s(0x%08x)', blessed( $_[0] ), Scalar::Util::reftype( $_[0] ),
387 Scalar::Util::refaddr( $_[0] )
388 );
389}
390
391our $DD;
392
393sub _dd {
394 @_ = $_ unless @_;
395 my ( $value ) = @_;
396
397 goto $DD if ref( $DD ) eq q(CODE);
398
399 require B;
400
401 !defined $value ? 'Undef'
402 : !ref $value ? sprintf( 'Value %s', B::perlstring( $value ) )
403 : do {
404 my $N = 0+ ( defined( $DD ) ? $DD : 72 );
405 require Data::Dumper;
406 local $Data::Dumper::Indent = 0;
407 local $Data::Dumper::Useqq = 1;
408 local $Data::Dumper::Terse = 1;
409 local $Data::Dumper::Sortkeys = 1;
410 local $Data::Dumper::Maxdepth = 2;
411 my $str;
412 eval {
413 $str = Data::Dumper::Dumper( $value );
414 $str = substr( $str, 0, $N - 12 ) . '...' . substr( $str, -1, 1 )
415 if length( $str ) >= $N;
416 1;
417 } or do { $str = 'which cannot be dumped' };
418 "Reference $str";
419 } #/ do
420} #/ sub _dd
421
422
# spent 14.0ms (5.96+8.06) within Type::Tiny::_loose_to_TypeTiny which was called 1691 times, avg 8µs/call: # 794 times (2.88ms+3.83ms) by Type::Tiny::strictly_equals at line 686, avg 8µs/call # 703 times (2.20ms+3.20ms) by Type::Tiny::is_strictly_subtype_of at line 693, avg 8µs/call # 191 times (873µs+1.02ms) by Type::Tiny::is_strictly_a_type_of at line 711, avg 10µs/call # 3 times (11µs+16µs) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:602] at line 589, avg 9µs/call
sub _loose_to_TypeTiny {
4231691432µs my $caller = caller( 1 ); # assumption
424 map +(
425 ref( $_ )
426 ? Types::TypeTiny::to_TypeTiny( $_ )
42716914.60ms33828.06ms : do { require Type::Utils; Type::Utils::dwim_type( $_, for => $caller ) }
# spent 8.06ms making 3382 calls to Types::TypeTiny::to_TypeTiny, avg 2µs/call
428 ), @_;
429}
430
431297641µs
# spent 308µs within Type::Tiny::name which was called 297 times, avg 1µs/call: # 129 times (126µs+0s) by Type::Tiny::is_anon at line 727, avg 977ns/call # 46 times (47µs+0s) by Type::Tiny::qualified_name at line 722, avg 1µs/call # 44 times (60µs+0s) by Type::Tiny::_build_display_name at line 487, avg 1µs/call # 40 times (53µs+0s) by Type::Library::_exporter_expand_sub at line 72 of Type/Library.pm, avg 1µs/call # 38 times (22µs+0s) by Type::Tiny::exportables at line 1187, avg 579ns/call
sub name { $_[0]{name} }
432372837µs45207µs
# spent 730µs (524+206) within Type::Tiny::display_name which was called 372 times, avg 2µs/call: # 372 times (524µs+206µs) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:100] at line 97, avg 2µs/call
sub display_name { $_[0]{display_name} ||= $_[0]->_build_display_name }
# spent 191µs making 44 calls to Type::Tiny::_build_display_name, avg 4µs/call # spent 16µs making 1 call to Type::Tiny::Union::_build_display_name
43311391.64ms
# spent 680µs within Type::Tiny::parent which was called 1139 times, avg 597ns/call: # 981 times (575µs+0s) by Type::Tiny::is_strictly_subtype_of at line 698, avg 586ns/call # 60 times (24µs+0s) by Type::Tiny::can_be_inlined at line 877, avg 400ns/call # 32 times (37µs+0s) by Type::Tiny::inline_check at line 899, avg 1µs/call # 20 times (12µs+0s) by Type::Tiny::inline_check at line 889, avg 600ns/call # 14 times (11µs+0s) by Type::Tiny::_build_compiled_check at line 532, avg 786ns/call # 12 times (5µs+0s) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:659] at line 629, avg 417ns/call # 6 times (7µs+0s) by Type::Tiny::_lookup_my_method at line 1369, avg 1µs/call # 6 times (3µs+0s) by Types::Standard::Dict::__inline_generator at line 103 of Types/Standard/Dict.pm, avg 500ns/call # 3 times (1µs+0s) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:659] at line 645, avg 333ns/call # 2 times (4µs+0s) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:945] at line 940 of Types/Standard.pm, avg 2µs/call # 2 times (0s+0s) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:750] at line 750 of Types/Standard.pm, avg 0s/call # once (1µs+0s) by Type::Tiny::type_default at line 573
sub parent { $_[0]{parent} }
43415512.31ms1517µs
# spent 1.05ms (1.04+17µs) within Type::Tiny::constraint which was called 1551 times, avg 680ns/call: # 1551 times (1.04ms+17µs) by Type::Tiny::_is_null_constraint at line 495, avg 680ns/call
sub constraint { $_[0]{constraint} ||= $_[0]->_build_constraint }
# spent 17µs making 15 calls to Type::Tiny::_build_constraint, avg 1µs/call
435
436
# spent 22.3ms (423µs+21.9) within Type::Tiny::compiled_check which was called 169 times, avg 132µs/call: # 58 times (131µs+7.28ms) by Type::Coercion::_preserve_type_constraint at line 111 of Type/Coercion.pm, avg 128µs/call # 37 times (175µs+5.18ms) by Type::Tiny::exportables at line 1203, avg 145µs/call # 24 times (15µs+0s) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:659] at line 632, avg 625ns/call # 14 times (24µs+-24µs) by Type::Tiny::_build_compiled_check at line 532, avg 0s/call # 8 times (48µs+8.54ms) by Types::Standard::HashRef::__constraint_generator at line 32 of Types/Standard/HashRef.pm, avg 1.07ms/call # 8 times (7µs+0s) by Types::Standard::HashRef::__inline_generator at line 58 of Types/Standard/HashRef.pm, avg 875ns/call # 6 times (5µs+0s) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:659] at line 609, avg 833ns/call # 6 times (1µs+0s) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:659] at line 617, avg 167ns/call # 4 times (16µs+947µs) by Types::Standard::ArrayRef::__constraint_generator at line 36 of Types/Standard/ArrayRef.pm, avg 241µs/call # 4 times (1µs+0s) by Types::Standard::ArrayRef::__inline_generator at line 93 of Types/Standard/ArrayRef.pm, avg 250ns/call
sub compiled_check {
437169575µs6021.9ms $_[0]{compiled_type_constraint} ||= $_[0]->_build_compiled_check;
# spent 19.9ms making 56 calls to Type::Tiny::_build_compiled_check, avg 355µs/call # spent 2.04ms making 4 calls to Type::Tiny::Enum::_build_compiled_check, avg 511µs/call
438}
43958211µs5813.9ms
# spent 14.0ms (198µs+13.8) within Type::Tiny::coercion which was called 58 times, avg 242µs/call: # 37 times (96µs+1.79ms) by Type::Library::make_immutable at line 318 of Type/Library.pm, avg 51µs/call # 14 times (76µs+9.05ms) by Type::Tiny::parameterize at line 1082, avg 652µs/call # 3 times (16µs+-16µs) by Type::Tiny::has_coercion at line 471, avg 0s/call # 2 times (4µs+2µs) by Type::Tiny::exportables at line 1220, avg 3µs/call # once (3µs+3.02ms) by JSON::Schema::Modern::BEGIN@31 at line 234 of Types/Standard.pm # once (3µs+0s) by Type::Library::make_immutable at line 319 of Type/Library.pm
sub coercion { $_[0]{coercion} ||= $_[0]->_build_coercion }
# spent 16.9ms making 54 calls to Type::Tiny::_build_coercion, avg 313µs/call, recursion: max depth 2, sum of overlapping time 3.06ms # spent 2µs making 4 calls to Type::Coercion::__ANON__[Type/Coercion.pm:28], avg 500ns/call
440sub message { $_[0]{message} }
441sub library { $_[0]{library} }
442529818µs
# spent 388µs within Type::Tiny::inlined which was called 529 times, avg 733ns/call: # 529 times (388µs+0s) by Type::Tiny::inline_check at line 895, avg 733ns/call
sub inlined { $_[0]{inlined} }
443103273µs
# spent 185µs within Type::Tiny::deprecated which was called 103 times, avg 2µs/call: # 63 times (140µs+0s) by Type::Tiny::new at line 257, avg 2µs/call # 40 times (45µs+0s) by Type::Library::_exporter_install_sub at line 133 of Type/Library.pm, avg 1µs/call
sub deprecated { $_[0]{deprecated} }
4443470µs
# spent 53µs within Type::Tiny::constraint_generator which was called 34 times, avg 2µs/call: # 34 times (53µs+0s) by Type::Tiny::parameterize at line 1044, avg 2µs/call
sub constraint_generator { $_[0]{constraint_generator} }
4452056µs
# spent 46µs within Type::Tiny::inline_generator which was called 20 times, avg 2µs/call: # 20 times (46µs+0s) by Type::Tiny::parameterize at line 1057, avg 2µs/call
sub inline_generator { $_[0]{inline_generator} }
4462268µs518µs
# spent 68µs (50+18) within Type::Tiny::name_generator which was called 22 times, avg 3µs/call: # 20 times (44µs+15µs) by Type::Tiny::parameterize at line 1050, avg 3µs/call # 2 times (6µs+3µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:737] at line 735 of Types/Standard.pm, avg 4µs/call
sub name_generator { $_[0]{name_generator} ||= $_[0]->_build_name_generator }
# spent 18µs making 5 calls to Type::Tiny::_build_name_generator, avg 4µs/call
4473132µs
# spent 5µs within Type::Tiny::coercion_generator which was called 3 times, avg 2µs/call: # 3 times (5µs+0s) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:1073] at line 1070, avg 2µs/call
sub coercion_generator { $_[0]{coercion_generator} }
448521µs
# spent 18µs within Type::Tiny::parameters which was called 5 times, avg 4µs/call: # 3 times (4µs+0s) by Types::Standard::Dict::__inline_generator at line 103 of Types/Standard/Dict.pm, avg 1µs/call # 2 times (14µs+0s) by Type::Tiny::type_parameter at line 1581, avg 7µs/call
sub parameters { $_[0]{parameters} }
449sub moose_type { $_[0]{moose_type} ||= $_[0]->_build_moose_type }
450sub mouse_type { $_[0]{mouse_type} ||= $_[0]->_build_mouse_type }
451sub deep_explanation { $_[0]{deep_explanation} }
4521837µs22µs
# spent 28µs (26+2) within Type::Tiny::my_methods which was called 18 times, avg 2µs/call: # 18 times (26µs+2µs) by Type::Tiny::_lookup_my_method at line 1365, avg 2µs/call
sub my_methods { $_[0]{my_methods} ||= $_[0]->_build_my_methods }
# spent 2µs making 2 calls to Type::Tiny::_build_my_methods, avg 1µs/call
453sub sorter { $_[0]{sorter} }
454
45536485.58ms
# spent 2.23ms within Type::Tiny::has_parent which was called 3648 times, avg 613ns/call: # 919 times (703µs+0s) by Type::Tiny::can_be_inlined at line 877, avg 765ns/call # 859 times (461µs+0s) by Type::Tiny::can_be_inlined at line 879, avg 537ns/call # 639 times (422µs+0s) by Type::Tiny::is_strictly_subtype_of at line 697, avg 660ns/call # 575 times (289µs+0s) by Type::Tiny::inline_check at line 889, avg 503ns/call # 555 times (295µs+0s) by Type::Tiny::inline_check at line 891, avg 532ns/call # 32 times (15µs+0s) by Type::Tiny::inline_check at line 897, avg 469ns/call # 30 times (18µs+0s) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:276] at line 275, avg 600ns/call # 15 times (21µs+0s) by Type::Tiny::_build_compiled_check at line 532, avg 1µs/call # 12 times (6µs+0s) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:659] at line 635, avg 500ns/call # 6 times (1µs+0s) by Type::Tiny::_lookup_my_method at line 1369, avg 167ns/call # 3 times (3µs+0s) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:659] at line 628, avg 1µs/call # 3 times (1µs+0s) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:659] at line 644, avg 333ns/call
sub has_parent { exists $_[0]{parent} }
456sub has_library { exists $_[0]{library} }
4578041.32ms
# spent 541µs within Type::Tiny::has_inlined which was called 804 times, avg 673ns/call: # 804 times (541µs+0s) by Type::Tiny::can_be_inlined at line 881, avg 673ns/call
sub has_inlined { exists $_[0]{inlined} }
458106303µs
# spent 192µs within Type::Tiny::has_constraint_generator which was called 106 times, avg 2µs/call: # 106 times (192µs+0s) by Type::Tiny::is_parameterizable at line 998, avg 2µs/call
sub has_constraint_generator { exists $_[0]{constraint_generator} }
4592042µs
# spent 22µs within Type::Tiny::has_inline_generator which was called 20 times, avg 1µs/call: # 20 times (22µs+0s) by Type::Tiny::parameterize at line 1057, avg 1µs/call
sub has_inline_generator { exists $_[0]{inline_generator} }
46054153µs
# spent 56µs within Type::Tiny::has_coercion_generator which was called 54 times, avg 1µs/call: # 34 times (28µs+0s) by Type::Tiny::parameterize at line 1082, avg 824ns/call # 20 times (28µs+0s) by Type::Tiny::parameterize at line 1066, avg 1µs/call
sub has_coercion_generator { exists $_[0]{coercion_generator} }
46135µs
# spent 4µs within Type::Tiny::has_parameters which was called 3 times, avg 1µs/call: # 3 times (4µs+0s) by Type::Tiny::is_parameterized at line 1002, avg 1µs/call
sub has_parameters { exists $_[0]{parameters} }
462sub has_message { defined $_[0]{message} }
463sub has_deep_explanation { exists $_[0]{deep_explanation} }
464sub has_sorter { exists $_[0]{sorter} }
465
466sub _default_message {
467 $_[0]{_default_message} ||= $_[0]->_build_default_message;
468}
469
470
# spent 2.83ms (373µs+2.46) within Type::Tiny::has_coercion which was called 85 times, avg 33µs/call: # 38 times (71µs+3µs) by Type::Tiny::exportables at line 1220, avg 2µs/call # 37 times (238µs+86µs) by Type::Library::make_immutable at line 319 of Type/Library.pm, avg 9µs/call # 2 times (19µs+2.40ms) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:732] at line 729 of Types/Standard.pm, avg 1.21ms/call # 2 times (9µs+4µs) by Type::Tiny::Union::new at line 86 of Type/Tiny/Union.pm, avg 6µs/call # 2 times (14µs+-14µs) by Types::Standard::Dict::__coercion_generator at line 257 of Types/Standard/Dict.pm, avg 0s/call # 2 times (6µs+-6µs) by Types::Standard::Dict::__coercion_generator at line 258 of Types/Standard/Dict.pm, avg 0s/call # 2 times (16µs+-16µs) by Types::Standard::HashRef::__coercion_generator at line 103 of Types/Standard/HashRef.pm, avg 0s/call
sub has_coercion {
4718534µs30s $_[0]->coercion if $_[0]{_build_coercion}; # trigger auto build thing
# spent 3.08ms making 3 calls to Type::Tiny::coercion, avg 1.03ms/call, recursion: max depth 2, sum of overlapping time 3.08ms
47285302µs96106µs $_[0]{coercion} and !!@{ $_[0]{coercion}->type_coercion_map };
# spent 77µs making 48 calls to Type::Coercion::type_coercion_map, avg 2µs/call # spent 29µs making 48 calls to Type::Coercion::__ANON__[Type/Coercion.pm:28], avg 604ns/call
473}
474
475sub _assert_coercion {
476 my $self = shift;
477 return $self->coercion if $self->{_build_coercion}; # trigger auto build thing
478 _croak "No coercion for this type constraint"
479 unless $self->has_coercion
480 && @{ $self->coercion->type_coercion_map };
481 $self->coercion;
482}
483
48411µsmy $null_constraint = sub { !!1 };
485
486
# spent 191µs (131+60) within Type::Tiny::_build_display_name which was called 44 times, avg 4µs/call: # 44 times (131µs+60µs) by Type::Tiny::display_name at line 432, avg 4µs/call
sub _build_display_name {
48744131µs4460µs shift->name;
# spent 60µs making 44 calls to Type::Tiny::name, avg 1µs/call
488}
489
490
# spent 17µs within Type::Tiny::_build_constraint which was called 15 times, avg 1µs/call: # 15 times (17µs+0s) by Type::Tiny::constraint at line 434, avg 1µs/call
sub _build_constraint {
4911544µs return $null_constraint;
492}
493
494
# spent 4.38ms (3.33+1.06) within Type::Tiny::_is_null_constraint which was called 1551 times, avg 3µs/call: # 860 times (1.87ms+552µs) by Type::Tiny::can_be_inlined at line 877, avg 3µs/call # 547 times (1.11ms+266µs) by Type::Tiny::inline_check at line 889, avg 3µs/call # 59 times (107µs+35µs) by Type::Tiny::can_be_inlined at line 879, avg 2µs/call # 50 times (152µs+184µs) by Type::Tiny::_build_compiled_check at line 532, avg 7µs/call # 28 times (75µs+11µs) by Type::Tiny::inline_check at line 891, avg 3µs/call # 6 times (10µs+5µs) by Type::Tiny::find_constraining_type at line 558, avg 2µs/call # once (5µs+2µs) by Type::Tiny::type_default at line 573
sub _is_null_constraint {
49515513.40ms15511.05ms shift->constraint == $null_constraint;
# spent 1.05ms making 1551 calls to Type::Tiny::constraint, avg 680ns/call
496}
497
498
# spent 13.9ms (3.47+10.4) within Type::Tiny::_build_coercion which was called 54 times, avg 256µs/call: # 54 times (3.47ms+10.4ms) by Type::Tiny::coercion at line 439, avg 256µs/call
sub _build_coercion {
49954494µs require Type::Coercion;
5005414µs my $self = shift;
5015442µs my %opts = ( type_constraint => $self );
50254228µs91505µs $opts{display_name} = "to_$self" unless $self->is_anon;
# spent 253µs making 37 calls to Type::Tiny::__ANON__[Type/Tiny.pm:100], avg 7µs/call # spent 252µs making 54 calls to Type::Tiny::is_anon, avg 5µs/call
50354123µs549.00ms my $coercion = "Type::Coercion"->new( %opts );
# spent 9.00ms making 54 calls to Type::Coercion::new, avg 167µs/call
5045441µs53.80ms $self->{_build_coercion}->( $coercion ) if ref $self->{_build_coercion};
# spent 2.44ms making 2 calls to Types::Standard::__ANON__[Types/Standard.pm:732], avg 1.22ms/call # spent 1.36ms making 3 calls to Type::Tiny::__ANON__[Type/Tiny.pm:1073], avg 454µs/call
50554124µs $coercion;
506}
507
508sub _build_default_message {
509 my $self = shift;
510 $self->{is_using_default_message} = 1;
511 return sub { sprintf '%s did not pass type constraint', _dd( $_[0] ) }
512 if "$self" eq "__ANON__";
513 my $name = "$self";
514 return sub {
515 sprintf '%s did not pass type constraint "%s"', _dd( $_[0] ), $name;
516 };
517} #/ sub _build_default_message
518
519
# spent 18µs within Type::Tiny::_build_name_generator which was called 5 times, avg 4µs/call: # 5 times (18µs+0s) by Type::Tiny::name_generator at line 446, avg 4µs/call
sub _build_name_generator {
52051µs my $self = shift;
521
# spent 827µs (313+514) within Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:524] which was called 16 times, avg 52µs/call: # 14 times (289µs+466µs) by Type::Tiny::parameterize at line 1050, avg 54µs/call # 2 times (24µs+48µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:737] at line 735 of Types/Standard.pm, avg 36µs/call
return sub {
52216255µs66584µs defined && s/[\x00-\x1F]//smg for ( my ( $s, @a ) = @_ );
# spent 345µs making 33 calls to Type::Tiny::CORE:subst, avg 10µs/call # spent 239µs making 33 calls to Type::Tiny::__ANON__[Type/Tiny.pm:100], avg 7µs/call
52316137µs33169µs sprintf( '%s[%s]', $s, join q[,], map !defined() ? 'undef' : !ref() && /\W/ ? B::perlstring($_) : $_, @a );
# spent 169µs making 33 calls to Type::Tiny::__ANON__[Type/Tiny.pm:100], avg 5µs/call
524522µs };
525}
526
527
# spent 21.2ms (1.10+20.1) within Type::Tiny::_build_compiled_check which was called 62 times, avg 342µs/call: # 56 times (977µs+18.9ms) by Type::Tiny::compiled_check at line 437, avg 355µs/call # 4 times (88µs+848µs) by Type::Tiny::Enum::_build_compiled_check at line 198 of Type/Tiny/Enum.pm, avg 234µs/call # 2 times (32µs+329µs) by Type::Tiny::check at line 758, avg 180µs/call
sub _build_compiled_check {
5286218µs my $self = shift;
529
5306222µs local our $AvoidCallbacks = 0;
531
53262181µs105382µs if ( $self->_is_null_constraint and $self->has_parent ) {
# spent 336µs making 50 calls to Type::Tiny::_is_null_constraint, avg 7µs/call # spent 21µs making 15 calls to Type::Tiny::has_parent, avg 1µs/call # spent 11µs making 14 calls to Type::Tiny::parent, avg 786ns/call # spent 8µs making 7 calls to Type::Tiny::Class::_is_null_constraint, avg 1µs/call # spent 4µs making 4 calls to Type::Tiny::Enum::_is_null_constraint, avg 1µs/call # spent 2µs making 1 call to Type::Tiny::Duck::_is_null_constraint # spent 24µs making 14 calls to Type::Tiny::compiled_check, avg 2µs/call, recursion: max depth 1, sum of overlapping time 24µs
533 return $self->parent->compiled_check;
534 }
535
5364844µs require Eval::TypeTiny;
53748652µs19219.7ms return Eval::TypeTiny::eval_closure(
# spent 9.79ms making 44 calls to Type::Tiny::inline_check, avg 223µs/call # spent 8.58ms making 48 calls to Eval::TypeTiny::eval_closure, avg 179µs/call # spent 702µs making 48 calls to Type::Tiny::__ANON__[Type/Tiny.pm:100], avg 15µs/call # spent 560µs making 44 calls to Type::Tiny::can_be_inlined, avg 13µs/call # spent 61µs making 4 calls to Type::Tiny::Enum::inline_check, avg 15µs/call # spent 4µs making 4 calls to Type::Tiny::Enum::can_be_inlined, avg 1µs/call
538 source => sprintf( 'sub ($) { %s }', $self->inline_check( '$_[0]' ) ),
539 description => sprintf( "compiled check '%s'", $self ),
540 ) if $self->can_be_inlined;
541
542 my @constraints;
543 push @constraints, $self->parent->compiled_check if $self->has_parent;
544 push @constraints, $self->constraint if !$self->_is_null_constraint;
545 return $null_constraint unless @constraints;
546
547 return sub ($) {
548 local $_ = $_[0];
549 for my $c ( @constraints ) {
550 return unless $c->( @_ );
551 }
552 return !!1;
553 };
554} #/ sub _build_compiled_check
555
556
# spent 27µs (12+15) within Type::Tiny::find_constraining_type which was called 6 times, avg 4µs/call: # 3 times (8µs+9µs) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:659] at line 613, avg 6µs/call # 3 times (4µs+6µs) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:659] at line 614, avg 3µs/call
sub find_constraining_type {
55761µs my $self = shift;
55865µs615µs if ( $self->_is_null_constraint and $self->has_parent ) {
# spent 15µs making 6 calls to Type::Tiny::_is_null_constraint, avg 2µs/call
559 return $self->parent->find_constraining_type;
560 }
56168µs $self;
562}
563
564
# spent 114µs (102+12) within Type::Tiny::type_default which was called 17 times, avg 7µs/call: # 8 times (22µs+0s) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:532] at line 530 of Types/Standard.pm, avg 3µs/call # 4 times (15µs+0s) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:510] at line 508 of Types/Standard.pm, avg 4µs/call # 2 times (5µs+0s) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:737] at line 735 of Types/Standard.pm, avg 2µs/call # once (52µs+18µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:661] at line 660 of Types/Standard.pm # once (2µs+0s) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:704] at line 703 of Types/Standard.pm # once (6µs+-6µs) by Type::Tiny::type_default at line 573
sub type_default {
565178µs my ( $self, @args ) = @_;
5661711µs if ( exists $self->{type_default} ) {
567161µs if ( @args ) {
568 my $td = $self->{type_default};
569 return sub { local $_ = \@args; &$td; };
570 }
5711650µs return $self->{type_default};
572 }
573115µs412µs if ( my $parent = $self->parent ) {
# spent 7µs making 1 call to Type::Tiny::_is_null_constraint # spent 4µs making 1 call to Type::Tiny::__ANON__[Type/Tiny.pm:101] # spent 1µs making 1 call to Type::Tiny::parent # spent 6µs making 1 call to Type::Tiny::type_default, recursion: max depth 1, sum of overlapping time 6µs
574 return $parent->type_default( @args ) if $self->_is_null_constraint;
575 }
576 return undef;
577}
578
579our @CMP;
580
581sub CMP_SUPERTYPE () { -1 }
582sub CMP_EQUAL () { 0 }
583sub CMP_EQUIVALENT () { '0E0' }
584sub CMP_SUBTYPE () { 1 }
585sub CMP_UNKNOWN () { ''; }
586
587# avoid getting mixed up with cmp operator at compile time
588
# spent 4.97ms (64µs+4.91) within Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:602] which was called 3 times, avg 1.66ms/call: # 3 times (64µs+4.91ms) by Type::Tiny::is_a_type_of at line 680, avg 1.66ms/call
*cmp = sub {
58933µs327µs my ( $A, $B ) = _loose_to_TypeTiny( $_[0], $_[1] );
# spent 27µs making 3 calls to Type::Tiny::_loose_to_TypeTiny, avg 9µs/call
590313µs626µs return unless blessed( $A ) && $A->isa( "Type::Tiny" );
# spent 24µs making 3 calls to Type::Tiny::isa, avg 8µs/call # spent 2µs making 3 calls to Scalar::Util::blessed, avg 667ns/call
591323µs69µs return unless blessed( $B ) && $B->isa( "Type::Tiny" );
# spent 5µs making 3 calls to Type::Tiny::isa, avg 2µs/call # spent 4µs making 3 calls to Scalar::Util::blessed, avg 1µs/call
59233µs for my $comparator ( @CMP ) {
59334µs34.84ms my $result = $comparator->( $A, $B );
# spent 4.84ms making 3 calls to Type::Tiny::__ANON__[Type/Tiny.pm:659], avg 1.61ms/call
59432µs next if $result eq CMP_UNKNOWN;
59531µs if ( $result eq CMP_EQUIVALENT ) {
596 my $prefer = @_ == 3 ? $_[2] : CMP_EQUAL;
597 return $prefer;
598 }
599311µs return $result;
600 }
601 return CMP_UNKNOWN;
60213µs};
603
604
# spent 4.84ms (257µs+4.59) within Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:659] which was called 3 times, avg 1.61ms/call: # 3 times (257µs+4.59ms) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:602] at line 593, avg 1.61ms/call
push @CMP, sub {
60532µs my ( $A, $B ) = @_;
606310µs63µs return CMP_EQUAL
# spent 3µs making 6 calls to Scalar::Util::refaddr, avg 500ns/call
607 if Scalar::Util::refaddr( $A ) == Scalar::Util::refaddr( $B );
608
609310µs126µs return CMP_EQUIVALENT
# spent 5µs making 6 calls to Type::Tiny::compiled_check, avg 833ns/call # spent 1µs making 6 calls to Scalar::Util::refaddr, avg 167ns/call
610 if Scalar::Util::refaddr( $A->compiled_check ) ==
611 Scalar::Util::refaddr( $B->compiled_check );
612
61335µs317µs my $A_stem = $A->find_constraining_type;
# spent 17µs making 3 calls to Type::Tiny::find_constraining_type, avg 6µs/call
61432µs310µs my $B_stem = $B->find_constraining_type;
# spent 10µs making 3 calls to Type::Tiny::find_constraining_type, avg 3µs/call
61538µs62µs return CMP_EQUIVALENT
# spent 2µs making 6 calls to Scalar::Util::refaddr, avg 333ns/call
616 if Scalar::Util::refaddr( $A_stem ) == Scalar::Util::refaddr( $B_stem );
61739µs124µs return CMP_EQUIVALENT
# spent 3µs making 6 calls to Scalar::Util::refaddr, avg 500ns/call # spent 1µs making 6 calls to Type::Tiny::compiled_check, avg 167ns/call
618 if Scalar::Util::refaddr( $A_stem->compiled_check ) ==
619 Scalar::Util::refaddr( $B_stem->compiled_check );
620
62139µs121.03ms if ( $A_stem->can_be_inlined and $B_stem->can_be_inlined ) {
# spent 985µs making 6 calls to Type::Tiny::inline_check, avg 164µs/call # spent 42µs making 6 calls to Type::Tiny::can_be_inlined, avg 7µs/call
622 return CMP_EQUIVALENT
623 if $A_stem->inline_check( '$WOLFIE' ) eq $B_stem->inline_check( '$WOLFIE' );
624 }
625
626 A_IS_SUBTYPE: {
62762µs my $A_prime = $A_stem;
62835µs33µs while ( $A_prime->has_parent ) {
# spent 3µs making 3 calls to Type::Tiny::has_parent, avg 1µs/call
629124µs125µs $A_prime = $A_prime->parent;
# spent 5µs making 12 calls to Type::Tiny::parent, avg 417ns/call
6301242µs2419µs return CMP_SUBTYPE
# spent 19µs making 24 calls to Scalar::Util::refaddr, avg 792ns/call
631 if Scalar::Util::refaddr( $A_prime ) == Scalar::Util::refaddr( $B_stem );
6321234µs4819µs return CMP_SUBTYPE
# spent 15µs making 24 calls to Type::Tiny::compiled_check, avg 625ns/call # spent 4µs making 24 calls to Scalar::Util::refaddr, avg 167ns/call
633 if Scalar::Util::refaddr( $A_prime->compiled_check ) ==
634 Scalar::Util::refaddr( $B_stem->compiled_check );
6351232µs603.47ms if ( $A_prime->can_be_inlined and $B_stem->can_be_inlined ) {
# spent 3.23ms making 24 calls to Type::Tiny::inline_check, avg 134µs/call # spent 234µs making 24 calls to Type::Tiny::can_be_inlined, avg 10µs/call # spent 6µs making 12 calls to Type::Tiny::has_parent, avg 500ns/call
636 return CMP_SUBTYPE
637 if $A_prime->inline_check( '$WOLFIE' ) eq $B_stem->inline_check( '$WOLFIE' );
638 }
639 } #/ while ( $A_prime->has_parent)
640 } #/ A_IS_SUBTYPE:
641
642 B_IS_SUBTYPE: {
64362µs my $B_prime = $B_stem;
64432µs31µs while ( $B_prime->has_parent ) {
# spent 1µs making 3 calls to Type::Tiny::has_parent, avg 333ns/call
64531µs31µs $B_prime = $B_prime->parent;
# spent 1µs making 3 calls to Type::Tiny::parent, avg 333ns/call
646318µs61µs return CMP_SUPERTYPE
# spent 1µs making 6 calls to Scalar::Util::refaddr, avg 167ns/call
647 if Scalar::Util::refaddr( $B_prime ) == Scalar::Util::refaddr( $A_stem );
648 return CMP_SUPERTYPE
649 if Scalar::Util::refaddr( $B_prime->compiled_check ) ==
650 Scalar::Util::refaddr( $A_stem->compiled_check );
651 if ( $A_stem->can_be_inlined and $B_prime->can_be_inlined ) {
652 return CMP_SUPERTYPE
653 if $B_prime->inline_check( '$WOLFIE' ) eq $A_stem->inline_check( '$WOLFIE' );
654 }
655 } #/ while ( $B_prime->has_parent)
656 } #/ B_IS_SUBTYPE:
657
658 return CMP_UNKNOWN;
65913µs};
660
661sub equals {
662 my $result = Type::Tiny::cmp( $_[0], $_[1] );
663 return unless defined $result;
664 $result eq CMP_EQUAL;
665}
666
667sub is_subtype_of {
668 my $result = Type::Tiny::cmp( $_[0], $_[1], CMP_SUBTYPE );
669 return unless defined $result;
670 $result eq CMP_SUBTYPE;
671}
672
673sub is_supertype_of {
674 my $result = Type::Tiny::cmp( $_[0], $_[1], CMP_SUBTYPE );
675 return unless defined $result;
676 $result eq CMP_SUPERTYPE;
677}
678
679
# spent 4.98ms (16µs+4.97) within Type::Tiny::is_a_type_of which was called 3 times, avg 1.66ms/call: # 3 times (16µs+4.97ms) by Types::Standard::Dict::__inline_generator at line 100 of Types/Standard/Dict.pm, avg 1.66ms/call
sub is_a_type_of {
68034µs34.97ms my $result = Type::Tiny::cmp( $_[0], $_[1] );
# spent 4.97ms making 3 calls to Type::Tiny::__ANON__[Type/Tiny.pm:602], avg 1.66ms/call
68131µs return unless defined $result;
68237µs $result eq CMP_SUBTYPE or $result eq CMP_EQUAL or $result eq CMP_EQUIVALENT;
683}
684
685
# spent 17.8ms (6.79+11.0) within Type::Tiny::strictly_equals which was called 794 times, avg 22µs/call: # 597 times (4.88ms+8.09ms) by Type::Tiny::is_strictly_subtype_of at line 698, avg 22µs/call # 191 times (1.88ms+2.87ms) by Type::Tiny::is_strictly_a_type_of at line 715, avg 25µs/call # 6 times (35µs+74µs) by Types::Standard::Dict::__inline_generator at line 103 of Types/Standard/Dict.pm, avg 18µs/call
sub strictly_equals {
686794643µs7946.71ms my ( $self, $other ) = _loose_to_TypeTiny( @_ );
# spent 6.71ms making 794 calls to Type::Tiny::_loose_to_TypeTiny, avg 8µs/call
6877942.12ms15882.45ms return unless blessed( $self ) && $self->isa( "Type::Tiny" );
# spent 1.98ms making 794 calls to Type::Tiny::isa, avg 2µs/call # spent 468µs making 794 calls to Scalar::Util::blessed, avg 589ns/call
6887941.83ms15881.88ms return unless blessed( $other ) && $other->isa( "Type::Tiny" );
# spent 1.56ms making 794 calls to Type::Tiny::isa, avg 2µs/call # spent 317µs making 794 calls to Scalar::Util::blessed, avg 399ns/call
6897941.71ms $self->{uniq} == $other->{uniq};
690}
691
692
# spent 34.1ms (10.0+24.1) within Type::Tiny::is_strictly_subtype_of which was called 703 times, avg 49µs/call: # 512 times (6.84ms+-6.84ms) by Type::Tiny::is_strictly_subtype_of at line 698, avg 0s/call # 191 times (3.19ms+30.9ms) by Type::Tiny::is_strictly_a_type_of at line 715, avg 179µs/call
sub is_strictly_subtype_of {
693703528µs7035.39ms my ( $self, $other ) = _loose_to_TypeTiny( @_ );
# spent 5.39ms making 703 calls to Type::Tiny::_loose_to_TypeTiny, avg 8µs/call
6947031.66ms14062.03ms return unless blessed( $self ) && $self->isa( "Type::Tiny" );
# spent 1.71ms making 703 calls to Type::Tiny::isa, avg 2µs/call # spent 321µs making 703 calls to Scalar::Util::blessed, avg 457ns/call
6957031.65ms14061.78ms return unless blessed( $other ) && $other->isa( "Type::Tiny" );
# spent 1.47ms making 703 calls to Type::Tiny::isa, avg 2µs/call # spent 318µs making 703 calls to Scalar::Util::blessed, avg 452ns/call
696
697703748µs703470µs return unless $self->has_parent;
# spent 422µs making 639 calls to Type::Tiny::has_parent, avg 660ns/call # spent 29µs making 42 calls to Type::Tiny::ConstrainedObject::has_parent, avg 690ns/call # spent 19µs making 22 calls to Type::Tiny::Enum::has_parent, avg 864ns/call
6985972.40ms221814.4ms $self->parent->strictly_equals( $other )
# spent 13.0ms making 597 calls to Type::Tiny::strictly_equals, avg 22µs/call # spent 667µs making 84 calls to Type::Tiny::Class::parent, avg 8µs/call # spent 575µs making 981 calls to Type::Tiny::parent, avg 586ns/call # spent 181µs making 44 calls to Type::Tiny::Enum::parent, avg 4µs/call # spent 61.1ms making 512 calls to Type::Tiny::is_strictly_subtype_of, avg 119µs/call, recursion: max depth 7, sum of overlapping time 61.1ms
699 or $self->parent->is_strictly_subtype_of( $other );
700}
701
702sub is_strictly_supertype_of {
703 my ( $self, $other ) = _loose_to_TypeTiny( @_ );
704 return unless blessed( $self ) && $self->isa( "Type::Tiny" );
705 return unless blessed( $other ) && $other->isa( "Type::Tiny" );
706
707 $other->is_strictly_subtype_of( $self );
708}
709
710
# spent 44.8ms (2.66+42.1) within Type::Tiny::is_strictly_a_type_of which was called 191 times, avg 234µs/call: # 134 times (1.89ms+30.4ms) 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 241µs/call # 32 times (339µs+5.82ms) by Types::Standard::Dict::__constraint_generator at line 64 of Types/Standard/Dict.pm, avg 193µs/call # 4 times (48µs+1.44ms) by Types::Standard::Tuple::__constraint_generator at line 59 of Types/Standard/Tuple.pm, avg 372µs/call # 4 times (52µs+1.39ms) by Types::Standard::Tuple::__inline_generator at line 133 of Types/Standard/Tuple.pm, avg 362µs/call # 4 times (168µs+712µs) by Types::Standard::Dict::__constraint_generator at line 44 of Types/Standard/Dict.pm, avg 220µs/call # 4 times (50µs+435µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:826] at line 815 of Types/Standard.pm, avg 121µs/call # 4 times (34µs+359µs) by Types::Standard::Dict::__inline_generator at line 90 of Types/Standard/Dict.pm, avg 98µs/call # 2 times (33µs+673µs) by Types::Standard::Tuple::__constraint_generator at line 28 of Types/Standard/Tuple.pm, avg 353µs/call # 2 times (27µs+582µs) by Types::Standard::Tuple::__inline_generator at line 95 of Types/Standard/Tuple.pm, avg 304µs/call # once (19µs+274µs) by Types::Standard::Dict::__coercion_generator at line 244 of Types/Standard/Dict.pm
sub is_strictly_a_type_of {
711191231µs1911.89ms my ( $self, $other ) = _loose_to_TypeTiny( @_ );
# spent 1.89ms making 191 calls to Type::Tiny::_loose_to_TypeTiny, avg 10µs/call
712191683µs382789µs return unless blessed( $self ) && $self->isa( "Type::Tiny" );
# spent 653µs making 191 calls to Type::Tiny::isa, avg 3µs/call # spent 136µs making 191 calls to Scalar::Util::blessed, avg 712ns/call
713191553µs382569µs return unless blessed( $other ) && $other->isa( "Type::Tiny" );
# spent 471µs making 191 calls to Type::Tiny::isa, avg 2µs/call # spent 98µs making 191 calls to Scalar::Util::blessed, avg 513ns/call
714
715191745µs38238.9ms $self->strictly_equals( $other ) or $self->is_strictly_subtype_of( $other );
# spent 34.1ms making 191 calls to Type::Tiny::is_strictly_subtype_of, avg 179µs/call # spent 4.74ms making 191 calls to Type::Tiny::strictly_equals, avg 25µs/call
716}
717
718
# spent 294µs (247+47) within Type::Tiny::qualified_name which was called 46 times, avg 6µs/call: # 37 times (195µs+36µs) by Eval::TypeTiny::type_to_coderef at line 169 of Eval/TypeTiny.pm, avg 6µs/call # 7 times (46µs+10µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:190] at line 186 of Types/Standard.pm, avg 8µs/call # 2 times (6µs+1000ns) by Type::Tiny::new at line 364, avg 4µs/call
sub qualified_name {
7194614µs my $self = shift;
720 ( exists $self->{library} and $self->name ne "__ANON__" )
721 ? "$self->{library}::$self->{name}"
72246242µs4647µs : $self->{name};
# spent 47µs making 46 calls to Type::Tiny::name, avg 1µs/call
723}
724
725
# spent 565µs (439+126) within Type::Tiny::is_anon which was called 129 times, avg 4µs/call: # 54 times (182µs+70µs) by Type::Tiny::_build_coercion at line 502, avg 5µs/call # 38 times (70µs+21µs) by Type::Tiny::exportables at line 1187, avg 2µs/call # 37 times (187µs+35µs) by Type::Library::add_type at line 228 of Type/Library.pm, avg 6µs/call
sub is_anon {
72612924µs my $self = shift;
727129365µs129126µs $self->name eq "__ANON__";
# spent 126µs making 129 calls to Type::Tiny::name, avg 977ns/call
728}
729
730sub parents {
731 my $self = shift;
732 return unless $self->has_parent;
733 return ( $self->parent, $self->parent->parents );
734}
735
736
# spent 68µs (56+12) within Type::Tiny::find_parent which was called 2 times, avg 34µs/call: # 2 times (56µs+12µs) by Types::Standard::Slurpy::my_unslurpy at line 751 of Types/Standard.pm, avg 34µs/call
sub find_parent {
73720s my $self = shift;
73822µs my ( $test ) = @_;
739
74024µs local ( $_, $. );
74126µs my $type = $self;
74222µs my $count = 0;
74325µs24µs while ( $type ) {
# spent 4µs making 2 calls to Type::Tiny::__ANON__[Type/Tiny.pm:101], avg 2µs/call
744227µs28µs if ( $test->( $_ = $type, $. = $count ) ) {
# spent 8µs making 2 calls to Types::Standard::__ANON__[Types/Standard.pm:750], avg 4µs/call
745 return wantarray ? ( $type, $count ) : $type;
746 }
747 else {
748 $type = $type->parent;
749 $count++;
750 }
751 }
752
753 return;
754} #/ sub find_parent
755
756
# spent 3.66ms (939µs+2.72) within Type::Tiny::check which was called 381 times, avg 10µs/call: # 343 times (856µs+2.52ms) by Types::TypeTiny::is_TypeTiny at line 2 of (eval 40)[Types/TypeTiny.pm:58], avg 10µs/call # 38 times (83µs+198µs) by Types::TypeTiny::is_StringLike at line 2 of (eval 39)[Types/TypeTiny.pm:58], avg 7µs/call
sub check {
75738165µs my $self = shift;
758381878µs3832.72ms ( $self->{compiled_type_constraint} ||= $self->_build_compiled_check )->( @_ );
# spent 2.32ms making 343 calls to Eval::TypeTiny::Sandbox::__ANON__[(eval 57)[Eval/TypeTiny.pm:8]:3], avg 7µs/call # spent 361µs making 2 calls to Type::Tiny::_build_compiled_check, avg 180µs/call # spent 39µs making 38 calls to Eval::TypeTiny::Sandbox::__ANON__[(eval 58)[Eval/TypeTiny.pm:8]:3], avg 1µs/call
759}
760
761sub _strict_check {
762 my $self = shift;
763 local $_ = $_[0];
764
765 my @constraints =
766 reverse
767 map { $_->constraint }
768 grep { not $_->_is_null_constraint } ( $self, $self->parents );
769
770 for my $c ( @constraints ) {
771 return unless $c->( @_ );
772 }
773
774 return !!1;
775} #/ sub _strict_check
776
777sub get_message {
778 my $self = shift;
779 local $_ = $_[0];
780 $self->has_message
781 ? $self->message->( @_ )
782 : $self->_default_message->( @_ );
783}
784
785sub validate {
786 my $self = shift;
787
788 return undef
789 if ( $self->{compiled_type_constraint} ||= $self->_build_compiled_check )
790 ->( @_ );
791
792 local $_ = $_[0];
793 return $self->get_message( @_ );
794} #/ sub validate
795
796sub validate_explain {
797 my $self = shift;
798 my ( $value, $varname ) = @_;
799 $varname = '$_' unless defined $varname;
800
801 return undef if $self->check( $value );
802
803 if ( $self->has_parent ) {
804 my $parent = $self->parent->validate_explain( $value, $varname );
805 return [
806 sprintf( '"%s" is a subtype of "%s"', $self, $self->parent ),
807 @$parent
808 ]
809 if $parent;
810 }
811
812 my $message = sprintf(
813 '%s%s',
814 $self->get_message( $value ),
815 $varname eq q{$_} ? '' : sprintf( ' (in %s)', $varname ),
816 );
817
818 if ( $self->is_parameterized and $self->parent->has_deep_explanation ) {
819 my $deep = $self->parent->deep_explanation->( $self, $value, $varname );
820 return [ $message, @$deep ] if $deep;
821 }
822
823 local $SIG{__WARN__} = sub {};
824 return [
825 $message,
826 sprintf( '"%s" is defined as: %s', $self, $self->_perlcode )
827 ];
828} #/ sub validate_explain
829
83010smy $b;
831
832sub _perlcode {
833 my $self = shift;
834
835 local our $AvoidCallbacks = 1;
836 return $self->inline_check( '$_' )
837 if $self->can_be_inlined;
838
839 $b ||= do {
840 local $@;
841 require B::Deparse;
842 my $tmp = "B::Deparse"->new;
843 $tmp->ambient_pragmas( strict => "all", warnings => "all" )
844 if $tmp->can( 'ambient_pragmas' );
845 $tmp;
846 };
847
848 my $code = $b->coderef2text( $self->constraint );
849 $code =~ s/\s+/ /g;
850 return "sub $code";
851} #/ sub _perlcode
852
853sub assert_valid {
854 my $self = shift;
855
856 return !!1
857 if ( $self->{compiled_type_constraint} ||= $self->_build_compiled_check )
858 ->( @_ );
859
860 local $_ = $_[0];
861 $self->_failed_check( "$self", $_ );
862} #/ sub assert_valid
863
864sub assert_return {
865 my $self = shift;
866
867 return $_[0]
868 if ( $self->{compiled_type_constraint} ||= $self->_build_compiled_check )
869 ->( @_ );
870
871 local $_ = $_[0];
872 $self->_failed_check( "$self", $_ );
873} #/ sub assert_return
874
875
# spent 12.1ms (7.55+4.59) within Type::Tiny::can_be_inlined which was called 1026 times, avg 12µs/call: # 638 times (4.34ms+2.93ms) by Type::Tiny::inline_check at line 886, avg 11µs/call # 126 times (1.03ms+858µs) by Type::Tiny::inline_assert at line 915, avg 15µs/call # 60 times (374µs+-374µs) by Type::Tiny::can_be_inlined at line 877, avg 0s/call # 44 times (388µs+172µs) by Type::Tiny::_build_compiled_check at line 537, avg 13µs/call # 37 times (452µs+406µs) by Type::Tiny::_overload_coderef at line 215, avg 23µs/call # 30 times (133µs+80µs) by Types::Standard::Dict::__inline_generator at line 117 of Types/Standard/Dict.pm, avg 7µs/call # 24 times (154µs+80µs) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:659] at line 635, avg 10µs/call # 23 times (234µs+152µs) by Type::Tiny::_overload_coderef at line 203, avg 17µs/call # 8 times (75µs+61µs) by Types::Standard::HashRef::__inline_generator at line 65 of Types/Standard/HashRef.pm, avg 17µs/call # 6 times (29µs+17µs) by Type::Tiny::Union::can_be_inlined at line 117 of Type/Tiny/Union.pm, avg 8µs/call # 6 times (30µs+12µs) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:659] at line 621, avg 7µs/call # 5 times (93µs+47µs) by Type::Tiny::new at line 277, avg 28µs/call # 4 times (54µs+20µs) by Types::Standard::ArrayRef::__inline_generator at line 100 of Types/Standard/ArrayRef.pm, avg 18µs/call # 3 times (47µs+56µs) by Types::Standard::Dict::__inline_generator at line 96 of Types/Standard/Dict.pm, avg 34µs/call # 2 times (38µs+10µs) by Types::Standard::Map::__inline_generator at line 61 of Types/Standard/Map.pm, avg 24µs/call # 2 times (19µs+19µs) by Types::Standard::Tuple::__inline_generator at line 103 of Types/Standard/Tuple.pm, avg 19µs/call # 2 times (19µs+15µs) by Type::Coercion::can_be_inlined at line 318 of Type/Coercion.pm, avg 17µs/call # 2 times (16µs+11µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:737] at line 735 of Types/Standard.pm, avg 14µs/call # 2 times (8µs+8µs) by Type::Coercion::can_be_inlined at line 324 of Type/Coercion.pm, avg 8µs/call # once (11µs+7µs) by Types::Standard::Dict::__coercion_generator at line 256 of Types/Standard/Dict.pm # once (9µs+5µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:686] at line 681 of Types/Standard.pm
sub can_be_inlined {
8761026163µs my $self = shift;
87710261.80ms21133.33ms return $self->parent->can_be_inlined
# spent 2.42ms making 860 calls to Type::Tiny::_is_null_constraint, avg 3µs/call # spent 703µs making 919 calls to Type::Tiny::has_parent, avg 765ns/call # spent 104µs making 107 calls to Type::Tiny::ConstrainedObject::has_parent, avg 972ns/call # spent 73µs making 98 calls to Type::Tiny::Class::_is_null_constraint, avg 745ns/call # spent 24µs making 60 calls to Type::Tiny::parent, avg 400ns/call # spent 5µs making 9 calls to Type::Tiny::Duck::_is_null_constraint, avg 556ns/call # spent 710µs making 60 calls to Type::Tiny::can_be_inlined, avg 12µs/call, recursion: max depth 2, sum of overlapping time 710µs
878 if $self->has_parent && $self->_is_null_constraint;
879966903µs1025644µs return !!1
# spent 461µs making 859 calls to Type::Tiny::has_parent, avg 537ns/call # spent 142µs making 59 calls to Type::Tiny::_is_null_constraint, avg 2µs/call # spent 41µs making 107 calls to Type::Tiny::ConstrainedObject::has_parent, avg 383ns/call
880 if !$self->has_parent && $self->_is_null_constraint;
8819112.10ms911619µs return $self->has_inlined;
# spent 541µs making 804 calls to Type::Tiny::has_inlined, avg 673ns/call # spent 71µs making 98 calls to Type::Tiny::Class::has_inlined, avg 724ns/call # spent 7µs making 9 calls to Type::Tiny::Duck::has_inlined, avg 778ns/call
882}
883
884
# spent 60.7ms (11.6+49.1) within Type::Tiny::inline_check which was called 638 times, avg 95µs/call: # 126 times (2.44ms+44.1ms) by Type::Tiny::inline_assert at line 915, avg 369µs/call # 118 times (2.38ms+-2.38ms) 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 0s/call # 57 times (1.09ms+-1.09ms) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:685] at line 684 of Types/Standard.pm, avg 0s/call # 50 times (559µs+-559µs) by Types::Standard::Dict::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard/Dict.pm:161] at line 148 of Types/Standard/Dict.pm, avg 0s/call # 44 times (898µs+8.89ms) by Type::Tiny::_build_compiled_check at line 537, avg 223µs/call # 37 times (574µs+-574µs) by Types::Standard::HashRef::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard/HashRef.pm:76] at line 70 of Types/Standard/HashRef.pm, avg 0s/call # 37 times (657µs+-657µs) by Types::Standard::HashRef::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard/HashRef.pm:76] at line 69 of Types/Standard/HashRef.pm, avg 0s/call # 32 times (675µs+-675µs) by Type::Tiny::inline_check at line 899, avg 0s/call # 24 times (195µs+3.03ms) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:659] at line 635, avg 134µs/call # 24 times (581µs+-581µs) by Types::Standard::ArrayRef::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard/ArrayRef.pm:121] at line 114 of Types/Standard/ArrayRef.pm, avg 0s/call # 24 times (383µs+-383µs) by Types::Standard::ArrayRef::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard/ArrayRef.pm:121] at line 105 of Types/Standard/ArrayRef.pm, avg 0s/call # 20 times (293µs+-293µs) by Type::Tiny::inline_check at line 889, avg 0s/call # 16 times (278µs+-278µ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 0s/call # 6 times (79µs+906µs) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:659] at line 621, avg 164µs/call # 4 times (47µs+65µs) by Type::Tiny::Union::inline_check at line 140 of Type/Tiny/Union.pm, avg 28µs/call # 3 times (111µs+-111µs) by Types::Standard::Map::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard/Map.pm:87] at line 79 of Types/Standard/Map.pm, avg 0s/call # 3 times (43µs+-43µs) by Types::Standard::Map::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard/Map.pm:87] at line 78 of Types/Standard/Map.pm, avg 0s/call # 3 times (37µs+-37µs) by Types::Standard::Map::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard/Map.pm:87] at line 80 of Types/Standard/Map.pm, avg 0s/call # 2 times (32µs+36µs) by Type::Coercion::inline_coercion at line 368 of Type/Coercion.pm, avg 34µs/call # 2 times (23µs+-23µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:328] at line 318 of Types/Standard.pm, avg 0s/call # 2 times (53µs+-53µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:734] at line 734 of Types/Standard.pm, avg 0s/call # 2 times (33µs+-33µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:945] at line 940 of Types/Standard.pm, avg 0s/call # 2 times (102µs+-102µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:921] at line 910 of Types/Standard.pm, avg 0s/call
sub inline_check {
885638110µs my $self = shift;
886638630µs6387.27ms _croak 'Cannot inline type constraint check for "%s"', $self
# spent 7.27ms making 638 calls to Type::Tiny::can_be_inlined, avg 11µs/call
887 unless $self->can_be_inlined;
888
889638907µs12881.72ms return $self->parent->inline_check( @_ )
# spent 1.38ms making 547 calls to Type::Tiny::_is_null_constraint, avg 3µs/call # spent 289µs making 575 calls to Type::Tiny::has_parent, avg 503ns/call # spent 21µs making 63 calls to Type::Tiny::ConstrainedObject::has_parent, avg 333ns/call # spent 17µs making 59 calls to Type::Tiny::Class::_is_null_constraint, avg 288ns/call # spent 12µs making 20 calls to Type::Tiny::parent, avg 600ns/call # spent 1µs making 4 calls to Type::Tiny::Duck::_is_null_constraint, avg 250ns/call # spent 781µs making 20 calls to Type::Tiny::inline_check, avg 39µs/call, recursion: max depth 2, sum of overlapping time 781µs
890 if $self->has_parent && $self->_is_null_constraint;
891618507µs646402µs return '(!!1)'
# spent 295µs making 555 calls to Type::Tiny::has_parent, avg 532ns/call # spent 86µs making 28 calls to Type::Tiny::_is_null_constraint, avg 3µs/call # spent 21µs making 63 calls to Type::Tiny::ConstrainedObject::has_parent, avg 333ns/call
892 if !$self->has_parent && $self->_is_null_constraint;
893
894592203µs local $_ = $_[0];
8955921.70ms118481.6ms my @r = $self->inlined->( $self, @_ );
# spent 48.0ms making 24 calls to Types::Standard::Dict::__ANON__[Types/Standard/Dict.pm:161], avg 2.00ms/call # spent 21.9ms making 37 calls to Types::Standard::HashRef::__ANON__[Types/Standard/HashRef.pm:76], avg 591µs/call # spent 3.40ms making 24 calls to Types::Standard::ArrayRef::__ANON__[Types/Standard/ArrayRef.pm:121], avg 142µs/call # spent 2.44ms making 57 calls to Types::Standard::__ANON__[Types/Standard.pm:685], avg 43µs/call # spent 2.00ms making 8 calls to Types::Standard::Tuple::__ANON__[Types/Standard/Tuple.pm:164], avg 250µs/call # spent 906µs making 2 calls to Types::Standard::__ANON__[Types/Standard.pm:734], avg 453µs/call # spent 692µs making 3 calls to Types::Standard::Map::__ANON__[Types/Standard/Map.pm:87], avg 231µs/call # spent 388µs making 529 calls to Type::Tiny::inlined, avg 733ns/call # spent 237µs making 30 calls to Type::Tiny::__ANON__[Type/Tiny.pm:276], avg 8µs/call # spent 215µs making 59 calls to Type::Tiny::Class::inlined, avg 4µs/call # spent 201µs making 59 calls to Type::Tiny::Class::__ANON__[Type/Tiny/Class.pm:89], avg 3µs/call # spent 186µs making 81 calls to Types::Standard::__ANON__[Types/Standard.pm:523], avg 2µs/call # spent 175µs making 2 calls to Types::Standard::__ANON__[Types/Standard.pm:921], avg 88µs/call # spent 142µs making 76 calls to Types::Standard::__ANON__[Types/Standard.pm:438], avg 2µs/call # spent 134µs making 38 calls to Types::Standard::__ANON__[Types/Standard.pm:501], avg 4µs/call # spent 96µs making 2 calls to Types::Standard::__ANON__[Types/Standard.pm:945], avg 48µs/call # spent 84µs making 38 calls to Types::Standard::__ANON__[Types/Standard.pm:277], avg 2µs/call # spent 62µs making 23 calls to Types::Standard::__ANON__[Types/Standard.pm:362], avg 3µs/call # spent 60µs making 2 calls to Types::Standard::__ANON__[Types/Standard.pm:328], avg 30µs/call # spent 47µs making 4 calls to Type::Tiny::Duck::__ANON__[Type/Tiny/Duck.pm:104], avg 12µs/call # spent 41µs making 26 calls to Types::Standard::__ANON__[Types/Standard.pm:241], avg 2µs/call # spent 39µs making 3 calls to Types::Standard::__ANON__[Types/Standard.pm:295], avg 13µs/call # spent 34µs making 14 calls to Types::Standard::__ANON__[Types/Standard.pm:229], avg 2µs/call # spent 24µs making 2 calls to Types::Standard::__ANON__[Types/Standard.pm:488], avg 12µs/call # spent 23µs making 4 calls to Type::Tiny::Duck::inlined, avg 6µs/call # spent 18µs making 5 calls to Types::Standard::__ANON__[Types/Standard.pm:566], avg 4µs/call # spent 17µs making 2 calls to Types::Standard::__ANON__[Types/Standard.pm:851], avg 8µs/call # spent 14µs making 2 calls to Types::Standard::__ANON__[Types/Standard.pm:456], avg 7µs/call # spent 13µs making 4 calls to Types::Standard::__ANON__[Types/Standard.pm:348], avg 3µs/call # spent 13µs making 7 calls to Types::Standard::__ANON__[Types/Standard.pm:384], avg 2µs/call # spent 8µs making 5 calls to Types::Standard::__ANON__[Types/Standard.pm:251], avg 2µs/call # spent 6µs making 1 call to Types::TypeTiny::__ANON__[Types/TypeTiny.pm:174] # spent 5µs making 4 calls to Types::Standard::__ANON__[Types/Standard.pm:264], avg 1µs/call # spent 3µs making 2 calls to Types::Standard::__ANON__[Types/Standard.pm:470], avg 2µs/call # spent 3µs making 2 calls to Types::Standard::__ANON__[Types/Standard.pm:545], avg 2µs/call # spent 3µs making 1 call to Types::TypeTiny::__ANON__[Types/TypeTiny.pm:413] # spent 2µs making 2 calls to Types::Standard::__ANON__[Types/Standard.pm:375], avg 1µs/call
896592225µs if ( @r and not defined $r[0] ) {
8973232µs3215µs _croak 'Inlining type constraint check for "%s" returned undef!', $self
# spent 15µs making 32 calls to Type::Tiny::has_parent, avg 469ns/call
898 unless $self->has_parent;
89932116µs6437µs $r[0] = $self->parent->inline_check( @_ );
# spent 37µs making 32 calls to Type::Tiny::parent, avg 1µs/call # spent 1.47ms making 32 calls to Type::Tiny::inline_check, avg 46µs/call, recursion: max depth 4, sum of overlapping time 1.47ms
900 }
901 my $r = join " && " => map {
90212164.16ms10121.03ms /[;{}]/ && !/\Ado \{.+\}\z/
# spent 1.03ms making 1012 calls to Type::Tiny::CORE:match, avg 1µs/call
903 ? "do { $SafePackage $_ }"
904 : "($_)"
905 } @r;
9065921.60ms return @r == 1 ? $r : "($r)";
907} #/ sub inline_check
908
909
# spent 58.6ms (6.40+52.2) within Type::Tiny::inline_assert which was called 137 times, avg 428µs/call: # 73 times (2.72ms+26.9ms) by MooX::TypeTiny::Role::GenerateAccessor::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/MooX/TypeTiny/Role/GenerateAccessor.pm:33] at line 23 of MooX/TypeTiny/Role/GenerateAccessor.pm, avg 406µs/call # 37 times (2.95ms+4.29ms) by Type::Tiny::_overload_coderef at line 215, avg 196µs/call # 27 times (730µs+21.0ms) by Type::Tiny::_overload_coderef at line 203, avg 805µs/call
sub inline_assert {
910137525µs require B;
91113747µs my $self = shift;
912137285µs my ( $varname, $typevarname, %extras ) = @_;
913
91413719µs my $inline_check;
915137541µs27448.7ms if ( $self->can_be_inlined ) {
# spent 46.5ms making 126 calls to Type::Tiny::inline_check, avg 369µs/call # spent 1.88ms making 126 calls to Type::Tiny::can_be_inlined, avg 15µs/call # spent 128µs making 2 calls to Type::Tiny::Union::inline_check, avg 64µs/call # spent 119µs making 9 calls to Type::Tiny::Enum::inline_check, avg 13µs/call # spent 39µs making 2 calls to Type::Tiny::Union::can_be_inlined, avg 20µs/call # spent 8µs making 9 calls to Type::Tiny::Enum::can_be_inlined, avg 889ns/call
916 $inline_check = sprintf( '(%s)', $self->inline_check( $varname ) );
917 }
918 elsif ( $typevarname ) {
919 $inline_check = sprintf( '%s->check(%s)', $typevarname, $varname );
920 }
921 else {
922 _croak 'Cannot inline type constraint check for "%s"', $self;
923 }
924
925137112µs my $do_wrapper = !delete $extras{no_wrapper};
926
92713728µs my $inline_throw;
928137203µs if ( $typevarname ) {
929 $inline_throw = sprintf(
930 'Type::Tiny::_failed_check(%s, %s, %s, %s)',
931 $typevarname,
932 B::perlstring( "$self" ),
933 $varname,
934 join(
935732.17ms8031.41ms ',', map +( B::perlstring( $_ ) => B::perlstring( $extras{$_} ) ),
# spent 685µs making 657 calls to B::perlstring, avg 1µs/call # spent 612µs making 73 calls to Type::Tiny::__ANON__[Type/Tiny.pm:100], avg 8µs/call # spent 114µs making 73 calls to Type::Tiny::CORE:sort, avg 2µs/call
936 sort keys %extras
937 ),
938 );
939 } #/ if ( $typevarname )
940 else {
941 $inline_throw = sprintf(
942 'Type::Tiny::_failed_check(%s, %s, %s, %s)',
943 $self->{uniq},
944 B::perlstring( "$self" ),
945 $varname,
946 join(
94764855µs192894µs ',', map +( B::perlstring( $_ ) => B::perlstring( $extras{$_} ) ),
# spent 643µs making 64 calls to Type::Tiny::__ANON__[Type/Tiny.pm:100], avg 10µs/call # spent 218µs making 64 calls to B::perlstring, avg 3µs/call # spent 33µs making 64 calls to Type::Tiny::CORE:sort, avg 516ns/call
948 sort keys %extras
949 ),
950 );
951 } #/ else [ if ( $typevarname ) ]
952
953137693µs $do_wrapper
954 ? qq[do { no warnings "void"; $SafePackage $inline_check or $inline_throw; $varname };]
955 : qq[ no warnings "void"; $SafePackage $inline_check or $inline_throw; $varname ];
956} #/ sub inline_assert
957
958sub _failed_check {
959 require Error::TypeTiny::Assertion;
960
961 my ( $self, $name, $value, %attrs ) = @_;
962 $self = $ALL_TYPES{$self} if defined $self && !ref $self;
963
964 my $exception_class =
965 delete( $attrs{exception_class} ) || "Error::TypeTiny::Assertion";
966 my $callback = delete( $attrs{on_die} );
967
968 if ( $self ) {
969 return $exception_class->throw_cb(
970 $callback,
971 message => $self->get_message( $value ),
972 type => $self,
973 value => $value,
974 %attrs,
975 );
976 }
977 else {
978 return $exception_class->throw_cb(
979 $callback,
980 message => sprintf( '%s did not pass type constraint "%s"', _dd( $value ), $name ),
981 value => $value,
982 %attrs,
983 );
984 }
985} #/ sub _failed_check
986
987sub coerce {
988 my $self = shift;
989 $self->_assert_coercion->coerce( @_ );
990}
991
992sub assert_coerce {
993 my $self = shift;
994 $self->_assert_coercion->assert_coerce( @_ );
995}
996
997
# spent 643µs (451+192) within Type::Tiny::is_parameterizable which was called 106 times, avg 6µs/call: # 69 times (279µs+99µs) by Type::Tiny::parameterize at line 1026, avg 5µs/call # 37 times (172µs+93µs) by Eval::TypeTiny::type_to_coderef at line 149 of Eval/TypeTiny.pm, avg 7µs/call
sub is_parameterizable {
998106400µs106192µs shift->has_constraint_generator;
# spent 192µs making 106 calls to Type::Tiny::has_constraint_generator, avg 2µs/call
999}
1000
1001
# spent 10µs (6+4) within Type::Tiny::is_parameterized which was called 3 times, avg 3µs/call: # 3 times (6µs+4µs) by Types::Standard::Dict::__inline_generator at line 103 of Types/Standard/Dict.pm, avg 3µs/call
sub is_parameterized {
100237µs34µs shift->has_parameters;
# spent 4µs making 3 calls to Type::Tiny::has_parameters, avg 1µs/call
1003}
1004
1005{
100610s my %seen;
1007
1008
# spent 4.22ms (1.16+3.06) within Type::Tiny::____make_key which was called 69 times, avg 61µs/call: # 69 times (1.16ms+3.06ms) by Type::Tiny::parameterize at line 1036, avg 61µs/call
sub ____make_key {
1009 #<<<
1010 join ',', map {
101169300µs Types::TypeTiny::is_TypeTiny( $_ ) ? sprintf( '$Type::Tiny::ALL_TYPES{%s}', defined( $_->{uniq} ) ? $_->{uniq} : '____CANNOT_KEY____' ) :
1012 ref() eq 'ARRAY' ? do { $seen{$_}++ ? '____CANNOT_KEY____' : sprintf( '[%s]', ____make_key( @$_ ) ) } :
1013 ref() eq 'HASH' ? do { $seen{$_}++ ? '____CANNOT_KEY____' : sprintf( '{%s}', ____make_key( do { my %h = %$_; map +( $_, $h{$_} ), sort keys %h; } ) ) } :
1014 ref() eq 'SCALAR' || ref() eq 'REF' ? do { $seen{$_}++ ? '____CANNOT_KEY____' : sprintf( '\\(%s)', ____make_key( $$_ ) ) } :
1015 !defined() ? 'undef' :
1016388881µs3083.06ms !ref() ? do { require B; B::perlstring( $_ ) } :
# spent 2.96ms making 228 calls to Types::TypeTiny::is_TypeTiny, avg 13µs/call # spent 103µs making 80 calls to B::perlstring, avg 1µs/call
1017 '____CANNOT_KEY____';
1018 } @_;
1019 #>>>
1020 } #/ sub ____make_key
102111µs my %param_cache;
1022
1023
# spent 76.8ms (2.86+73.9) within Type::Tiny::parameterize which was called 69 times, avg 1.11ms/call: # 69 times (2.86ms+73.9ms) by Types::Standard::ArrayRef or Types::Standard::Dict or Types::Standard::Enum or Types::Standard::HasMethods or Types::Standard::HashRef or Types::Standard::InstanceOf or Types::Standard::Map or Types::Standard::Optional or Types::Standard::Slurpy or Types::Standard::Tuple at line 11 of (eval 88)[Eval/TypeTiny.pm:8], avg 1.11ms/call
sub parameterize {
10246924µs my $self = shift;
1025
102669241µs69378µs $self->is_parameterizable
# spent 378µs making 69 calls to Type::Tiny::is_parameterizable, avg 5µs/call
1027 or @_
1028 ? _croak( "Type '%s' does not accept parameters", "$self" )
1029 : return ( $self );
1030
103169261µs159416µs @_ = map Types::TypeTiny::to_TypeTiny( $_ ), @_;
# spent 416µs making 159 calls to Types::TypeTiny::to_TypeTiny, avg 3µs/call
1032
1033 # Generate a key for caching parameterized type constraints,
1034 # but only if all the parameters are strings or type constraints.
10356938µs %seen = ();
103669122µs694.22ms my $key = $self->____make_key( @_ );
# spent 4.22ms making 69 calls to Type::Tiny::____make_key, avg 61µs/call
103769187µs6982µs undef( $key ) if $key =~ /____CANNOT_KEY____/;
# spent 82µs making 69 calls to Type::Tiny::CORE:match, avg 1µs/call
103869143µs return $param_cache{$key} if defined $key && defined $param_cache{$key};
1039
10403416µs local $Type::Tiny::parameterize_type = $self;
1041349µs local $_ = $_[0];
1042347µs my $P;
1043
104434241µs7862.0ms my ( $constraint, $compiled ) = $self->constraint_generator->( @_ );
# spent 15.5ms making 10 calls to Types::Standard::__ANON__[Types/Standard.pm:190], avg 1.55ms/call # spent 13.4ms making 4 calls to Types::Standard::Dict::__constraint_generator, avg 3.34ms/call # spent 11.0ms making 8 calls to Types::Standard::HashRef::__constraint_generator, avg 1.37ms/call # spent 5.00ms making 2 calls to Types::Standard::Tuple::__constraint_generator, avg 2.50ms/call # spent 4.26ms making 7 calls to Types::Standard::__ANON__[Types/Standard.pm:987], avg 608µs/call # spent 3.99ms making 4 calls to Types::Standard::ArrayRef::__constraint_generator, avg 997µs/call # spent 3.40ms making 1 call to Types::Standard::Map::__constraint_generator # spent 2.84ms making 4 calls to Types::Standard::__ANON__[Types/Standard.pm:1059], avg 711µs/call # spent 2.29ms making 1 call to Types::Standard::__ANON__[Types/Standard.pm:1033] # spent 314µs making 2 calls to Types::Standard::__ANON__[Types/Standard.pm:737], avg 157µs/call # spent 63µs making 1 call to Types::Standard::__ANON__[Types/Standard.pm:678] # spent 53µs making 34 calls to Type::Tiny::constraint_generator, avg 2µs/call
1045
10463467µs34513µs if ( Types::TypeTiny::is_TypeTiny( $constraint ) ) {
# spent 513µs making 34 calls to Types::TypeTiny::is_TypeTiny, avg 15µs/call
1047 $P = $constraint;
1048 }
1049 else {
105020140µs401.85ms my %options = (
# spent 973µs making 4 calls to Types::Standard::__ANON__[Types/Standard.pm:826], avg 243µs/call # spent 755µs making 14 calls to Type::Tiny::__ANON__[Type/Tiny.pm:524], avg 54µs/call # spent 62µs making 2 calls to Types::Standard::__ANON__[Types/Standard.pm:786], avg 31µs/call # spent 59µs making 20 calls to Type::Tiny::name_generator, avg 3µs/call
1051 constraint => $constraint,
1052 display_name => $self->name_generator->( $self, @_ ),
1053 parameters => [@_],
1054 );
1055207µs $options{compiled_type_constraint} = $compiled
1056 if $compiled;
105720100µs609.09ms $options{inlined} = $self->inline_generator->( @_ )
# spent 6.39ms making 4 calls to Types::Standard::Dict::__inline_generator, avg 1.60ms/call # spent 2.19ms making 2 calls to Types::Standard::Tuple::__inline_generator, avg 1.09ms/call # spent 229µs making 8 calls to Types::Standard::HashRef::__inline_generator, avg 29µs/call # spent 139µs making 4 calls to Types::Standard::ArrayRef::__inline_generator, avg 35µs/call # spent 64µs making 1 call to Types::Standard::Map::__inline_generator # spent 46µs making 20 calls to Type::Tiny::inline_generator, avg 2µs/call # spent 22µs making 20 calls to Type::Tiny::has_inline_generator, avg 1µs/call # spent 20µs making 1 call to Types::Standard::__ANON__[Types/Standard.pm:686]
1058 if $self->has_inline_generator;
1059 $options{type_default} = $self->{type_default_generator}->( @_ )
10602038µs14178µs if exists $self->{type_default_generator}; # undocumented
# spent 76µs making 1 call to Types::Standard::__ANON__[Types/Standard.pm:661] # spent 63µs making 8 calls to Types::Standard::__ANON__[Types/Standard.pm:532], avg 8µs/call # spent 33µs making 4 calls to Types::Standard::__ANON__[Types/Standard.pm:510], avg 8µs/call # spent 6µs making 1 call to Types::Standard::__ANON__[Types/Standard.pm:704]
1061 exists $options{$_} && !defined $options{$_} && delete $options{$_}
10622094µs for keys %options;
1063
10642077µs201.46ms $P = $self->create_child_type( %options );
# spent 1.46ms making 20 calls to Type::Tiny::create_child_type, avg 73µs/call
1065
10662056µs2028µs if ( $self->has_coercion_generator ) {
# spent 28µs making 20 calls to Type::Tiny::has_coercion_generator, avg 1µs/call
10672024µs my @args = @_;
1068
# spent 1.36ms (160µs+1.20) within Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:1073] which was called 3 times, avg 454µs/call: # 3 times (160µs+1.20ms) by Type::Tiny::_build_coercion at line 504, avg 454µs/call
$P->{_build_coercion} = sub {
106931µs my $coercion = shift;
1070316µs61.20ms my $built = $self->coercion_generator->( $self, $P, @args );
# spent 714µs making 2 calls to Types::Standard::HashRef::__coercion_generator, avg 357µs/call # spent 477µs making 1 call to Types::Standard::Dict::__coercion_generator # spent 5µs making 3 calls to Type::Tiny::coercion_generator, avg 2µs/call
107130s $coercion->add_type_coercions( @{ $built->type_coercion_map } ) if $built;
1072310µs35µs $coercion->freeze;
# spent 5µs making 3 calls to Type::Coercion::freeze, avg 2µs/call
10732055µs };
1074 }
1075 } #/ else [ if ( Types::TypeTiny::is_TypeTiny...)]
1076
10773420µs if ( defined $key ) {
10783438µs $param_cache{$key} = $P;
10793480µs3419µs Scalar::Util::weaken( $param_cache{$key} );
# spent 19µs making 34 calls to Scalar::Util::weaken, avg 559ns/call
1080 }
1081
108234116µs629.17ms $P->coercion->freeze unless $self->has_coercion_generator;
# spent 9.12ms making 14 calls to Type::Tiny::coercion, avg 652µs/call # spent 28µs making 34 calls to Type::Tiny::has_coercion_generator, avg 824ns/call # spent 24µs making 14 calls to Type::Coercion::freeze, avg 2µs/call
1083
108434148µs return $P;
1085 } #/ sub parameterize
1086}
1087
108810s
# spent 29µs within Type::Tiny::child_type_class which was called 27 times, avg 1µs/call: # 27 times (29µs+0s) by Type::Tiny::create_child_type at line 1096, avg 1µs/call
sub child_type_class {
10892774µs __PACKAGE__;
1090}
1091
1092
# spent 3.01ms (332µs+2.68) within Type::Tiny::create_child_type which was called 27 times, avg 112µs/call: # 20 times (211µs+1.25ms) by Type::Tiny::parameterize at line 1064, avg 73µs/call # 5 times (100µs+1.33ms) by Type::Tiny::where at line 1567, avg 287µs/call # 2 times (21µs+98µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:737] at line 735 of Types/Standard.pm, avg 60µs/call
sub create_child_type {
10932714µs my $self = shift;
1094276µs my %moreopts;
10952750µs $moreopts{is_object} = 1 if $self->{is_object};
109627204µs542.68ms return $self->child_type_class->new( parent => $self, %moreopts, @_ );
# spent 2.65ms making 27 calls to Type::Tiny::new, avg 98µs/call # spent 29µs making 27 calls to Type::Tiny::child_type_class, avg 1µs/call
1097}
1098
1099sub complementary_type {
1100 my $self = shift;
1101 my $r = ( $self->{complementary_type} ||= $self->_build_complementary_type );
1102 Scalar::Util::weaken( $self->{complementary_type} )
1103 unless Scalar::Util::isweak( $self->{complementary_type} );
1104 return $r;
1105}
1106
1107sub _build_complementary_type {
1108 my $self = shift;
1109 my %opts = (
1110 constraint => sub { not $self->check( $_ ) },
1111 display_name => sprintf( "~%s", $self ),
1112 );
1113 $opts{display_name} =~ s/^\~{2}//;
1114 $opts{inlined} = sub { shift; "not(" . $self->inline_check( @_ ) . ")" }
1115 if $self->can_be_inlined;
1116 $opts{display_name} = $opts{name} = $self->{complement_name}
1117 if $self->{complement_name};
1118 return "Type::Tiny"->new( %opts );
1119} #/ sub _build_complementary_type
1120
1121sub _instantiate_moose_type {
1122 my $self = shift;
1123 my %opts = @_;
1124 require Moose::Meta::TypeConstraint;
1125 return "Moose::Meta::TypeConstraint"->new( %opts );
1126}
1127
1128sub _build_moose_type {
1129 my $self = shift;
1130
1131 my $r;
1132 if ( $self->{_is_core} ) {
1133 require Moose::Util::TypeConstraints;
1134 $r = Moose::Util::TypeConstraints::find_type_constraint( $self->name );
1135 $r->{"Types::TypeTiny::to_TypeTiny"} = $self;
1136 Scalar::Util::weaken( $r->{"Types::TypeTiny::to_TypeTiny"} );
1137 }
1138 else {
1139 # Type::Tiny is more flexible than Moose, allowing
1140 # inlined to return a list. So we need to wrap the
1141 # inlined coderef to make sure Moose gets a single
1142 # string.
1143 #
1144 my $wrapped_inlined = sub {
1145 shift;
1146 $self->inline_check( @_ );
1147 };
1148
1149 my %opts;
1150 $opts{name} = $self->qualified_name if $self->has_library && !$self->is_anon;
1151 $opts{parent} = $self->parent->moose_type if $self->has_parent;
1152 $opts{constraint} = $self->constraint unless $self->_is_null_constraint;
1153 $opts{message} = $self->message if $self->has_message;
1154 $opts{inlined} = $wrapped_inlined if $self->has_inlined;
1155
1156 $r = $self->_instantiate_moose_type( %opts );
1157 $r->{"Types::TypeTiny::to_TypeTiny"} = $self;
1158 $self->{moose_type} = $r; # prevent recursion
1159 $r->coercion( $self->coercion->moose_coercion ) if $self->has_coercion;
1160 } #/ else [ if ( $self->{_is_core})]
1161
1162 return $r;
1163} #/ sub _build_moose_type
1164
1165sub _build_mouse_type {
1166 my $self = shift;
1167
1168 my %options;
1169 $options{name} = $self->qualified_name if $self->has_library && !$self->is_anon;
1170 $options{parent} = $self->parent->mouse_type if $self->has_parent;
1171 $options{constraint} = $self->constraint unless $self->_is_null_constraint;
1172 $options{message} = $self->message if $self->has_message;
1173
1174 require Mouse::Meta::TypeConstraint;
1175 my $r = "Mouse::Meta::TypeConstraint"->new( %options );
1176
1177 $self->{mouse_type} = $r; # prevent recursion
1178 $r->_add_type_coercions(
1179 $self->coercion->freeze->_codelike_type_coercion_map( 'mouse_type' ) )
1180 if $self->has_coercion;
1181
1182 return $r;
1183} #/ sub _build_mouse_type
1184
1185
# spent 32.0ms (1.18+30.8) within Type::Tiny::exportables which was called 38 times, avg 841µs/call: # 37 times (1.14ms+30.2ms) by Type::Library::add_type at line 235 of Type/Library.pm, avg 848µs/call # once (35µs+559µs) by Type::Tiny::exportables_by_tag at line 1231
sub exportables {
11863830µs my ( $self, $base_name, $tag ) = ( shift, @_ ); # $tag is undocumented
11873875µs76113µs if ( not $self->is_anon ) {
# spent 91µs making 38 calls to Type::Tiny::is_anon, avg 2µs/call # spent 22µs making 38 calls to Type::Tiny::name, avg 579ns/call
1188 $base_name ||= $self->name;
1189 }
11903814µs $tag ||= 0;
1191
1192389µs my @exportables;
11933814µs return \@exportables if ! $base_name;
1194
11953824µs require Eval::TypeTiny;
1196
119738166µs377.79ms push @exportables, {
# spent 7.79ms making 37 calls to Eval::TypeTiny::type_to_coderef, avg 211µs/call
1198 name => $base_name,
1199 code => Eval::TypeTiny::type_to_coderef( $self ),
1200 tags => [ 'types' ],
1201 } if $tag eq 'types' || !$tag;
1202
120338144µs375.36ms push @exportables, {
# spent 5.36ms making 37 calls to Type::Tiny::compiled_check, avg 145µs/call
1204 name => sprintf( 'is_%s', $base_name ),
1205 code => $self->compiled_check,
1206 tags => [ 'is' ],
1207 } if $tag eq 'is' || !$tag;
1208
120938194µs3716.9ms push @exportables, {
# spent 16.9ms making 37 calls to Type::Tiny::_overload_coderef, avg 457µs/call
1210 name => sprintf( 'assert_%s', $base_name ),
1211 code => $self->_overload_coderef,
1212 tags => [ 'assert' ],
1213 } if $tag eq 'assert' || !$tag;
1214
1215 push @exportables, {
1216 name => sprintf( 'to_%s', $base_name ),
1217 code => $self->has_coercion && $self->coercion->frozen
1218 ? $self->coercion->compiled_coercion
1219 : sub ($) { $self->coerce( $_[0] ) },
122038231µs42622µs tags => [ 'to' ],
# spent 542µs making 1 call to Type::Coercion::compiled_coercion # spent 74µs making 38 calls to Type::Tiny::has_coercion, avg 2µs/call # spent 6µs making 2 calls to Type::Tiny::coercion, avg 3µs/call # spent 0s making 1 call to Type::Coercion::frozen
1221 } if $tag eq 'to' || !$tag;
1222
122338104µs return \@exportables;
1224}
1225
1226
# spent 605µs (11+594) within Type::Tiny::exportables_by_tag which was called: # once (11µs+594µs) by Type::Library::make_immutable at line 320 of Type/Library.pm
sub exportables_by_tag {
122711µs my ( $self, $tag, $base_name ) = ( shift, @_ );
1228 my @matched = grep {
122910s my $e = $_;
123012µs grep $_ eq $tag, @{ $e->{tags} || [] };
123115µs1594µs } @{ $self->exportables( $base_name, $tag ) };
# spent 594µs making 1 call to Type::Tiny::exportables
123213µs return @matched if wantarray;
1233 _croak( 'Expected to find one exportable tagged "%s", found %d', $tag, scalar @matched )
1234 unless @matched == 1;
1235 return $matched[0];
1236}
1237
1238sub _process_coercion_list {
1239 my $self = shift;
1240
1241 my @pairs;
1242 while ( @_ ) {
1243 my $next = shift;
1244 if ( blessed( $next )
1245 and $next->isa( 'Type::Coercion' )
1246 and $next->is_parameterized )
1247 {
1248 push @pairs => ( @{ $next->_reparameterize( $self )->type_coercion_map } );
1249 }
1250 elsif ( blessed( $next ) and $next->can( 'type_coercion_map' ) ) {
1251 push @pairs => (
1252 @{ $next->type_coercion_map },
1253 );
1254 }
1255 elsif ( ref( $next ) eq q(ARRAY) ) {
1256 unshift @_, @$next;
1257 }
1258 else {
1259 push @pairs => (
1260 Types::TypeTiny::to_TypeTiny( $next ),
1261 shift,
1262 );
1263 }
1264 } #/ while ( @_ )
1265
1266 return @pairs;
1267} #/ sub _process_coercion_list
1268
1269sub plus_coercions {
1270 my $self = shift;
1271 my $new = $self->_clone;
1272 $new->coercion->add_type_coercions(
1273 $self->_process_coercion_list( @_ ),
1274 @{ $self->coercion->type_coercion_map },
1275 );
1276 $new->coercion->freeze;
1277 return $new;
1278} #/ sub plus_coercions
1279
1280sub plus_fallback_coercions {
1281 my $self = shift;
1282
1283 my $new = $self->_clone;
1284 $new->coercion->add_type_coercions(
1285 @{ $self->coercion->type_coercion_map },
1286 $self->_process_coercion_list( @_ ),
1287 );
1288 $new->coercion->freeze;
1289 return $new;
1290} #/ sub plus_fallback_coercions
1291
1292sub minus_coercions {
1293 my $self = shift;
1294
1295 my $new = $self->_clone;
1296 my @not = grep Types::TypeTiny::is_TypeTiny( $_ ),
1297 $self->_process_coercion_list( $new, @_ );
1298
1299 my @keep;
1300 my $c = $self->coercion->type_coercion_map;
1301 for ( my $i = 0 ; $i <= $#$c ; $i += 2 ) {
1302 my $keep_this = 1;
1303 NOT: for my $n ( @not ) {
1304 if ( $c->[$i] == $n ) {
1305 $keep_this = 0;
1306 last NOT;
1307 }
1308 }
1309
1310 push @keep, $c->[$i], $c->[ $i + 1 ] if $keep_this;
1311 } #/ for ( my $i = 0 ; $i <=...)
1312
1313 $new->coercion->add_type_coercions( @keep );
1314 $new->coercion->freeze;
1315 return $new;
1316} #/ sub minus_coercions
1317
1318sub no_coercions {
1319 my $new = shift->_clone;
1320 $new->coercion->freeze;
1321 $new;
1322}
1323
1324sub coercibles {
1325 my $self = shift;
1326 $self->has_coercion ? $self->coercion->_source_type_union : $self;
1327}
1328
1329
# spent 9.48ms (7.73+1.75) within Type::Tiny::isa which was called 3756 times, avg 3µs/call: # 794 times (1.63ms+348µs) by Type::Tiny::strictly_equals at line 687, avg 2µs/call # 794 times (1.31ms+248µs) by Type::Tiny::strictly_equals at line 688, avg 2µs/call # 703 times (1.37ms+346µs) by Type::Tiny::is_strictly_subtype_of at line 694, avg 2µs/call # 703 times (1.23ms+238µs) by Type::Tiny::is_strictly_subtype_of at line 695, avg 2µs/call # 236 times (667µs+168µs) by Eval::TypeTiny::Sandbox::__ANON__[(eval 57)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Eval/TypeTiny.pm:8]:3] at line 3 of (eval 57)[Eval/TypeTiny.pm:8], avg 4µs/call # 191 times (518µs+135µs) by Type::Tiny::is_strictly_a_type_of at line 712, avg 3µs/call # 191 times (398µs+73µs) by Type::Tiny::is_strictly_a_type_of at line 713, avg 2µs/call # 73 times (313µs+89µs) by MooX::TypeTiny::Role::GenerateAccessor::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/MooX/TypeTiny/Role/GenerateAccessor.pm:33] at line 13 of MooX/TypeTiny/Role/GenerateAccessor.pm, avg 6µs/call # 63 times (269µs+91µs) by Type::Tiny::new at line 255, avg 6µs/call # 3 times (9µs+15µs) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:602] at line 590, avg 8µs/call # 3 times (3µs+2µs) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:602] at line 591, avg 2µs/call # 2 times (8µs+1µs) by Type::Tiny::Union::new at line 60 of Type/Tiny/Union.pm, avg 4µs/call
sub isa {
13303756471µs my $self = shift;
1331
13323756597µs if ( $INC{"Moose.pm"}
1333 and ref( $self )
1334 and $_[0] =~ /^(?:Class::MOP|MooseX?::Meta)::(.+)$/ )
1335 {
1336 my $meta = $1;
1337
1338 return !!1 if $meta eq 'TypeConstraint';
1339 return $self->is_parameterized if $meta eq 'TypeConstraint::Parameterized';
1340 return $self->is_parameterizable if $meta eq 'TypeConstraint::Parameterizable';
1341 return $self->isa( 'Type::Tiny::Union' ) if $meta eq 'TypeConstraint::Union';
1342
1343 my $inflate = $self->moose_type;
1344 return $inflate->isa( @_ );
1345 } #/ if ( $INC{"Moose.pm"} ...)
1346
13473756433µs if ( $INC{"Mouse.pm"}
1348 and ref( $self )
1349 and $_[0] eq 'Mouse::Meta::TypeConstraint' )
1350 {
1351 return !!1;
1352 }
1353
1354375610.9ms37561.75ms $self->SUPER::isa( @_ );
# spent 1.75ms making 3756 calls to UNIVERSAL::isa, avg 467ns/call
1355} #/ sub isa
1356
1357
# spent 2µs within Type::Tiny::_build_my_methods which was called 2 times, avg 1µs/call: # 2 times (2µs+0s) by Type::Tiny::my_methods at line 452, avg 1µs/call
sub _build_my_methods {
135825µs return {};
1359}
1360
1361
# spent 143µs (107+36) within Type::Tiny::_lookup_my_method which was called 12 times, avg 12µs/call: # 6 times (84µs+59µs) by Type::Tiny::AUTOLOAD at line 1429, avg 24µs/call # 6 times (23µs+-23µs) by Type::Tiny::_lookup_my_method at line 1369, avg 0s/call
sub _lookup_my_method {
1362124µs my $self = shift;
13631210µs my ( $name ) = @_;
1364
13651229µs1828µs if ( $self->my_methods->{$name} ) {
# spent 28µs making 18 calls to Type::Tiny::my_methods, avg 2µs/call
1366 return $self->my_methods->{$name};
1367 }
1368
1369634µs188µs if ( $self->has_parent ) {
# spent 7µs making 6 calls to Type::Tiny::parent, avg 1µs/call # spent 1µs making 6 calls to Type::Tiny::has_parent, avg 167ns/call # spent 27µs making 6 calls to Type::Tiny::_lookup_my_method, avg 4µs/call, recursion: max depth 1, sum of overlapping time 27µs
1370 return $self->parent->_lookup_my_method( @_ );
1371 }
1372
1373 return;
1374} #/ sub _lookup_my_method
1375
137613µsmy %object_methods = (
1377 with_attribute_values => 1, stringifies_to => 1,
1378 numifies_to => 1
1379);
1380
1381
# spent 487µs (380+107) within Type::Tiny::can which was called 67 times, avg 7µs/call: # 61 times (327µs+91µs) by Type::Tiny::_overload_coderef at line 190, avg 7µs/call # 4 times (37µs+9µs) by Type::Coercion::add_type_coercions at line 240 of Type/Coercion.pm, avg 12µs/call # 2 times (16µs+7µs) by Type::Tiny::Union::new_by_overload at line 30 of Type/Tiny/Union.pm, avg 12µs/call
sub can {
13826713µs my $self = shift;
1383
13846744µs return !!0
1385 if $_[0] eq 'type_parameter'
1386 && blessed( $_[0] )
1387 && $_[0]->has_parameters;
1388
138967287µs67100µs my $can = $self->SUPER::can( @_ );
# spent 100µs making 67 calls to UNIVERSAL::can, avg 1µs/call
139067244µs return $can if $can;
1391
139263µs if ( ref( $self ) ) {
139363µs if ( $INC{"Moose.pm"} ) {
1394 my $method = $self->moose_type->can( @_ );
1395 return sub { shift->moose_type->$method( @_ ) }
1396 if $method;
1397 }
1398614µs67µs if ( $_[0] =~ /\Amy_(.+)\z/ ) {
# spent 7µs making 6 calls to Type::Tiny::CORE:match, avg 1µs/call
1399 my $method = $self->_lookup_my_method( $1 );
1400 return $method if $method;
1401 }
140263µs if ( $self->{is_object} && $object_methods{ $_[0] } ) {
1403 require Type::Tiny::ConstrainedObject;
1404 return Type::Tiny::ConstrainedObject->can( $_[0] );
1405 }
140665µs for my $util ( qw/ grep map sort rsort first any all assert_any assert_all / ) {
1407549µs if ( $_[0] eq $util ) {
1408 $self->{'_util'}{$util} ||= eval { $self->_build_util( $util ) };
1409 return unless $self->{'_util'}{$util};
1410 return sub { my $s = shift; $s->{'_util'}{$util}( @_ ) };
1411 }
1412 }
1413 } #/ if ( ref( $self ) )
1414
141568µs return;
1416} #/ sub can
1417
1418
# spent 416µs (80+336) within Type::Tiny::AUTOLOAD which was called 6 times, avg 69µs/call: # 3 times (55µs+260µs) by Types::Standard::Dict::__constraint_generator at line 44 of Types/Standard/Dict.pm, avg 105µs/call # 3 times (25µs+76µs) by Types::Standard::Dict::__inline_generator at line 90 of Types/Standard/Dict.pm, avg 34µs/call
sub AUTOLOAD {
141964µs my $self = shift;
1420647µs628µs my ( $m ) = ( our $AUTOLOAD =~ /::(\w+)$/ );
# spent 28µs making 6 calls to Type::Tiny::CORE:match, avg 5µs/call
142164µs return if $m eq 'DESTROY';
1422
142362µs if ( ref( $self ) ) {
142463µs if ( $INC{"Moose.pm"} ) {
1425 my $method = $self->moose_type->can( $m );
1426 return $self->moose_type->$method( @_ ) if $method;
1427 }
1428614µs67µs if ( $m =~ /\Amy_(.+)\z/ ) {
# spent 7µs making 6 calls to Type::Tiny::CORE:match, avg 1µs/call
1429610µs6143µs my $method = $self->_lookup_my_method( $1 );
# spent 143µs making 6 calls to Type::Tiny::_lookup_my_method, avg 24µs/call
1430626µs6158µs return &$method( $self, @_ ) if $method;
# spent 158µs making 6 calls to Types::Standard::Slurpy::my_unslurpy, avg 26µs/call
1431 }
1432 if ( $self->{is_object} && $object_methods{$m} ) {
1433 require Type::Tiny::ConstrainedObject;
1434 unshift @_, $self;
143521.24ms244µs
# spent 31µs (18+13) within Type::Tiny::BEGIN@1435 which was called: # once (18µs+13µs) by Type::Library::BEGIN@16 at line 1435
no strict 'refs';
# spent 31µs making 1 call to Type::Tiny::BEGIN@1435 # spent 13µs making 1 call to strict::unimport
1436 goto \&{"Type::Tiny::ConstrainedObject::$m"};
1437 }
1438 for my $util ( qw/ grep map sort rsort first any all assert_any assert_all / ) {
1439 if ( $m eq $util ) {
1440 return ( $self->{'_util'}{$util} ||= $self->_build_util( $util ) )->( @_ );
1441 }
1442 }
1443 } #/ if ( ref( $self ) )
1444
1445 _croak q[Can't locate object method "%s" via package "%s"], $m,
1446 ref( $self ) || $self;
1447} #/ sub AUTOLOAD
1448
1449sub DOES {
1450 my $self = shift;
1451
1452 return !!1
1453 if ref( $self )
1454 && $_[0] =~ m{^ Type::API::Constraint (?: ::Coercible | ::Inlinable )? $}x;
1455 return !!1 if !ref( $self ) && $_[0] eq 'Type::API::Constraint::Constructor';
1456
1457 "UNIVERSAL"->can( "DOES" ) ? $self->SUPER::DOES( @_ ) : $self->isa( @_ );
1458} #/ sub DOES
1459
1460sub _has_xsub {
1461 require B;
1462 !!B::svref_2object( shift->compiled_check )->XSUB;
1463}
1464
1465sub _build_util {
1466 my ( $self, $func ) = @_;
1467 Scalar::Util::weaken( my $type = $self );
1468
1469 if ( $func eq 'grep'
1470 || $func eq 'first'
1471 || $func eq 'any'
1472 || $func eq 'all'
1473 || $func eq 'assert_any'
1474 || $func eq 'assert_all' )
1475 {
1476 my ( $inline, $compiled );
1477
1478 if ( $self->can_be_inlined ) {
1479 $inline = $self->inline_check( '$_' );
1480 }
1481 else {
1482 $compiled = $self->compiled_check;
1483 $inline = '$compiled->($_)';
1484 }
1485
1486 if ( $func eq 'grep' ) {
1487 return eval "sub { grep { $inline } \@_ }";
1488 }
1489 elsif ( $func eq 'first' ) {
1490 return eval "sub { for (\@_) { return \$_ if ($inline) }; undef; }";
1491 }
1492 elsif ( $func eq 'any' ) {
1493 return eval "sub { for (\@_) { return !!1 if ($inline) }; !!0; }";
1494 }
1495 elsif ( $func eq 'assert_any' ) {
1496 my $qname = B::perlstring( $self->name );
1497 return
1498 eval
1499 "sub { for (\@_) { return \@_ if ($inline) }; Type::Tiny::_failed_check(\$type, $qname, \@_ ? \$_[-1] : undef); }";
1500 }
1501 elsif ( $func eq 'all' ) {
1502 return eval "sub { for (\@_) { return !!0 unless ($inline) }; !!1; }";
1503 }
1504 elsif ( $func eq 'assert_all' ) {
1505 my $qname = B::perlstring( $self->name );
1506 return
1507 eval
1508 "sub { my \$idx = 0; for (\@_) { Type::Tiny::_failed_check(\$type, $qname, \$_, varname => sprintf('\$_[%d]', \$idx)) unless ($inline); ++\$idx }; \@_; }";
1509 }
1510 } #/ if ( $func eq 'grep' ||...)
1511
1512 if ( $func eq 'map' ) {
1513 my ( $inline, $compiled );
1514 my $c = $self->_assert_coercion;
1515
1516 if ( $c->can_be_inlined ) {
1517 $inline = $c->inline_coercion( '$_' );
1518 }
1519 else {
1520 $compiled = $c->compiled_coercion;
1521 $inline = '$compiled->($_)';
1522 }
1523
1524 return eval "sub { map { $inline } \@_ }";
1525 } #/ if ( $func eq 'map' )
1526
1527 if ( $func eq 'sort' || $func eq 'rsort' ) {
1528 my ( $inline, $compiled );
1529
1530 my $ptype = $self->find_parent( sub { $_->has_sorter } );
1531 _croak "No sorter for this type constraint" unless $ptype;
1532
1533 my $sorter = $ptype->sorter;
1534
1535 # Schwarzian transformation
1536 if ( ref( $sorter ) eq 'ARRAY' ) {
1537 my $sort_key;
1538 ( $sorter, $sort_key ) = @$sorter;
1539
1540 if ( $func eq 'sort' ) {
1541 return
1542 eval
1543 "our (\$a, \$b); sub { map \$_->[0], sort { \$sorter->(\$a->[1],\$b->[1]) } map [\$_,\$sort_key->(\$_)], \@_ }";
1544 }
1545 elsif ( $func eq 'rsort' ) {
1546 return
1547 eval
1548 "our (\$a, \$b); sub { map \$_->[0], sort { \$sorter->(\$b->[1],\$a->[1]) } map [\$_,\$sort_key->(\$_)], \@_ }";
1549 }
1550 } #/ if ( ref( $sorter ) eq...)
1551
1552 # Simple sort
1553 else {
1554 if ( $func eq 'sort' ) {
1555 return eval "our (\$a, \$b); sub { sort { \$sorter->(\$a,\$b) } \@_ }";
1556 }
1557 elsif ( $func eq 'rsort' ) {
1558 return eval "our (\$a, \$b); sub { sort { \$sorter->(\$b,\$a) } \@_ }";
1559 }
1560 }
1561 } #/ if ( $func eq 'sort' ||...)
1562
1563 die "Unknown function: $func";
1564} #/ sub _build_util
1565
1566sub of { shift->parameterize( @_ ) }
1567536µs51.43ms
# spent 1.47ms (34µs+1.43) within Type::Tiny::where which was called 5 times, avg 293µs/call: # once (8µs+395µs) by JSON::Schema::Modern::add_vocabulary at line 707 of JSON/Schema/Modern.pm # once (5µs+299µs) by OpenAPI::Modern::BEGIN@26 at line 923 of JSON/Schema/Modern.pm # once (7µs+280µs) by JSON::Schema::Modern::BEGIN@35 at line 79 of JSON/Schema/Modern/Document.pm # once (8µs+270µs) by JSON::Schema::Modern::BEGIN@35 at line 40 of JSON/Schema/Modern/Document.pm # once (6µs+189µs) by OpenAPI::Modern::BEGIN@26 at line 637 of JSON/Schema/Modern.pm
sub where { shift->create_child_type( constraint => @_ ) }
# spent 1.43ms making 5 calls to Type::Tiny::create_child_type, avg 287µs/call
1568
1569# fill out Moose-compatible API
1570sub inline_environment { +{} }
1571sub _inline_check { shift->inline_check( @_ ) }
1572sub _compiled_type_constraint { shift->compiled_check( @_ ) }
1573sub meta { _croak( "Not really a Moose::Meta::TypeConstraint. Sorry!" ) }
1574sub compile_type_constraint { shift->compiled_check }
1575sub _actually_compile_type_constraint { shift->_build_compiled_check }
1576sub hand_optimized_type_constraint { shift->{hand_optimized_type_constraint} }
1577
1578sub has_hand_optimized_type_constraint {
1579 exists( shift->{hand_optimized_type_constraint} );
1580}
1581234µs214µs
# spent 34µs (20+14) within Type::Tiny::type_parameter which was called 2 times, avg 17µs/call: # 2 times (20µs+14µs) by Types::Standard::Slurpy::my_unslurpy at line 751 of Types/Standard.pm, avg 17µs/call
sub type_parameter { ( shift->parameters || [] )->[0] }
# spent 14µs making 2 calls to Type::Tiny::parameters, avg 7µs/call
1582
1583sub parameterized_from {
1584 $_[0]->is_parameterized ? shift->parent : _croak( "Not a parameterized type" );
1585}
1586sub has_parameterized_from { $_[0]->is_parameterized }
1587
1588# some stuff for Mouse-compatible API
1589sub __is_parameterized { shift->is_parameterized( @_ ) }
1590sub _add_type_coercions { shift->coercion->add_type_coercions( @_ ) }
1591sub _as_string { shift->qualified_name( @_ ) }
1592sub _compiled_type_coercion { shift->coercion->compiled_coercion( @_ ) }
1593sub _identity { Scalar::Util::refaddr( shift ) }
1594
1595sub _unite {
1596 require Type::Tiny::Union;
1597 "Type::Tiny::Union"->new( type_constraints => \@_ );
1598}
1599
1600# Hooks for Type::Tie
1601sub TIESCALAR {
1602 require Type::Tie;
1603 unshift @_, 'Type::Tie::SCALAR';
1604 goto \&Type::Tie::SCALAR::TIESCALAR;
1605}
1606
1607sub TIEARRAY {
1608 require Type::Tie;
1609 unshift @_, 'Type::Tie::ARRAY';
1610 goto \&Type::Tie::ARRAY::TIEARRAY;
1611}
1612
1613sub TIEHASH {
1614 require Type::Tie;
1615 unshift @_, 'Type::Tie::HASH';
1616 goto \&Type::Tie::HASH::TIEHASH;
1617}
1618
1619114µs1;
1620
1621__END__
 
# spent 2.19ms within Type::Tiny::CORE:match which was called 2032 times, avg 1µs/call: # 1012 times (1.03ms+0s) by Type::Tiny::inline_check at line 902, avg 1µs/call # 372 times (310µs+0s) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:100] at line 97, avg 833ns/call # 180 times (181µs+0s) by Type::Tiny::__ANON__[(eval 428)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] at line 16 of (eval 428)[Sub/Quote.pm:3], avg 1µs/call # 168 times (125µs+0s) by Type::Tiny::__ANON__[(eval 430)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] at line 16 of (eval 430)[Sub/Quote.pm:3], avg 744ns/call # 70 times (92µs+0s) by JSON::Schema::Modern::Document::_assert__path_to_resource at line 24 of (eval 299)[Sub/Quote.pm:3], avg 1µs/call # 69 times (82µs+0s) by Type::Tiny::parameterize at line 1037, avg 1µs/call # 63 times (138µs+0s) by Type::Tiny::new at line 251, avg 2µs/call # 39 times (156µs+0s) by Type::Tiny::new at line 291, avg 4µs/call # 20 times (9µs+0s) by Type::Tiny::__ANON__[(eval 423)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] at line 16 of (eval 423)[Sub/Quote.pm:3], avg 450ns/call # 14 times (6µs+0s) by JSON::Schema::Modern::_assert__vocabulary_classes at line 24 of (eval 355)[Sub/Quote.pm:3], avg 429ns/call # 6 times (28µs+0s) by Type::Tiny::AUTOLOAD at line 1420, avg 5µs/call # 6 times (7µs+0s) by Type::Tiny::AUTOLOAD at line 1428, avg 1µs/call # 6 times (7µs+0s) by Type::Tiny::can at line 1398, avg 1µs/call # 3 times (7µs+0s) by JSON::Schema::Modern::_assert__metaschema_vocabulary_classes at line 24 of (eval 360)[Sub/Quote.pm:3], avg 2µs/call # once (9µs+0s) by JSON::Schema::Modern::new at line 98 of (eval 416)[Sub/Quote.pm:3] # once (3µs+0s) by Type::Tiny::__ANON__[(eval 422)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] at line 16 of (eval 422)[Sub/Quote.pm:3] # once (3µs+0s) by JSON::Schema::Modern::new at line 106 of (eval 416)[Sub/Quote.pm:3] # once (2µs+0s) by JSON::Schema::Modern::Result::new at line 99 of (eval 433)[Sub/Quote.pm:3]
sub Type::Tiny::CORE:match; # opcode
# spent 147µs within Type::Tiny::CORE:sort which was called 137 times, avg 1µs/call: # 73 times (114µs+0s) by Type::Tiny::inline_assert at line 935, avg 2µs/call # 64 times (33µs+0s) by Type::Tiny::inline_assert at line 947, avg 516ns/call
sub Type::Tiny::CORE:sort; # opcode
# spent 345µs (106+239) within Type::Tiny::CORE:subst which was called 33 times, avg 10µs/call: # 33 times (106µs+239µs) by Type::Tiny::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny.pm:524] at line 522, avg 10µs/call
sub Type::Tiny::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.