← Index
NYTProf Performance Profile   « block view • line view • sub view »
For -e
  Run on Wed Nov 17 21:45:08 2010
Reported on Wed Nov 17 22:11:03 2010

Filename/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Moose/Util/TypeConstraints.pm
StatementsExecuted 6778 statements in 113ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1119161050.2ms131msMoose::Util::TypeConstraints::::find_type_constraintMoose::Util::TypeConstraints::find_type_constraint
129315.83ms23.6msMoose::Util::TypeConstraints::::register_type_constraintMoose::Util::TypeConstraints::register_type_constraint
84214.25ms50.4msMoose::Util::TypeConstraints::::create_role_type_constraintMoose::Util::TypeConstraints::create_role_type_constraint
26213.79ms31.2msMoose::Util::TypeConstraints::::_create_type_constraintMoose::Util::TypeConstraints::_create_type_constraint
1113.64ms16.1msMoose::Util::TypeConstraints::::BEGIN@30Moose::Util::TypeConstraints::BEGIN@30
1113.63ms3.94msMoose::Util::TypeConstraints::::BEGIN@596Moose::Util::TypeConstraints::BEGIN@596
1113.11ms10.2msMoose::Util::TypeConstraints::::BEGIN@36Moose::Util::TypeConstraints::BEGIN@36
59313.01ms15.3msMoose::Util::TypeConstraints::::find_or_parse_type_constraintMoose::Util::TypeConstraints::find_or_parse_type_constraint
1112.95ms8.90msMoose::Util::TypeConstraints::::BEGIN@33Moose::Util::TypeConstraints::BEGIN@33
251822.84ms34.1msMoose::Util::TypeConstraints::::subtypeMoose::Util::TypeConstraints::subtype
1112.75ms3.43msMoose::Util::TypeConstraints::::BEGIN@40Moose::Util::TypeConstraints::BEGIN@40
83112.73ms67.8msMoose::Util::TypeConstraints::::role_typeMoose::Util::TypeConstraints::role_type
1112.62ms8.53msMoose::Util::TypeConstraints::::BEGIN@34Moose::Util::TypeConstraints::BEGIN@34
1112.51ms8.41msMoose::Util::TypeConstraints::::BEGIN@35Moose::Util::TypeConstraints::BEGIN@35
47212.39ms28.8msMoose::Util::TypeConstraints::::create_class_type_constraintMoose::Util::TypeConstraints::create_class_type_constraint
1112.38ms19.3msMoose::Util::TypeConstraints::::BEGIN@31Moose::Util::TypeConstraints::BEGIN@31
1112.06ms12.4msMoose::Util::TypeConstraints::::BEGIN@39Moose::Util::TypeConstraints::BEGIN@39
141011.67ms1.67msMoose::Util::TypeConstraints::::CORE:regcompMoose::Util::TypeConstraints::CORE:regcomp (opcode)
41331.47ms13.4msMoose::Util::TypeConstraints::::find_or_create_isa_type_constraintMoose::Util::TypeConstraints::find_or_create_isa_type_constraint
45111.46ms37.2msMoose::Util::TypeConstraints::::class_typeMoose::Util::TypeConstraints::class_type
59111.42ms3.44msMoose::Util::TypeConstraints::::normalize_type_constraint_nameMoose::Util::TypeConstraints::normalize_type_constraint_name
5911616µs2.02msMoose::Util::TypeConstraints::::CORE:substMoose::Util::TypeConstraints::CORE:subst (opcode)
1222557µs3.92msMoose::Util::TypeConstraints::::find_or_create_type_constraintMoose::Util::TypeConstraints::find_or_create_type_constraint
3231535µs1.28msMoose::Util::TypeConstraints::::CORE:matchMoose::Util::TypeConstraints::CORE:match (opcode)
25182322µs322µsMoose::Util::TypeConstraints::::asMoose::Util::TypeConstraints::as
25252319µs319µsMoose::Util::TypeConstraints::::whereMoose::Util::TypeConstraints::where
611258µs354µsMoose::Util::TypeConstraints::::__ANON__[:806]Moose::Util::TypeConstraints::__ANON__[:806]
611247µs2.34msMoose::Util::TypeConstraints::::find_or_create_does_type_constraintMoose::Util::TypeConstraints::find_or_create_does_type_constraint
411202µs779µsMoose::Util::TypeConstraints::::__ANON__[:807]Moose::Util::TypeConstraints::__ANON__[:807]
311143µs571µsMoose::Util::TypeConstraints::::_detect_type_constraint_unionMoose::Util::TypeConstraints::_detect_type_constraint_union
13131133µs133µsMoose::Util::TypeConstraints::::optimize_asMoose::Util::TypeConstraints::optimize_as
111123µs1.21msMoose::Util::TypeConstraints::::typeMoose::Util::TypeConstraints::type
211107µs410µsMoose::Util::TypeConstraints::::__ANON__[:828]Moose::Util::TypeConstraints::__ANON__[:828]
311104µs299µsMoose::Util::TypeConstraints::::_detect_parameterized_type_constraintMoose::Util::TypeConstraints::_detect_parameterized_type_constraint
61197µs97µsMoose::Util::TypeConstraints::::__ANON__[:714]Moose::Util::TypeConstraints::__ANON__[:714]
1010189µs89µsMoose::Util::TypeConstraints::::CORE:qrMoose::Util::TypeConstraints::CORE:qr (opcode)
11171µs1.97msMoose::Util::TypeConstraints::::enumMoose::Util::TypeConstraints::enum
61167µs67µsMoose::Util::TypeConstraints::::get_all_parameterizable_typesMoose::Util::TypeConstraints::get_all_parameterizable_types
11161µs61µsMoose::Util::TypeConstraints::::BEGIN@32Moose::Util::TypeConstraints::BEGIN@32
61161µs61µsMoose::Util::TypeConstraints::::__ANON__[:707]Moose::Util::TypeConstraints::__ANON__[:707]
11149µs1.61msMoose::Util::TypeConstraints::::create_enum_type_constraintMoose::Util::TypeConstraints::create_enum_type_constraint
33148µs48µsMoose::Util::TypeConstraints::::messageMoose::Util::TypeConstraints::message
11148µs119µsMoose::Util::TypeConstraints::::BEGIN@649Moose::Util::TypeConstraints::BEGIN@649
11145µs45µsMoose::Util::TypeConstraints::::BEGIN@4Moose::Util::TypeConstraints::BEGIN@4
11143µs97µsMoose::Util::TypeConstraints::::BEGIN@655Moose::Util::TypeConstraints::BEGIN@655
11142µs111µsMoose::Util::TypeConstraints::::BEGIN@66Moose::Util::TypeConstraints::BEGIN@66
11142µs74µsMoose::Util::TypeConstraints::::BEGIN@28Moose::Util::TypeConstraints::BEGIN@28
11141µs51µsMoose::Util::TypeConstraints::::list_all_type_constraintsMoose::Util::TypeConstraints::list_all_type_constraints
11140µs97µsMoose::Util::TypeConstraints::::BEGIN@676Moose::Util::TypeConstraints::BEGIN@676
11138µs251µsMoose::Util::TypeConstraints::::BEGIN@5Moose::Util::TypeConstraints::BEGIN@5
11138µs93µsMoose::Util::TypeConstraints::::BEGIN@660Moose::Util::TypeConstraints::BEGIN@660
11138µs38µsMoose::Util::TypeConstraints::::BEGIN@37Moose::Util::TypeConstraints::BEGIN@37
11137µs196µsMoose::Util::TypeConstraints::::BEGIN@6Moose::Util::TypeConstraints::BEGIN@6
11137µs160µsMoose::Util::TypeConstraints::::BEGIN@7Moose::Util::TypeConstraints::BEGIN@7
11126µs26µsMoose::Util::TypeConstraints::::list_all_builtin_type_constraintsMoose::Util::TypeConstraints::list_all_builtin_type_constraints
11123µs23µsMoose::Util::TypeConstraints::::BEGIN@29Moose::Util::TypeConstraints::BEGIN@29
11123µs23µsMoose::Util::TypeConstraints::::BEGIN@38Moose::Util::TypeConstraints::BEGIN@38
0000s0sMoose::Util::TypeConstraints::::__ANON__[:278]Moose::Util::TypeConstraints::__ANON__[:278]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:315]Moose::Util::TypeConstraints::__ANON__[:315]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:327]Moose::Util::TypeConstraints::__ANON__[:327]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:710]Moose::Util::TypeConstraints::__ANON__[:710]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:711]Moose::Util::TypeConstraints::__ANON__[:711]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:716]Moose::Util::TypeConstraints::__ANON__[:716]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:719]Moose::Util::TypeConstraints::__ANON__[:719]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:71]Moose::Util::TypeConstraints::__ANON__[:71]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:722]Moose::Util::TypeConstraints::__ANON__[:722]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:726]Moose::Util::TypeConstraints::__ANON__[:726]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:729]Moose::Util::TypeConstraints::__ANON__[:729]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:732]Moose::Util::TypeConstraints::__ANON__[:732]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:734]Moose::Util::TypeConstraints::__ANON__[:734]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:737]Moose::Util::TypeConstraints::__ANON__[:737]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:745]Moose::Util::TypeConstraints::__ANON__[:745]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:751]Moose::Util::TypeConstraints::__ANON__[:751]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:755]Moose::Util::TypeConstraints::__ANON__[:755]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:758]Moose::Util::TypeConstraints::__ANON__[:758]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:761]Moose::Util::TypeConstraints::__ANON__[:761]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:766]Moose::Util::TypeConstraints::__ANON__[:766]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:777]Moose::Util::TypeConstraints::__ANON__[:777]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:785]Moose::Util::TypeConstraints::__ANON__[:785]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:786]Moose::Util::TypeConstraints::__ANON__[:786]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:795]Moose::Util::TypeConstraints::__ANON__[:795]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:816]Moose::Util::TypeConstraints::__ANON__[:816]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:827]Moose::Util::TypeConstraints::__ANON__[:827]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:837]Moose::Util::TypeConstraints::__ANON__[:837]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:844]Moose::Util::TypeConstraints::__ANON__[:844]
0000s0sMoose::Util::TypeConstraints::::__ANON__[:845]Moose::Util::TypeConstraints::__ANON__[:845]
0000s0sMoose::Util::TypeConstraints::::_confessMoose::Util::TypeConstraints::_confess
0000s0sMoose::Util::TypeConstraints::::_create_parameterized_type_constraintMoose::Util::TypeConstraints::_create_parameterized_type_constraint
0000s0sMoose::Util::TypeConstraints::::_install_type_coercionsMoose::Util::TypeConstraints::_install_type_coercions
0000s0sMoose::Util::TypeConstraints::::_parse_parameterized_type_constraintMoose::Util::TypeConstraints::_parse_parameterized_type_constraint
0000s0sMoose::Util::TypeConstraints::::_parse_type_constraint_unionMoose::Util::TypeConstraints::_parse_type_constraint_union
0000s0sMoose::Util::TypeConstraints::::_throw_errorMoose::Util::TypeConstraints::_throw_error
0000s0sMoose::Util::TypeConstraints::::add_parameterizable_typeMoose::Util::TypeConstraints::add_parameterizable_type
0000s0sMoose::Util::TypeConstraints::::coerceMoose::Util::TypeConstraints::coerce
0000s0sMoose::Util::TypeConstraints::::create_duck_type_constraintMoose::Util::TypeConstraints::create_duck_type_constraint
0000s0sMoose::Util::TypeConstraints::::create_parameterized_type_constraintMoose::Util::TypeConstraints::create_parameterized_type_constraint
0000s0sMoose::Util::TypeConstraints::::create_type_constraint_unionMoose::Util::TypeConstraints::create_type_constraint_union
0000s0sMoose::Util::TypeConstraints::::duck_typeMoose::Util::TypeConstraints::duck_type
0000s0sMoose::Util::TypeConstraints::::export_type_constraints_as_functionsMoose::Util::TypeConstraints::export_type_constraints_as_functions
0000s0sMoose::Util::TypeConstraints::::fromMoose::Util::TypeConstraints::from
0000s0sMoose::Util::TypeConstraints::::get_type_constraint_registryMoose::Util::TypeConstraints::get_type_constraint_registry
0000s0sMoose::Util::TypeConstraints::::match_on_typeMoose::Util::TypeConstraints::match_on_type
0000s0sMoose::Util::TypeConstraints::::maybe_typeMoose::Util::TypeConstraints::maybe_type
0000s0sMoose::Util::TypeConstraints::::viaMoose::Util::TypeConstraints::via
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1
2package Moose::Util::TypeConstraints;
3
43100µs145µs
# spent 45µs within Moose::Util::TypeConstraints::BEGIN@4 which was called: # once (45µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 4
use Carp ();
# spent 45µs making 1 call to Moose::Util::TypeConstraints::BEGIN@4
53116µs2463µs
# spent 251µs (38+212) within Moose::Util::TypeConstraints::BEGIN@5 which was called: # once (38µs+212µs) by Moose::Meta::Attribute::BEGIN@20 at line 5
use List::MoreUtils qw( all any );
# spent 251µs making 1 call to Moose::Util::TypeConstraints::BEGIN@5 # spent 212µs making 1 call to Exporter::import
63121µs2356µs
# spent 196µs (37+159) within Moose::Util::TypeConstraints::BEGIN@6 which was called: # once (37µs+159µs) by Moose::Meta::Attribute::BEGIN@20 at line 6
use Scalar::Util qw( blessed reftype );
# spent 196µs making 1 call to Moose::Util::TypeConstraints::BEGIN@6 # spent 159µs making 1 call to Exporter::import
73314µs2282µs
# spent 160µs (37+123) within Moose::Util::TypeConstraints::BEGIN@7 which was called: # once (37µs+123µs) by Moose::Meta::Attribute::BEGIN@20 at line 7
use Moose::Exporter;
# spent 160µs making 1 call to Moose::Util::TypeConstraints::BEGIN@7 # spent 123µs making 1 call to Moose::Exporter::import
8
9110µsour $VERSION = '1.19';
10191µs$VERSION = eval $VERSION;
# spent 13µs executing statements in string eval
1114µsour $AUTHORITY = 'cpan:STEVAN';
12
13## --------------------------------------------------------
14# Prototyped subs must be predeclared because we have a
15# circular dependency with Moose::Meta::Attribute et. al.
16# so in case of us being use'd first the predeclaration
17# ensures the prototypes are in scope when consumers are
18# compiled.
19
20# dah sugah!
21sub where (&);
22sub via (&);
23sub message (&);
24sub optimize_as (&);
25
26## --------------------------------------------------------
27
28396µs2106µs
# spent 74µs (42+32) within Moose::Util::TypeConstraints::BEGIN@28 which was called: # once (42µs+32µs) by Moose::Meta::Attribute::BEGIN@20 at line 28
use Moose::Deprecated;
# spent 74µs making 1 call to Moose::Util::TypeConstraints::BEGIN@28 # spent 32µs making 1 call to Package::DeprecationManager::__ANON__[Package/DeprecationManager.pm:61]
293162µs123µs
# spent 23µs within Moose::Util::TypeConstraints::BEGIN@29 which was called: # once (23µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 29
use Moose::Meta::TypeConstraint;
# spent 23µs making 1 call to Moose::Util::TypeConstraints::BEGIN@29
303562µs116.1ms
# spent 16.1ms (3.64+12.4) within Moose::Util::TypeConstraints::BEGIN@30 which was called: # once (3.64ms+12.4ms) by Moose::Meta::Attribute::BEGIN@20 at line 30
use Moose::Meta::TypeConstraint::Union;
# spent 16.1ms making 1 call to Moose::Util::TypeConstraints::BEGIN@30
313753µs119.3ms
# spent 19.3ms (2.38+16.9) within Moose::Util::TypeConstraints::BEGIN@31 which was called: # once (2.38ms+16.9ms) by Moose::Meta::Attribute::BEGIN@20 at line 31
use Moose::Meta::TypeConstraint::Parameterized;
# spent 19.3ms making 1 call to Moose::Util::TypeConstraints::BEGIN@31
323126µs161µs
# spent 61µs within Moose::Util::TypeConstraints::BEGIN@32 which was called: # once (61µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 32
use Moose::Meta::TypeConstraint::Parameterizable;
# spent 61µs making 1 call to Moose::Util::TypeConstraints::BEGIN@32
333489µs18.90ms
# spent 8.90ms (2.95+5.95) within Moose::Util::TypeConstraints::BEGIN@33 which was called: # once (2.95ms+5.95ms) by Moose::Meta::Attribute::BEGIN@20 at line 33
use Moose::Meta::TypeConstraint::Class;
# spent 8.90ms making 1 call to Moose::Util::TypeConstraints::BEGIN@33
343492µs18.53ms
# spent 8.53ms (2.62+5.91) within Moose::Util::TypeConstraints::BEGIN@34 which was called: # once (2.62ms+5.91ms) by Moose::Meta::Attribute::BEGIN@20 at line 34
use Moose::Meta::TypeConstraint::Role;
# spent 8.53ms making 1 call to Moose::Util::TypeConstraints::BEGIN@34
353497µs18.41ms
# spent 8.41ms (2.51+5.90) within Moose::Util::TypeConstraints::BEGIN@35 which was called: # once (2.51ms+5.90ms) by Moose::Meta::Attribute::BEGIN@20 at line 35
use Moose::Meta::TypeConstraint::Enum;
# spent 8.41ms making 1 call to Moose::Util::TypeConstraints::BEGIN@35
363502µs110.2ms
# spent 10.2ms (3.11+7.06) within Moose::Util::TypeConstraints::BEGIN@36 which was called: # once (3.11ms+7.06ms) by Moose::Meta::Attribute::BEGIN@20 at line 36
use Moose::Meta::TypeConstraint::DuckType;
# spent 10.2ms making 1 call to Moose::Util::TypeConstraints::BEGIN@36
373103µs138µs
# spent 38µs within Moose::Util::TypeConstraints::BEGIN@37 which was called: # once (38µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 37
use Moose::Meta::TypeCoercion;
# spent 38µs making 1 call to Moose::Util::TypeConstraints::BEGIN@37
38384µs123µs
# spent 23µs within Moose::Util::TypeConstraints::BEGIN@38 which was called: # once (23µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 38
use Moose::Meta::TypeCoercion::Union;
# spent 23µs making 1 call to Moose::Util::TypeConstraints::BEGIN@38
393597µs112.4ms
# spent 12.4ms (2.06+10.3) within Moose::Util::TypeConstraints::BEGIN@39 which was called: # once (2.06ms+10.3ms) by Moose::Meta::Attribute::BEGIN@20 at line 39
use Moose::Meta::TypeConstraint::Registry;
# spent 12.4ms making 1 call to Moose::Util::TypeConstraints::BEGIN@39
403932µs13.43ms
# spent 3.43ms (2.75+678µs) within Moose::Util::TypeConstraints::BEGIN@40 which was called: # once (2.75ms+678µs) by Moose::Meta::Attribute::BEGIN@20 at line 40
use Moose::Util::TypeConstraints::OptimizedConstraints;
# spent 3.43ms making 1 call to Moose::Util::TypeConstraints::BEGIN@40
41
42137µs15.76msMoose::Exporter->setup_import_methods(
# spent 5.76ms making 1 call to Moose::Exporter::setup_import_methods
43 as_is => [
44 qw(
45 type subtype class_type role_type maybe_type duck_type
46 as where message optimize_as
47 coerce from via
48 enum
49 find_type_constraint
50 register_type_constraint
51 match_on_type )
52 ],
53);
54
55## --------------------------------------------------------
56## type registry and some useful functions for it
57## --------------------------------------------------------
58
59115µs11.58msmy $REGISTRY = Moose::Meta::TypeConstraint::Registry->new;
# spent 1.58ms making 1 call to Moose::Meta::TypeConstraint::Registry::new
60
61sub get_type_constraint_registry {$REGISTRY}
62139µs110µs
# spent 51µs (41+10) within Moose::Util::TypeConstraints::list_all_type_constraints which was called: # once (41µs+10µs) by Moose::Meta::Attribute::BEGIN@20 at line 869
sub list_all_type_constraints { keys %{ $REGISTRY->type_constraints } }
# spent 10µs making 1 call to Moose::Meta::TypeConstraint::Registry::type_constraints
63
64sub export_type_constraints_as_functions {
65 my $pkg = caller();
6637.83ms2179µs
# spent 111µs (42+68) within Moose::Util::TypeConstraints::BEGIN@66 which was called: # once (42µs+68µs) by Moose::Meta::Attribute::BEGIN@20 at line 66
no strict 'refs';
# spent 111µs making 1 call to Moose::Util::TypeConstraints::BEGIN@66 # spent 68µs making 1 call to strict::unimport
67 foreach my $constraint ( keys %{ $REGISTRY->type_constraints } ) {
68 my $tc = $REGISTRY->get_type_constraint($constraint)
69 ->_compiled_type_constraint;
70 *{"${pkg}::${constraint}"}
71 = sub { $tc->( $_[0] ) ? 1 : undef }; # the undef is for compat
72 }
73}
74
75sub create_type_constraint_union {
76 my @type_constraint_names;
77
78 if ( scalar @_ == 1 && _detect_type_constraint_union( $_[0] ) ) {
79 @type_constraint_names = _parse_type_constraint_union( $_[0] );
80 }
81 else {
82 @type_constraint_names = @_;
83 }
84
85 ( scalar @type_constraint_names >= 2 )
86 || __PACKAGE__->_throw_error(
87 "You must pass in at least 2 type names to make a union");
88
89 my @type_constraints = map {
90 find_or_parse_type_constraint($_)
91 || __PACKAGE__->_throw_error(
92 "Could not locate type constraint ($_) for the union");
93 } @type_constraint_names;
94
95 return Moose::Meta::TypeConstraint::Union->new(
96 type_constraints => \@type_constraints );
97}
98
99sub create_parameterized_type_constraint {
100 my $type_constraint_name = shift;
101 my ( $base_type, $type_parameter )
102 = _parse_parameterized_type_constraint($type_constraint_name);
103
104 ( defined $base_type && defined $type_parameter )
105 || __PACKAGE__->_throw_error(
106 "Could not parse type name ($type_constraint_name) correctly");
107
108 if ( $REGISTRY->has_type_constraint($base_type) ) {
109 my $base_type_tc = $REGISTRY->get_type_constraint($base_type);
110 return _create_parameterized_type_constraint(
111 $base_type_tc,
112 $type_parameter
113 );
114 }
115 else {
116 __PACKAGE__->_throw_error(
117 "Could not locate the base type ($base_type)");
118 }
119}
120
121sub _create_parameterized_type_constraint {
122 my ( $base_type_tc, $type_parameter ) = @_;
123 if ( $base_type_tc->can('parameterize') ) {
124 return $base_type_tc->parameterize($type_parameter);
125 }
126 else {
127 return Moose::Meta::TypeConstraint::Parameterized->new(
128 name => $base_type_tc->name . '[' . $type_parameter . ']',
129 parent => $base_type_tc,
130 type_parameter =>
131 find_or_create_isa_type_constraint($type_parameter),
132 );
133 }
134}
135
136#should we also support optimized checks?
137
# spent 28.8ms (2.39+26.4) within Moose::Util::TypeConstraints::create_class_type_constraint which was called 47 times, avg 613µs/call: # 45 times (2.29ms+25.4ms) by Moose::Util::TypeConstraints::class_type at line 362, avg 615µs/call # 2 times (100µs+1.06ms) by Moose::Util::TypeConstraints::find_or_create_isa_type_constraint at line 204, avg 578µs/call
sub create_class_type_constraint {
1381882.41ms my ( $class, $options ) = @_;
139
140# too early for this check
141#find_type_constraint("ClassName")->check($class)
142# || __PACKAGE__->_throw_error("Can't create a class type constraint because '$class' is not a class name");
143
144 my %options = (
145 class => $class,
146 name => $class,
147 %{ $options || {} },
148 );
149
150 $options{name} ||= "__ANON__";
151
1524726.4ms Moose::Meta::TypeConstraint::Class->new(%options);
# spent 26.4ms making 47 calls to Moose::Meta::TypeConstraint::Class::new, avg 562µs/call
153}
154
155
# spent 50.4ms (4.25+46.2) within Moose::Util::TypeConstraints::create_role_type_constraint which was called 84 times, avg 601µs/call: # 83 times (4.21ms+45.7ms) by Moose::Util::TypeConstraints::role_type at line 371, avg 601µs/call # once (47µs+515µs) by Moose::Util::TypeConstraints::find_or_create_does_type_constraint at line 210
sub create_role_type_constraint {
1563364.35ms my ( $role, $options ) = @_;
157
158# too early for this check
159#find_type_constraint("ClassName")->check($class)
160# || __PACKAGE__->_throw_error("Can't create a class type constraint because '$class' is not a class name");
161
162 my %options = (
163 role => $role,
164 name => $role,
165 %{ $options || {} },
166 );
167
168 $options{name} ||= "__ANON__";
169
1708446.2ms Moose::Meta::TypeConstraint::Role->new(%options);
# spent 46.2ms making 84 calls to Moose::Meta::TypeConstraint::Role::new, avg 550µs/call
171}
172
173
# spent 3.92ms (557µs+3.36) within Moose::Util::TypeConstraints::find_or_create_type_constraint which was called 12 times, avg 327µs/call: # 6 times (319µs+2.10ms) by Moose::Meta::Attribute::Native::Trait::_check_helper_type at line 93 of Moose/Meta/Attribute/Native/Trait.pm, avg 404µs/call # 6 times (238µs+1.26ms) by MooseX::Types::create_arged_type_constraint at line 429 of MooseX/Types.pm, avg 250µs/call
sub find_or_create_type_constraint {
17424242µs my ( $type_constraint_name, $options_for_anon_type ) = @_;
175
1761179µs243.36ms if ( my $constraint
# spent 3.27ms making 12 calls to Moose::Util::TypeConstraints::find_or_parse_type_constraint, avg 273µs/call # spent 43µs making 6 calls to MooseX::Types::TypeDecorator::__ANON__[MooseX/Types/TypeDecorator.pm:27], avg 7µs/call # spent 43µs making 6 calls to Moose::Meta::TypeConstraint::__ANON__[Moose/Meta/TypeConstraint.pm:10], avg 7µs/call
177 = find_or_parse_type_constraint($type_constraint_name) ) {
178 return $constraint;
179 }
180 elsif ( defined $options_for_anon_type ) {
181
182 # NOTE:
183 # if there is no $options_for_anon_type
184 # specified, then we assume they don't
185 # want to create one, and return nothing.
186
187 # otherwise assume that we should create
188 # an ANON type with the $options_for_anon_type
189 # options which can be passed in. It should
190 # be noted that these don't get registered
191 # so we need to return it.
192 # - SL
193 return Moose::Meta::TypeConstraint->new(
194 name => '__ANON__',
195 %{$options_for_anon_type}
196 );
197 }
198
199 return;
200}
201
202
# spent 13.4ms (1.47+11.9) within Moose::Util::TypeConstraints::find_or_create_isa_type_constraint which was called 41 times, avg 327µs/call: # 18 times (695µs+6.24ms) by Moose::Meta::Attribute::_process_isa_option at line 325 of Moose/Meta/Attribute.pm, avg 385µs/call # 17 times (572µs+3.65ms) by Moose::Util::TypeConstraints::_create_type_constraint at line 547, avg 248µs/call # 6 times (206µs+2.05ms) by Moose::Meta::TypeConstraint::Parameterizable::_parse_type_parameter at line 47 of Moose/Meta/TypeConstraint/Parameterizable.pm, avg 375µs/call
sub find_or_create_isa_type_constraint {
20382823µs my $type_constraint_name = shift;
2041540µs8211.9ms find_or_parse_type_constraint($type_constraint_name)
# spent 10.5ms making 41 calls to Moose::Util::TypeConstraints::find_or_parse_type_constraint, avg 256µs/call # spent 1.16ms making 2 calls to Moose::Util::TypeConstraints::create_class_type_constraint, avg 578µs/call # spent 248µs making 33 calls to Moose::Meta::TypeConstraint::__ANON__[Moose/Meta/TypeConstraint.pm:10], avg 8µs/call # spent 45µs making 6 calls to MooseX::Types::TypeDecorator::__ANON__[MooseX/Types/TypeDecorator.pm:27], avg 7µs/call
205 || create_class_type_constraint($type_constraint_name);
206}
207
208
# spent 2.34ms (247µs+2.09) within Moose::Util::TypeConstraints::find_or_create_does_type_constraint which was called 6 times, avg 389µs/call: # 6 times (247µs+2.09ms) by Moose::Meta::Attribute::_process_does_option at line 342 of Moose/Meta/Attribute.pm, avg 389µs/call
sub find_or_create_does_type_constraint {
20912132µs my $type_constraint_name = shift;
210162µs122.09ms find_or_parse_type_constraint($type_constraint_name)
# spent 1.49ms making 6 calls to Moose::Util::TypeConstraints::find_or_parse_type_constraint, avg 249µs/call # spent 562µs making 1 call to Moose::Util::TypeConstraints::create_role_type_constraint # spent 36µs making 5 calls to Moose::Meta::TypeConstraint::__ANON__[Moose/Meta/TypeConstraint.pm:10], avg 7µs/call
211 || create_role_type_constraint($type_constraint_name);
212}
213
214
# spent 15.3ms (3.01+12.2) within Moose::Util::TypeConstraints::find_or_parse_type_constraint which was called 59 times, avg 259µs/call: # 41 times (2.09ms+8.40ms) by Moose::Util::TypeConstraints::find_or_create_isa_type_constraint at line 204, avg 256µs/call # 12 times (596µs+2.68ms) by Moose::Util::TypeConstraints::find_or_create_type_constraint at line 176, avg 273µs/call # 6 times (320µs+1.17ms) by Moose::Util::TypeConstraints::find_or_create_does_type_constraint at line 210, avg 249µs/call
sub find_or_parse_type_constraint {
2151771.93ms593.44ms my $type_constraint_name = normalize_type_constraint_name(shift);
# spent 3.44ms making 59 calls to Moose::Util::TypeConstraints::normalize_type_constraint_name, avg 58µs/call
216 my $constraint;
217
2183771µs1218.81ms if ( $constraint = find_type_constraint($type_constraint_name) ) {
# spent 7.44ms making 59 calls to Moose::Util::TypeConstraints::find_type_constraint, avg 126µs/call # spent 571µs making 3 calls to Moose::Util::TypeConstraints::_detect_type_constraint_union, avg 190µs/call # spent 402µs making 44 calls to Moose::Meta::TypeConstraint::__ANON__[Moose/Meta/TypeConstraint.pm:10], avg 9µs/call # spent 299µs making 3 calls to Moose::Util::TypeConstraints::_detect_parameterized_type_constraint, avg 100µs/call # spent 101µs making 12 calls to MooseX::Types::TypeDecorator::__ANON__[MooseX/Types/TypeDecorator.pm:27], avg 8µs/call
219 return $constraint;
220 }
221 elsif ( _detect_type_constraint_union($type_constraint_name) ) {
222 $constraint = create_type_constraint_union($type_constraint_name);
223 }
224 elsif ( _detect_parameterized_type_constraint($type_constraint_name) ) {
225 $constraint
226 = create_parameterized_type_constraint($type_constraint_name);
227 }
228 else {
229 return;
230 }
231
232 $REGISTRY->add_type_constraint($constraint);
233 return $constraint;
234}
235
236
# spent 3.44ms (1.42+2.02) within Moose::Util::TypeConstraints::normalize_type_constraint_name which was called 59 times, avg 58µs/call: # 59 times (1.42ms+2.02ms) by Moose::Util::TypeConstraints::find_or_parse_type_constraint at line 215, avg 58µs/call
sub normalize_type_constraint_name {
2371771.99ms my $type_constraint_name = shift;
2381170µs713.42ms $type_constraint_name =~ s/\s//g;
# spent 2.02ms making 59 calls to Moose::Util::TypeConstraints::CORE:subst, avg 34µs/call # spent 1.40ms making 12 calls to MooseX::Types::TypeDecorator::__ANON__[MooseX/Types/TypeDecorator.pm:26], avg 117µs/call
239 return $type_constraint_name;
240}
241
242sub _confess {
243 my $error = shift;
244
245 local $Carp::CarpLevel = $Carp::CarpLevel + 1;
246 Carp::confess($error);
247}
248
249## --------------------------------------------------------
250## exported functions ...
251## --------------------------------------------------------
252
253
# spent 131ms (50.2+80.7) within Moose::Util::TypeConstraints::find_type_constraint which was called 1119 times, avg 117µs/call: # 648 times (29.8ms+50.0ms) by MooseX::Types::Base::import at line 64 of MooseX/Types/Base.pm, avg 123µs/call # 84 times (3.95ms+6.98ms) by Moose::Meta::TypeConstraint::Role::new at line 23 of Moose/Meta/TypeConstraint/Role.pm, avg 130µs/call # 83 times (3.60ms+4.36ms) by Moose::Role::init_meta at line 117 of Moose/Role.pm, avg 96µs/call # 68 times (3.41ms+5.50ms) by MooseX::Types::create_base_type_constraint at line 452 of MooseX/Types.pm, avg 131µs/call # 59 times (2.60ms+4.84ms) by Moose::Util::TypeConstraints::find_or_parse_type_constraint at line 218, avg 126µs/call # 53 times (1.45ms+556µs) by Moose::Meta::TypeConstraint::equals at line 155 of Moose/Meta/TypeConstraint.pm, avg 38µs/call # 47 times (2.17ms+3.80ms) by Moose::Meta::TypeConstraint::Class::new at line 23 of Moose/Meta/TypeConstraint/Class.pm, avg 127µs/call # 45 times (1.87ms+2.39ms) by Moose::init_meta at line 162 of Moose.pm, avg 95µs/call # 18 times (765µs+1.25ms) by Moose::Meta::TypeConstraint::is_subtype_of at line 186 of Moose/Meta/TypeConstraint.pm, avg 112µs/call # 6 times (285µs+578µs) by Moose::Meta::TypeConstraint::is_a_type_of at line 178 of Moose/Meta/TypeConstraint.pm, avg 144µs/call # 3 times (87µs+35µs) by Moose::Meta::TypeConstraint::Parameterized::equals at line 25 of Moose/Meta/TypeConstraint/Parameterized.pm, avg 40µs/call # once (55µs+92µs) by Moose::Meta::Attribute::BEGIN@20 at line 788 # once (47µs+79µs) by Moose::Meta::TypeConstraint::Enum::new at line 22 of Moose/Meta/TypeConstraint/Enum.pm # once (47µs+74µs) by Moose::Meta::Attribute::BEGIN@20 at line 809 # once (45µs+72µs) by Moose::Meta::Attribute::BEGIN@20 at line 830 # once (44µs+71µs) by Moose::Meta::Attribute::BEGIN@20 at line 847
sub find_type_constraint {
254223824.3ms my $type = shift;
255
256194530.2ms11917.41ms if ( blessed $type and $type->isa("Moose::Meta::TypeConstraint") ) {
# spent 5.99ms making 1119 calls to Scalar::Util::blessed, avg 5µs/call # spent 1.03ms making 12 calls to MooseX::Types::TypeDecorator::isa, avg 86µs/call # spent 393µs making 60 calls to UNIVERSAL::isa, avg 7µs/call
257 return $type;
258 }
259 else {
260104740.1ms return unless $REGISTRY->has_type_constraint($type);
# spent 40.1ms making 1047 calls to Moose::Meta::TypeConstraint::Registry::has_type_constraint, avg 38µs/call
26189833.3ms return $REGISTRY->get_type_constraint($type);
# spent 33.3ms making 898 calls to Moose::Meta::TypeConstraint::Registry::get_type_constraint, avg 37µs/call
262 }
263}
264
265
# spent 23.6ms (5.83+17.8) within Moose::Util::TypeConstraints::register_type_constraint which was called 129 times, avg 183µs/call: # 83 times (3.78ms+11.4ms) by Moose::Util::TypeConstraints::role_type at line 371, avg 183µs/call # 45 times (2.00ms+6.11ms) by Moose::Util::TypeConstraints::class_type at line 362, avg 180µs/call # once (46µs+247µs) by Moose::Util::TypeConstraints::enum at line 450
sub register_type_constraint {
2665164.94ms my $constraint = shift;
2671291.72ms __PACKAGE__->_throw_error("can't register an unnamed type constraint")
# spent 1.72ms making 129 calls to Moose::Meta::TypeConstraint::name, avg 13µs/call
268 unless defined $constraint->name;
26912916.0ms $REGISTRY->add_type_constraint($constraint);
# spent 16.0ms making 129 calls to Moose::Meta::TypeConstraint::Registry::add_type_constraint, avg 124µs/call
270 return $constraint;
271}
272
273# type constructors
274
275
# spent 1.21ms (123µs+1.09) within Moose::Util::TypeConstraints::type which was called: # once (123µs+1.09ms) by Moose::Meta::Attribute::BEGIN@20 at line 707
sub type {
276
277 # back-compat version, called without sugar
2786178µs366µs if ( !any { ( reftype($_) || '' ) eq 'HASH' } @_ ) {
# spent 54µs making 1 call to List::MoreUtils::any # spent 12µs making 2 calls to Scalar::Util::reftype, avg 6µs/call
279 Moose::Deprecated::deprecated(
280 feature => 'type without sugar',
281 message =>
282 'Calling type() with a simple list of parameters is deprecated'
283 );
284
285 return _create_type_constraint( $_[0], undef, $_[1] );
286 }
287
288 my $name = shift;
289
290 my %p = map { %{$_} } @_;
291
29211.03ms return _create_type_constraint(
# spent 1.03ms making 1 call to Moose::Util::TypeConstraints::_create_type_constraint
293 $name, undef, $p{where}, $p{message},
294 $p{optimize_as}
295 );
296}
297
298
# spent 34.1ms (2.84+31.3) within Moose::Util::TypeConstraints::subtype which was called 25 times, avg 1.36ms/call: # 8 times (1.01ms+13.6ms) by MooseX::Types::CheckedUtilExports::subtype at line 63 of MooseX/Types/CheckedUtilExports.pm, avg 1.82ms/call # once (139µs+1.35ms) by Moose::Meta::Attribute::BEGIN@20 at line 710 # once (124µs+1.36ms) by Moose::Meta::Attribute::BEGIN@20 at line 711 # once (104µs+1.36ms) by Moose::Meta::Attribute::BEGIN@20 at line 708 # once (104µs+1.28ms) by Moose::Meta::Attribute::BEGIN@20 at line 714 # once (98µs+1.04ms) by Moose::Meta::Attribute::BEGIN@20 at line 730 # once (105µs+1.01ms) by Moose::Meta::Attribute::BEGIN@20 at line 717 # once (118µs+965µs) by Moose::Meta::Attribute::BEGIN@20 at line 745 # once (101µs+966µs) by Moose::Meta::Attribute::BEGIN@20 at line 735 # once (130µs+919µs) by Moose::Meta::Attribute::BEGIN@20 at line 752 # once (101µs+947µs) by Moose::Meta::Attribute::BEGIN@20 at line 723 # once (102µs+942µs) by Moose::Meta::Attribute::BEGIN@20 at line 766 # once (102µs+938µs) by Moose::Meta::Attribute::BEGIN@20 at line 738 # once (101µs+928µs) by Moose::Meta::Attribute::BEGIN@20 at line 720 # once (100µs+928µs) by Moose::Meta::Attribute::BEGIN@20 at line 761 # once (102µs+920µs) by Moose::Meta::Attribute::BEGIN@20 at line 733 # once (99µs+920µs) by Moose::Meta::Attribute::BEGIN@20 at line 756 # once (99µs+907µs) by Moose::Meta::Attribute::BEGIN@20 at line 727
sub subtype {
299
300 # crazy back-compat code for being called without sugar ...
301 #
302 # subtype 'Parent', sub { where };
3032002.68ms16µs if ( scalar @_ == 2 && ( reftype( $_[1] ) || '' ) eq 'CODE' ) {
# spent 6µs making 1 call to Scalar::Util::reftype
304 Moose::Deprecated::deprecated(
305 feature => 'subtype without sugar',
306 message =>
307 'Calling subtype() with a simple list of parameters is deprecated'
308 );
309
310 return _create_type_constraint( undef, @_ );
311 }
312
313 # subtype 'Parent', sub { where }, sub { message };
314 # subtype 'Parent', sub { where }, sub { message }, sub { optimized };
31524863µs48867µs if ( scalar @_ >= 3 && all { ( reftype($_) || '' ) eq 'CODE' }
# spent 725µs making 24 calls to List::MoreUtils::all, avg 30µs/call # spent 142µs making 24 calls to Scalar::Util::reftype, avg 6µs/call
316 @_[ 1 .. $#_ ] ) {
317 Moose::Deprecated::deprecated(
318 feature => 'subtype without sugar',
319 message =>
320 'Calling subtype() with a simple list of parameters is deprecated'
321 );
322
323 return _create_type_constraint( undef, @_ );
324 }
325
326 # subtype 'Name', 'Parent', ...
32742520µs25354µs if ( scalar @_ >= 2 && all { !ref } @_[ 0, 1 ] ) {
# spent 354µs making 25 calls to List::MoreUtils::all, avg 14µs/call
328 Moose::Deprecated::deprecated(
329 feature => 'subtype without sugar',
330 message =>
331 'Calling subtype() with a simple list of parameters is deprecated'
332 );
333
334 return _create_type_constraint(@_);
335 }
336
337 if ( @_ == 1 && !ref $_[0] ) {
338 __PACKAGE__->_throw_error(
339 'A subtype cannot consist solely of a name, it must have a parent'
340 );
341 }
342
343 # The blessed check is mostly to accommodate MooseX::Types, which
344 # uses an object which overloads stringification as a type name.
345845µs my $name = ref $_[0] && !blessed $_[0] ? undef : shift;
# spent 45µs making 8 calls to Scalar::Util::blessed, avg 6µs/call
346
347 my %p = map { %{$_} } @_;
348
349 # subtype Str => where { ... };
350 if ( !exists $p{as} ) {
351 $p{as} = $name;
352 $name = undef;
353 }
354
3552530.1ms return _create_type_constraint(
# spent 30.1ms making 25 calls to Moose::Util::TypeConstraints::_create_type_constraint, avg 1.21ms/call
356 $name, $p{as}, $p{where}, $p{message},
357 $p{optimize_as}
358 );
359}
360
361
# spent 37.2ms (1.46+35.8) within Moose::Util::TypeConstraints::class_type which was called 45 times, avg 827µs/call: # 45 times (1.46ms+35.8ms) by Moose::init_meta at line 162 of Moose.pm, avg 827µs/call
sub class_type {
362451.27ms9035.8ms register_type_constraint(
# spent 27.7ms making 45 calls to Moose::Util::TypeConstraints::create_class_type_constraint, avg 615µs/call # spent 8.11ms making 45 calls to Moose::Util::TypeConstraints::register_type_constraint, avg 180µs/call
363 create_class_type_constraint(
364 $_[0],
365 ( defined( $_[1] ) ? $_[1] : () ),
366 )
367 );
368}
369
370
# spent 67.8ms (2.73+65.1) within Moose::Util::TypeConstraints::role_type which was called 83 times, avg 817µs/call: # 83 times (2.73ms+65.1ms) by Moose::Role::init_meta at line 117 of Moose/Role.pm, avg 817µs/call
sub role_type ($;$) {
371832.39ms16665.1ms register_type_constraint(
# spent 49.9ms making 83 calls to Moose::Util::TypeConstraints::create_role_type_constraint, avg 601µs/call # spent 15.2ms making 83 calls to Moose::Util::TypeConstraints::register_type_constraint, avg 183µs/call
372 create_role_type_constraint(
373 $_[0],
374 ( defined( $_[1] ) ? $_[1] : () ),
375 )
376 );
377}
378
379sub maybe_type {
380 my ($type_parameter) = @_;
381
382 register_type_constraint(
383 $REGISTRY->get_type_constraint('Maybe')->parameterize($type_parameter)
384 );
385}
386
387sub duck_type {
388 my ( $type_name, @methods ) = @_;
389 if ( ref $type_name eq 'ARRAY' && !@methods ) {
390 @methods = @$type_name;
391 $type_name = undef;
392 }
393 if ( @methods == 1 && ref $methods[0] eq 'ARRAY' ) {
394 @methods = @{ $methods[0] };
395 }
396
397 register_type_constraint(
398 create_duck_type_constraint(
399 $type_name,
400 \@methods,
401 )
402 );
403}
404
405sub coerce {
406 my ( $type_name, @coercion_map ) = @_;
407 _install_type_coercions( $type_name, \@coercion_map );
408}
409
410# The trick of returning @_ lets us avoid having to specify a
411# prototype. Perl will parse this:
412#
413# subtype 'Foo'
414# => as 'Str'
415# => where { ... }
416#
417# as this:
418#
419# subtype( 'Foo', as( 'Str', where { ... } ) );
420#
421# If as() returns all it's extra arguments, this just works, and
422# preserves backwards compatibility.
42325455µs
# spent 322µs within Moose::Util::TypeConstraints::as which was called 25 times, avg 13µs/call: # 8 times (102µs+0s) by MooseX::Types::CheckedUtilExports::as at line 63 of MooseX/Types/CheckedUtilExports.pm, avg 13µs/call # once (17µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 723 # once (14µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 710 # once (14µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 708 # once (13µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 761 # once (13µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 738 # once (13µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 714 # once (13µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 717 # once (13µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 733 # once (13µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 766 # once (13µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 711 # once (12µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 752 # once (12µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 727 # once (12µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 735 # once (12µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 720 # once (12µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 756 # once (12µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 745 # once (12µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 730
sub as { { as => shift }, @_ }
42425470µs
# spent 319µs within Moose::Util::TypeConstraints::where which was called 25 times, avg 13µs/call: # once (39µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 710 # once (15µs+0s) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 45 of Markdent/Types/Internal.pm # once (13µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 707 # once (12µs+0s) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 33 of Markdent/Types/Internal.pm # once (12µs+0s) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 64 of Markdent/Types/Internal.pm # once (12µs+0s) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 57 of Markdent/Types/Internal.pm # once (12µs+0s) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 29 of Markdent/Types/Internal.pm # once (12µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 717 # once (12µs+0s) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 41 of Markdent/Types/Internal.pm # once (12µs+0s) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 37 of Markdent/Types/Internal.pm # once (12µs+0s) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 49 of Markdent/Types/Internal.pm # once (12µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 733 # once (12µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 711 # once (12µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 720 # once (12µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 714 # once (11µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 738 # once (11µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 730 # once (11µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 727 # once (11µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 761 # once (11µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 752 # once (11µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 745 # once (11µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 756 # once (11µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 723 # once (10µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 735 # once (10µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 766
sub where (&) { { where => $_[0] } }
425398µs
# spent 48µs within Moose::Util::TypeConstraints::message which was called 3 times, avg 16µs/call: # once (26µs+0s) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 64 of Markdent/Types/Internal.pm # once (11µs+0s) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 57 of Markdent/Types/Internal.pm # once (11µs+0s) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 29 of Markdent/Types/Internal.pm
sub message (&) { { message => $_[0] } }
42613202µs
# spent 133µs within Moose::Util::TypeConstraints::optimize_as which was called 13 times, avg 10µs/call: # once (13µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 723 # once (11µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 717 # once (10µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 727 # once (10µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 766 # once (10µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 738 # once (10µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 733 # once (10µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 720 # once (10µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 752 # once (10µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 756 # once (10µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 761 # once (10µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 730 # once (10µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 745 # once (10µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 735
sub optimize_as (&) { { optimize_as => $_[0] } }
427
428sub from {@_}
429sub via (&) { $_[0] }
430
431
# spent 1.97ms (71µs+1.90) within Moose::Util::TypeConstraints::enum which was called: # once (71µs+1.90ms) by MooseX::Types::CheckedUtilExports::enum at line 63 of MooseX/Types/CheckedUtilExports.pm
sub enum {
432449µs my ( $type_name, @values ) = @_;
433
434 # NOTE:
435 # if only an array-ref is passed then
436 # you get an anon-enum
437 # - SL
438 if ( ref $type_name eq 'ARRAY' ) {
439 @values == 0
440 || __PACKAGE__->_throw_error("enum called with an array reference and additional arguments. Did you mean to parenthesize the enum call's parameters?");
441
442 @values = @$type_name;
443 $type_name = undef;
444 }
445 if ( @values == 1 && ref $values[0] eq 'ARRAY' ) {
446 @values = @{ $values[0] };
447 }
448
449 register_type_constraint(
45021.90ms create_enum_type_constraint(
# spent 1.61ms making 1 call to Moose::Util::TypeConstraints::create_enum_type_constraint # spent 292µs making 1 call to Moose::Util::TypeConstraints::register_type_constraint
451 $type_name,
452 \@values,
453 )
454 );
455}
456
457
# spent 1.61ms (49µs+1.56) within Moose::Util::TypeConstraints::create_enum_type_constraint which was called: # once (49µs+1.56ms) by Moose::Util::TypeConstraints::enum at line 450
sub create_enum_type_constraint {
458247µs my ( $type_name, $values ) = @_;
459
460113µs21.56ms Moose::Meta::TypeConstraint::Enum->new(
# spent 1.55ms making 1 call to Moose::Meta::TypeConstraint::Enum::new # spent 8µs making 1 call to MooseX::Types::TypeDecorator::__ANON__[MooseX/Types/TypeDecorator.pm:27]
461 name => $type_name || '__ANON__',
462 values => $values,
463 );
464}
465
466sub create_duck_type_constraint {
467 my ( $type_name, $methods ) = @_;
468
469 Moose::Meta::TypeConstraint::DuckType->new(
470 name => $type_name || '__ANON__',
471 methods => $methods,
472 );
473}
474
475sub match_on_type {
476 my ($to_match, @cases) = @_;
477 my $default;
478 if (@cases % 2 != 0) {
479 $default = pop @cases;
480 (ref $default eq 'CODE')
481 || __PACKAGE__->_throw_error("Default case must be a CODE ref, not $default");
482 }
483 while (@cases) {
484 my ($type, $action) = splice @cases, 0, 2;
485
486 unless (blessed $type && $type->isa('Moose::Meta::TypeConstraint')) {
487 $type = find_or_parse_type_constraint($type)
488 || __PACKAGE__->_throw_error("Cannot find or parse the type '$type'")
489 }
490
491 (ref $action eq 'CODE')
492 || __PACKAGE__->_throw_error("Match action must be a CODE ref, not $action");
493
494 if ($type->check($to_match)) {
495 local $_ = $to_match;
496 return $action->($to_match);
497 }
498 }
499 (defined $default)
500 || __PACKAGE__->_throw_error("No cases matched for $to_match");
501 {
502 local $_ = $to_match;
503 return $default->($to_match);
504 }
505}
506
507
508## --------------------------------------------------------
509## desugaring functions ...
510## --------------------------------------------------------
511
512
# spent 31.2ms (3.79+27.4) within Moose::Util::TypeConstraints::_create_type_constraint which was called 26 times, avg 1.20ms/call: # 25 times (3.64ms+26.5ms) by Moose::Util::TypeConstraints::subtype at line 355, avg 1.21ms/call # once (148µs+883µs) by Moose::Util::TypeConstraints::type at line 292
sub _create_type_constraint ($$$;$$) {
5133122.56ms my $name = shift;
514 my $parent = shift;
515 my $check = shift;
516 my $message = shift;
517 my $optimized = shift;
518
519 my $pkg_defined_in = scalar( caller(1) );
520
52178918µs if ( defined $name ) {
522261.97ms my $type = $REGISTRY->get_type_constraint($name);
# spent 1.97ms making 26 calls to Moose::Meta::TypeConstraint::Registry::get_type_constraint, avg 76µs/call
523
524 ( $type->_package_defined_in eq $pkg_defined_in )
525 || _confess(
526 "The type constraint '$name' has already been created in "
527 . $type->_package_defined_in
528 . " and cannot be created again in "
529 . $pkg_defined_in )
530 if defined $type;
531
5321220µs341.99ms $name =~ /^[\w:\.]+$/
# spent 1.25ms making 26 calls to Moose::Util::TypeConstraints::CORE:match, avg 48µs/call # spent 744µs making 8 calls to MooseX::Types::TypeDecorator::__ANON__[MooseX/Types/TypeDecorator.pm:26], avg 93µs/call
533 or die qq{$name contains invalid characters for a type name.}
534 . qq{ Names can contain alphanumeric character, ":", and "."\n};
535 }
536
537 my %opts = (
538 name => $name,
539 package_defined_in => $pkg_defined_in,
540
541 ( $check ? ( constraint => $check ) : () ),
542 ( $message ? ( message => $message ) : () ),
543 ( $optimized ? ( optimized => $optimized ) : () ),
544 );
545
546 my $constraint;
5471426µs9220.4ms if (
# spent 8.62ms making 8 calls to MooseX::Types::TypeDecorator::AUTOLOAD, avg 1.08ms/call # spent 7.22ms making 17 calls to Moose::Meta::TypeConstraint::create_child_type, avg 425µs/call # spent 4.22ms making 17 calls to Moose::Util::TypeConstraints::find_or_create_isa_type_constraint, avg 248µs/call # spent 142µs making 25 calls to Scalar::Util::blessed, avg 6µs/call # spent 112µs making 17 calls to Moose::Meta::TypeConstraint::__ANON__[Moose/Meta/TypeConstraint.pm:10], avg 7µs/call # spent 61µs making 8 calls to MooseX::Types::TypeDecorator::__ANON__[MooseX/Types/TypeDecorator.pm:27], avg 8µs/call
548 defined $parent
549 and $parent
550 = blessed $parent
551 ? $parent
552 : find_or_create_isa_type_constraint($parent)
553 ) {
554 $constraint = $parent->create_child_type(%opts);
555 }
556 else {
5571658µs $constraint = Moose::Meta::TypeConstraint->new(%opts);
# spent 658µs making 1 call to Moose::Meta::TypeConstraint::new
558 }
559
560263.12ms $REGISTRY->add_type_constraint($constraint)
# spent 3.12ms making 26 calls to Moose::Meta::TypeConstraint::Registry::add_type_constraint, avg 120µs/call
561 if defined $name;
562
563 return $constraint;
564}
565
566sub _install_type_coercions ($$) {
567 my ( $type_name, $coercion_map ) = @_;
568 my $type = find_type_constraint($type_name);
569 ( defined $type )
570 || __PACKAGE__->_throw_error(
571 "Cannot find type '$type_name', perhaps you forgot to load it");
572 if ( $type->has_coercion ) {
573 $type->coercion->add_type_coercions(@$coercion_map);
574 }
575 else {
576 my $type_coercion = Moose::Meta::TypeCoercion->new(
577 type_coercion_map => $coercion_map,
578 type_constraint => $type
579 );
580 $type->coercion($type_coercion);
581 }
582}
583
584## --------------------------------------------------------
585## type notation parsing ...
586## --------------------------------------------------------
587
588{
589
590 # All I have to say is mugwump++ cause I know
591 # do not even have enough regexp-fu to be able
592 # to have written this (I can only barely
593 # understand it as it is)
594 # - SL
595
59641.30ms64.04ms
# spent 3.94ms (3.63+304µs) within Moose::Util::TypeConstraints::BEGIN@596 which was called: # once (3.63ms+304µs) by Moose::Meta::Attribute::BEGIN@20 at line 596
use re "eval";
# spent 3.94ms making 1 call to Moose::Util::TypeConstraints::BEGIN@596 # spent 87µs making 1 call to re::import # spent 14µs making 4 calls to Regexp::DESTROY, avg 4µs/call
597
5986282µs120µs my $valid_chars = qr{[\w:\.]};
# spent 20µs making 1 call to Moose::Util::TypeConstraints::CORE:qr
599259µs my $type_atom = qr{ (?>$valid_chars+) }x;
# spent 52µs making 1 call to Moose::Util::TypeConstraints::CORE:regcomp # spent 7µs making 1 call to Moose::Util::TypeConstraints::CORE:qr
60017µs my $ws = qr{ (?>\s*) }x;
# spent 7µs making 1 call to Moose::Util::TypeConstraints::CORE:qr
601242µs my $op_union = qr{ $ws \| $ws }x;
# spent 35µs making 1 call to Moose::Util::TypeConstraints::CORE:regcomp # spent 6µs making 1 call to Moose::Util::TypeConstraints::CORE:qr
602
603 my ($type, $type_capture_parts, $type_with_parameter, $union, $any);
604111.31ms16µs if (Class::MOP::IS_RUNNING_ON_5_10) {
# spent 6µs making 1 call to Regexp::DESTROY
605 my $type_pattern
606 = q{ (?&type_atom) (?: \[ (?&ws) (?&any) (?&ws) \] )? };
607 my $type_capture_parts_pattern
608 = q{ ((?&type_atom)) (?: \[ (?&ws) ((?&any)) (?&ws) \] )? };
609 my $type_with_parameter_pattern
610 = q{ (?&type_atom) \[ (?&ws) (?&any) (?&ws) \] };
611 my $union_pattern
612 = q{ (?&type) (?> (?: (?&op_union) (?&type) )+ ) };
613 my $any_pattern
614 = q{ (?&type) | (?&union) };
615
6162195µs my $defines = qr{(?(DEFINE)
# spent 187µs making 1 call to Moose::Util::TypeConstraints::CORE:regcomp # spent 8µs making 1 call to Moose::Util::TypeConstraints::CORE:qr
617 (?<valid_chars> $valid_chars)
618 (?<type_atom> $type_atom)
619 (?<ws> $ws)
620 (?<op_union> $op_union)
621 (?<type> $type_pattern)
622 (?<type_capture_parts> $type_capture_parts_pattern)
623 (?<type_with_parameter> $type_with_parameter_pattern)
624 (?<union> $union_pattern)
625 (?<any> $any_pattern)
626 )}x;
627
6282168µs $type = qr{ $type_pattern $defines }x;
# spent 161µs making 1 call to Moose::Util::TypeConstraints::CORE:regcomp # spent 6µs making 1 call to Moose::Util::TypeConstraints::CORE:qr
6292168µs $type_capture_parts = qr{ $type_capture_parts_pattern $defines }x;
# spent 161µs making 1 call to Moose::Util::TypeConstraints::CORE:regcomp # spent 7µs making 1 call to Moose::Util::TypeConstraints::CORE:qr
6302173µs $type_with_parameter = qr{ $type_with_parameter_pattern $defines }x;
# spent 160µs making 1 call to Moose::Util::TypeConstraints::CORE:regcomp # spent 13µs making 1 call to Moose::Util::TypeConstraints::CORE:qr
6312165µs $union = qr{ $union_pattern $defines }x;
# spent 158µs making 1 call to Moose::Util::TypeConstraints::CORE:regcomp # spent 7µs making 1 call to Moose::Util::TypeConstraints::CORE:qr
6322170µs $any = qr{ $any_pattern $defines }x;
# spent 163µs making 1 call to Moose::Util::TypeConstraints::CORE:regcomp # spent 7µs making 1 call to Moose::Util::TypeConstraints::CORE:qr
633 }
634 else {
635 $type
636 = qr{ $type_atom (?: \[ $ws (??{$any}) $ws \] )? }x;
637 $type_capture_parts
638 = qr{ ($type_atom) (?: \[ $ws ((??{$any})) $ws \] )? }x;
639 $type_with_parameter
640 = qr{ $type_atom \[ $ws (??{$any}) $ws \] }x;
641 $union
642 = qr{ $type (?> (?: $op_union $type )+ ) }x;
643 $any
644 = qr{ $type | $union }x;
645 }
646
647
648 sub _parse_parameterized_type_constraint {
6493241µs2190µs
# spent 119µs (48+71) within Moose::Util::TypeConstraints::BEGIN@649 which was called: # once (48µs+71µs) by Moose::Meta::Attribute::BEGIN@20 at line 649
{ no warnings 'void'; $any; } # force capture of interpolated lexical
# spent 119µs making 1 call to Moose::Util::TypeConstraints::BEGIN@649 # spent 71µs making 1 call to warnings::unimport
650 $_[0] =~ m{ $type_capture_parts }x;
651 return ( $1, $2 );
652 }
653
654
# spent 299µs (104+194) within Moose::Util::TypeConstraints::_detect_parameterized_type_constraint which was called 3 times, avg 100µs/call: # 3 times (104µs+194µs) by Moose::Util::TypeConstraints::find_or_parse_type_constraint at line 218, avg 100µs/call
sub _detect_parameterized_type_constraint {
65512546µs2150µs
# spent 97µs (43+54) within Moose::Util::TypeConstraints::BEGIN@655 which was called: # once (43µs+54µs) by Moose::Meta::Attribute::BEGIN@20 at line 655
{ no warnings 'void'; $any; } # force capture of interpolated lexical
# spent 97µs making 1 call to Moose::Util::TypeConstraints::BEGIN@655 # spent 54µs making 1 call to warnings::unimport
6566194µs $_[0] =~ m{ ^ $type_with_parameter $ }x;
# spent 183µs making 3 calls to Moose::Util::TypeConstraints::CORE:regcomp, avg 61µs/call # spent 11µs making 3 calls to Moose::Util::TypeConstraints::CORE:match, avg 4µs/call
657 }
658
659 sub _parse_type_constraint_union {
6603401µs2147µs
# spent 93µs (38+54) within Moose::Util::TypeConstraints::BEGIN@660 which was called: # once (38µs+54µs) by Moose::Meta::Attribute::BEGIN@20 at line 660
{ no warnings 'void'; $any; } # force capture of interpolated lexical
# spent 93µs making 1 call to Moose::Util::TypeConstraints::BEGIN@660 # spent 54µs making 1 call to warnings::unimport
661 my $given = shift;
662 my @rv;
663 while ( $given =~ m{ \G (?: $op_union )? ($type) }gcx ) {
664 push @rv => $1;
665 }
666 ( pos($given) eq length($given) )
667 || __PACKAGE__->_throw_error( "'$given' didn't parse (parse-pos="
668 . pos($given)
669 . " and str-length="
670 . length($given)
671 . ")" );
672 @rv;
673 }
674
675
# spent 571µs (143+428) within Moose::Util::TypeConstraints::_detect_type_constraint_union which was called 3 times, avg 190µs/call: # 3 times (143µs+428µs) by Moose::Util::TypeConstraints::find_or_parse_type_constraint at line 218, avg 190µs/call
sub _detect_type_constraint_union {
676126.06ms2155µs
# spent 97µs (40+57) within Moose::Util::TypeConstraints::BEGIN@676 which was called: # once (40µs+57µs) by Moose::Meta::Attribute::BEGIN@20 at line 676
{ no warnings 'void'; $any; } # force capture of interpolated lexical
# spent 97µs making 1 call to Moose::Util::TypeConstraints::BEGIN@676 # spent 57µs making 1 call to warnings::unimport
6776428µs $_[0] =~ m{^ $type $op_union $type ( $op_union .* )? $}x;
# spent 408µs making 3 calls to Moose::Util::TypeConstraints::CORE:regcomp, avg 136µs/call # spent 20µs making 3 calls to Moose::Util::TypeConstraints::CORE:match, avg 7µs/call
678 }
679}
680
681## --------------------------------------------------------
682# define some basic built-in types
683## --------------------------------------------------------
684
685# By making these classes immutable before creating all the types we
686# below, we avoid repeatedly calling the slow MOP-based accessors.
687$_->make_immutable(
688957µs inline_constructor => 1,
# spent 57µs making 9 calls to Class::MOP::Class::is_mutable, avg 6µs/call
689 constructor_name => "_new",
690
691 # these are Class::MOP accessors, so they need inlining
692 inline_accessors => 1
69319349µs18126ms ) for grep { $_->is_mutable }
# spent 126ms making 9 calls to Class::MOP::Class::make_immutable, avg 14.0ms/call # spent 249µs making 9 calls to Class::MOP::class_of, avg 28µs/call
694 map { Class::MOP::class_of($_) }
695 qw(
696 Moose::Meta::TypeConstraint
697 Moose::Meta::TypeConstraint::Union
698 Moose::Meta::TypeConstraint::Parameterized
699 Moose::Meta::TypeConstraint::Parameterizable
700 Moose::Meta::TypeConstraint::Class
701 Moose::Meta::TypeConstraint::Role
702 Moose::Meta::TypeConstraint::Enum
703 Moose::Meta::TypeConstraint::DuckType
704 Moose::Meta::TypeConstraint::Registry
70512µs);
706
7077130µs21.22ms
# spent 61µs within Moose::Util::TypeConstraints::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Moose/Util/TypeConstraints.pm:707] which was called 6 times, avg 10µs/call: # 6 times (61µs+0s) by Moose::Meta::TypeConstraint::Bool at line 284 of Moose/Meta/TypeConstraint.pm, avg 10µs/call
type 'Any' => where {1}; # meta-type including all
# spent 1.21ms making 1 call to Moose::Util::TypeConstraints::type # spent 13µs making 1 call to Moose::Util::TypeConstraints::where
708126µs21.48mssubtype 'Item' => as 'Any'; # base-type
# spent 1.46ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 14µs making 1 call to Moose::Util::TypeConstraints::as
709
710165µs31.54mssubtype 'Undef' => as 'Item' => where { !defined($_) };
# spent 1.48ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 39µs making 1 call to Moose::Util::TypeConstraints::where # spent 14µs making 1 call to Moose::Util::TypeConstraints::as
711139µs31.50mssubtype 'Defined' => as 'Item' => where { defined($_) };
# spent 1.48ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 13µs making 1 call to Moose::Util::TypeConstraints::as # spent 12µs making 1 call to Moose::Util::TypeConstraints::where
712
713subtype 'Bool' => as 'Item' =>
7147153µs31.41ms
# spent 97µs within Moose::Util::TypeConstraints::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Moose/Util/TypeConstraints.pm:714] which was called 6 times, avg 16µs/call: # 6 times (97µs+0s) by Moose::Meta::TypeConstraint::Bool at line 284 of Moose/Meta/TypeConstraint.pm, avg 16µs/call
where { !defined($_) || $_ eq "" || "$_" eq '1' || "$_" eq '0' };
# spent 1.38ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 13µs making 1 call to Moose::Util::TypeConstraints::as # spent 12µs making 1 call to Moose::Util::TypeConstraints::where
715
716subtype 'Value' => as 'Defined' => where { !ref($_) } =>
717148µs41.16ms optimize_as \&Moose::Util::TypeConstraints::OptimizedConstraints::Value;
# spent 1.12ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 13µs making 1 call to Moose::Util::TypeConstraints::as # spent 12µs making 1 call to Moose::Util::TypeConstraints::where # spent 11µs making 1 call to Moose::Util::TypeConstraints::optimize_as
718
719subtype 'Ref' => as 'Defined' => where { ref($_) } =>
720148µs41.06ms optimize_as \&Moose::Util::TypeConstraints::OptimizedConstraints::Ref;
# spent 1.03ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 12µs making 1 call to Moose::Util::TypeConstraints::as # spent 12µs making 1 call to Moose::Util::TypeConstraints::where # spent 10µs making 1 call to Moose::Util::TypeConstraints::optimize_as
721
722subtype 'Str' => as 'Value' => where { ref(\$_) eq 'SCALAR' } =>
723152µs41.09ms optimize_as \&Moose::Util::TypeConstraints::OptimizedConstraints::Str;
# spent 1.05ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 17µs making 1 call to Moose::Util::TypeConstraints::as # spent 13µs making 1 call to Moose::Util::TypeConstraints::optimize_as # spent 11µs making 1 call to Moose::Util::TypeConstraints::where
724
725subtype 'Num' => as 'Str' =>
726 where { Scalar::Util::looks_like_number($_) } =>
727147µs41.04ms optimize_as \&Moose::Util::TypeConstraints::OptimizedConstraints::Num;
# spent 1.01ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 12µs making 1 call to Moose::Util::TypeConstraints::as # spent 11µs making 1 call to Moose::Util::TypeConstraints::where # spent 10µs making 1 call to Moose::Util::TypeConstraints::optimize_as
728
729subtype 'Int' => as 'Num' => where { "$_" =~ /^-?[0-9]+$/ } =>
730148µs41.17ms optimize_as \&Moose::Util::TypeConstraints::OptimizedConstraints::Int;
# spent 1.13ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 12µs making 1 call to Moose::Util::TypeConstraints::as # spent 11µs making 1 call to Moose::Util::TypeConstraints::where # spent 10µs making 1 call to Moose::Util::TypeConstraints::optimize_as
731
732subtype 'CodeRef' => as 'Ref' => where { ref($_) eq 'CODE' } =>
733148µs41.06ms optimize_as \&Moose::Util::TypeConstraints::OptimizedConstraints::CodeRef;
# spent 1.02ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 13µs making 1 call to Moose::Util::TypeConstraints::as # spent 12µs making 1 call to Moose::Util::TypeConstraints::where # spent 10µs making 1 call to Moose::Util::TypeConstraints::optimize_as
734subtype 'RegexpRef' => as 'Ref' => where { ref($_) eq 'Regexp' } =>
735147µs41.10ms optimize_as
# spent 1.07ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 12µs making 1 call to Moose::Util::TypeConstraints::as # spent 10µs making 1 call to Moose::Util::TypeConstraints::where # spent 10µs making 1 call to Moose::Util::TypeConstraints::optimize_as
736 \&Moose::Util::TypeConstraints::OptimizedConstraints::RegexpRef;
737subtype 'GlobRef' => as 'Ref' => where { ref($_) eq 'GLOB' } =>
738149µs41.07ms optimize_as \&Moose::Util::TypeConstraints::OptimizedConstraints::GlobRef;
# spent 1.04ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 13µs making 1 call to Moose::Util::TypeConstraints::as # spent 11µs making 1 call to Moose::Util::TypeConstraints::where # spent 10µs making 1 call to Moose::Util::TypeConstraints::optimize_as
739
740# NOTE:
741# scalar filehandles are GLOB refs,
742# but a GLOB ref is not always a filehandle
743subtype 'FileHandle' => as 'GlobRef' => where {
744 Scalar::Util::openhandle($_) || ( blessed($_) && $_->isa("IO::Handle") );
745147µs41.12ms} => optimize_as
# spent 1.08ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 12µs making 1 call to Moose::Util::TypeConstraints::as # spent 11µs making 1 call to Moose::Util::TypeConstraints::where # spent 10µs making 1 call to Moose::Util::TypeConstraints::optimize_as
746 \&Moose::Util::TypeConstraints::OptimizedConstraints::FileHandle;
747
748# NOTE:
749# blessed(qr/.../) returns true,.. how odd
750subtype 'Object' => as 'Ref' =>
751 where { blessed($_) && blessed($_) ne 'Regexp' } =>
752146µs41.08ms optimize_as \&Moose::Util::TypeConstraints::OptimizedConstraints::Object;
# spent 1.05ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 12µs making 1 call to Moose::Util::TypeConstraints::as # spent 11µs making 1 call to Moose::Util::TypeConstraints::where # spent 10µs making 1 call to Moose::Util::TypeConstraints::optimize_as
753
754# This type is deprecated.
755subtype 'Role' => as 'Object' => where { $_->can('does') } =>
756146µs41.05ms optimize_as \&Moose::Util::TypeConstraints::OptimizedConstraints::Role;
# spent 1.02ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 12µs making 1 call to Moose::Util::TypeConstraints::as # spent 11µs making 1 call to Moose::Util::TypeConstraints::where # spent 10µs making 1 call to Moose::Util::TypeConstraints::optimize_as
757
75818µsmy $_class_name_checker = sub { };
759
760subtype 'ClassName' => as 'Str' =>
761146µs41.06ms where { Class::MOP::is_class_loaded($_) } => optimize_as
# spent 1.03ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 13µs making 1 call to Moose::Util::TypeConstraints::as # spent 11µs making 1 call to Moose::Util::TypeConstraints::where # spent 10µs making 1 call to Moose::Util::TypeConstraints::optimize_as
762 \&Moose::Util::TypeConstraints::OptimizedConstraints::ClassName;
763
764subtype 'RoleName' => as 'ClassName' => where {
765 (Class::MOP::class_of($_) || return)->isa('Moose::Meta::Role');
766147µs41.08ms} => optimize_as
# spent 1.04ms making 1 call to Moose::Util::TypeConstraints::subtype # spent 13µs making 1 call to Moose::Util::TypeConstraints::as # spent 10µs making 1 call to Moose::Util::TypeConstraints::where # spent 10µs making 1 call to Moose::Util::TypeConstraints::optimize_as
767 \&Moose::Util::TypeConstraints::OptimizedConstraints::RoleName;
768
769## --------------------------------------------------------
770# parameterizable types ...
771
772$REGISTRY->add_type_constraint(
773 Moose::Meta::TypeConstraint::Parameterizable->new(
774 name => 'ScalarRef',
775 package_defined_in => __PACKAGE__,
776 parent => find_type_constraint('Ref'),
777 constraint => sub { ref($_) eq 'SCALAR' || ref($_) eq 'REF' },
778 optimized =>
779 \&Moose::Util::TypeConstraints::OptimizedConstraints::ScalarRef,
780 constraint_generator => sub {
781 my $type_parameter = shift;
782 my $check = $type_parameter->_compiled_type_constraint;
783 return sub {
784 return $check->(${ $_ });
785 };
786 }
787 )
788183µs3988µs);
# spent 703µs making 1 call to Moose::Meta::TypeConstraint::new # spent 146µs making 1 call to Moose::Util::TypeConstraints::find_type_constraint # spent 138µs making 1 call to Moose::Meta::TypeConstraint::Registry::add_type_constraint
789
790$REGISTRY->add_type_constraint(
791 Moose::Meta::TypeConstraint::Parameterizable->new(
792 name => 'ArrayRef',
793 package_defined_in => __PACKAGE__,
794 parent => find_type_constraint('Ref'),
795 constraint => sub { ref($_) eq 'ARRAY' },
796 optimized =>
797 \&Moose::Util::TypeConstraints::OptimizedConstraints::ArrayRef,
798
# spent 779µs (202+576) within Moose::Util::TypeConstraints::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Moose/Util/TypeConstraints.pm:807] which was called 4 times, avg 195µs/call: # 4 times (202µs+576µs) by Moose::Meta::TypeConstraint::Parameterizable::generate_constraint_for at line 25 of Moose/Meta/TypeConstraint/Parameterizable.pm, avg 195µs/call
constraint_generator => sub {
79912192µs my $type_parameter = shift;
8004576µs my $check = $type_parameter->_compiled_type_constraint;
# spent 576µs making 4 calls to MooseX::Types::TypeDecorator::AUTOLOAD, avg 144µs/call
801
# spent 354µs (258+95) within Moose::Util::TypeConstraints::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Moose/Util/TypeConstraints.pm:806] which was called 6 times, avg 59µs/call: # 6 times (258µs+95µs) by Moose::Meta::TypeConstraint::ArrayRef[Str] at line 273 of Moose/Meta/TypeConstraint.pm, avg 59µs/call
return sub {
80212122µs foreach my $x (@$_) {
803690µs695µs ( $check->($x) ) || return;
# spent 95µs making 6 calls to Moose::Util::TypeConstraints::OptimizedConstraints::Str, avg 16µs/call
804 }
805 1;
806 }
807 }
808 )
809164µs3521µs);
# spent 288µs making 1 call to Moose::Meta::TypeConstraint::new # spent 121µs making 1 call to Moose::Util::TypeConstraints::find_type_constraint # spent 111µs making 1 call to Moose::Meta::TypeConstraint::Registry::add_type_constraint
810
811$REGISTRY->add_type_constraint(
812 Moose::Meta::TypeConstraint::Parameterizable->new(
813 name => 'HashRef',
814 package_defined_in => __PACKAGE__,
815 parent => find_type_constraint('Ref'),
816 constraint => sub { ref($_) eq 'HASH' },
817 optimized =>
818 \&Moose::Util::TypeConstraints::OptimizedConstraints::HashRef,
819
# spent 410µs (107+304) within Moose::Util::TypeConstraints::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Moose/Util/TypeConstraints.pm:828] which was called 2 times, avg 205µs/call: # 2 times (107µs+304µs) by Moose::Meta::TypeConstraint::Parameterizable::generate_constraint_for at line 25 of Moose/Meta/TypeConstraint/Parameterizable.pm, avg 205µs/call
constraint_generator => sub {
820698µs my $type_parameter = shift;
8212304µs my $check = $type_parameter->_compiled_type_constraint;
# spent 304µs making 2 calls to MooseX::Types::TypeDecorator::AUTOLOAD, avg 152µs/call
822 return sub {
823 foreach my $x ( values %$_ ) {
824 ( $check->($x) ) || return;
825 }
826 1;
827 }
828 }
829 )
830144µs3504µs);
# spent 279µs making 1 call to Moose::Meta::TypeConstraint::new # spent 117µs making 1 call to Moose::Util::TypeConstraints::find_type_constraint # spent 108µs making 1 call to Moose::Meta::TypeConstraint::Registry::add_type_constraint
831
832$REGISTRY->add_type_constraint(
833 Moose::Meta::TypeConstraint::Parameterizable->new(
834 name => 'Maybe',
835 package_defined_in => __PACKAGE__,
836 parent => find_type_constraint('Item'),
837 constraint => sub {1},
838 constraint_generator => sub {
839 my $type_parameter = shift;
840 my $check = $type_parameter->_compiled_type_constraint;
841 return sub {
842 return 1 if not( defined($_) ) || $check->($_);
843 return;
844 }
845 }
846 )
847142µs3964µs);
# spent 708µs making 1 call to Moose::Meta::TypeConstraint::new # spent 140µs making 1 call to Moose::Meta::TypeConstraint::Registry::add_type_constraint # spent 116µs making 1 call to Moose::Util::TypeConstraints::find_type_constraint
848
849my @PARAMETERIZABLE_TYPES
850571µs4139µs = map { $REGISTRY->get_type_constraint($_) } qw[ScalarRef ArrayRef HashRef Maybe];
# spent 139µs making 4 calls to Moose::Meta::TypeConstraint::Registry::get_type_constraint, avg 35µs/call
851
852683µs
# spent 67µs within Moose::Util::TypeConstraints::get_all_parameterizable_types which was called 6 times, avg 11µs/call: # 6 times (67µs+0s) by Moose::Meta::TypeConstraint::Parameterized::compile_type_constraint at line 51 of Moose/Meta/TypeConstraint/Parameterized.pm, avg 11µs/call
sub get_all_parameterizable_types {@PARAMETERIZABLE_TYPES}
853
854sub add_parameterizable_type {
855 my $type = shift;
856 ( blessed $type
857 && $type->isa('Moose::Meta::TypeConstraint::Parameterizable') )
858 || __PACKAGE__->_throw_error(
859 "Type must be a Moose::Meta::TypeConstraint::Parameterizable not $type"
860 );
861 push @PARAMETERIZABLE_TYPES => $type;
862}
863
864## --------------------------------------------------------
865# end of built-in types ...
866## --------------------------------------------------------
867
868{
869235µs151µs my @BUILTINS = list_all_type_constraints();
# spent 51µs making 1 call to Moose::Util::TypeConstraints::list_all_type_constraints
870136µs
# spent 26µs within Moose::Util::TypeConstraints::list_all_builtin_type_constraints which was called: # once (26µs+0s) by Markdent::Types::Internal::BEGIN@24 at line 52 of MooseX/Types/Moose.pm
sub list_all_builtin_type_constraints {@BUILTINS}
871}
872
873sub _throw_error {
874 shift;
875 require Moose;
876 unshift @_, 'Moose';
877 goto &Moose::throw_error;
878}
879
8801292µs1;
881
882__END__
 
# spent 1.28ms (535µs+744µs) within Moose::Util::TypeConstraints::CORE:match which was called 32 times, avg 40µs/call: # 26 times (504µs+744µs) by Moose::Util::TypeConstraints::_create_type_constraint at line 532, avg 48µs/call # 3 times (20µs+0s) by Moose::Util::TypeConstraints::_detect_type_constraint_union at line 677, avg 7µs/call # 3 times (11µs+0s) by Moose::Util::TypeConstraints::_detect_parameterized_type_constraint at line 656, avg 4µs/call
sub Moose::Util::TypeConstraints::CORE:match; # opcode
# spent 89µs within Moose::Util::TypeConstraints::CORE:qr which was called 10 times, avg 9µs/call: # once (20µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 598 # once (13µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 630 # once (8µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 616 # once (7µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 632 # once (7µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 599 # once (7µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 631 # once (7µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 600 # once (7µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 629 # once (6µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 601 # once (6µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 628
sub Moose::Util::TypeConstraints::CORE:qr; # opcode
# spent 1.67ms within Moose::Util::TypeConstraints::CORE:regcomp which was called 14 times, avg 119µs/call: # 3 times (408µs+0s) by Moose::Util::TypeConstraints::_detect_type_constraint_union at line 677, avg 136µs/call # 3 times (183µs+0s) by Moose::Util::TypeConstraints::_detect_parameterized_type_constraint at line 656, avg 61µs/call # once (187µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 616 # once (163µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 632 # once (161µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 628 # once (161µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 629 # once (160µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 630 # once (158µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 631 # once (52µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 599 # once (35µs+0s) by Moose::Meta::Attribute::BEGIN@20 at line 601
sub Moose::Util::TypeConstraints::CORE:regcomp; # opcode
# spent 2.02ms (616µs+1.40) within Moose::Util::TypeConstraints::CORE:subst which was called 59 times, avg 34µs/call: # 59 times (616µs+1.40ms) by Moose::Util::TypeConstraints::normalize_type_constraint_name at line 238, avg 34µs/call
sub Moose::Util::TypeConstraints::CORE:subst; # opcode
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.