← Index
NYTProf Performance Profile   « block view • line view • sub view »
For xt/tapper-mcp-scheduler-with-db-longrun.t
  Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:22:35 2012

Filename/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm
StatementsExecuted 139 statements in 2.39ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111495µs8.11msMoose::Util::TypeConstraints::Builtins::::define_builtinsMoose::Util::TypeConstraints::Builtins::define_builtins
41128µs133µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:66]Moose::Util::TypeConstraints::Builtins::__ANON__[:66]
1616122µs22µsMoose::Util::TypeConstraints::Builtins::::whereMoose::Util::TypeConstraints::Builtins::where
1717121µs21µsMoose::Util::TypeConstraints::Builtins::::inline_asMoose::Util::TypeConstraints::Builtins::inline_as
1616118µs18µsMoose::Util::TypeConstraints::Builtins::::subtypeMoose::Util::TypeConstraints::Builtins::subtype
1616117µs17µsMoose::Util::TypeConstraints::Builtins::::asMoose::Util::TypeConstraints::Builtins::as
11111µs11µsMoose::Util::TypeConstraints::Builtins::::BEGIN@2Moose::Util::TypeConstraints::Builtins::BEGIN@2
11111µs36µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:157]Moose::Util::TypeConstraints::Builtins::__ANON__[:157]
11110µs68µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:83]Moose::Util::TypeConstraints::Builtins::__ANON__[:83]
1119µs14µsMoose::Util::TypeConstraints::Builtins::::BEGIN@9Moose::Util::TypeConstraints::Builtins::BEGIN@9
1119µs27µsMoose::Util::TypeConstraints::Builtins::::BEGIN@10Moose::Util::TypeConstraints::Builtins::BEGIN@10
1119µs53µsMoose::Util::TypeConstraints::Builtins::::BEGIN@12Moose::Util::TypeConstraints::Builtins::BEGIN@12
5119µs9µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:46]Moose::Util::TypeConstraints::Builtins::__ANON__[:46]
1118µs42µsMoose::Util::TypeConstraints::Builtins::::BEGIN@14Moose::Util::TypeConstraints::Builtins::BEGIN@14
1116µs60µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:93]Moose::Util::TypeConstraints::Builtins::__ANON__[:93]
1116µs59µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:101]Moose::Util::TypeConstraints::Builtins::__ANON__[:101]
2116µs6µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:239]Moose::Util::TypeConstraints::Builtins::__ANON__[:239]
2115µs5µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:204]Moose::Util::TypeConstraints::Builtins::__ANON__[:204]
1114µs4µsMoose::Util::TypeConstraints::Builtins::::BEGIN@13Moose::Util::TypeConstraints::Builtins::BEGIN@13
1114µs4µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:58]Moose::Util::TypeConstraints::Builtins::__ANON__[:58]
1114µs4µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:133]Moose::Util::TypeConstraints::Builtins::__ANON__[:133]
1114µs4µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:176]Moose::Util::TypeConstraints::Builtins::__ANON__[:176]
2114µs4µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:144]Moose::Util::TypeConstraints::Builtins::__ANON__[:144]
2113µs3µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:28]Moose::Util::TypeConstraints::Builtins::__ANON__[:28]
1113µs3µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:113]Moose::Util::TypeConstraints::Builtins::__ANON__[:113]
1112µs2µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:106]Moose::Util::TypeConstraints::Builtins::__ANON__[:106]
1112µs2µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:39]Moose::Util::TypeConstraints::Builtins::__ANON__[:39]
1112µs2µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:138]Moose::Util::TypeConstraints::Builtins::__ANON__[:138]
1112µs2µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:72]Moose::Util::TypeConstraints::Builtins::__ANON__[:72]
1112µs2µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:118]Moose::Util::TypeConstraints::Builtins::__ANON__[:118]
1112µs2µsMoose::Util::TypeConstraints::Builtins::::typeMoose::Util::TypeConstraints::Builtins::type
1111µs1µsMoose::Util::TypeConstraints::Builtins::::__ANON__[:272]Moose::Util::TypeConstraints::Builtins::__ANON__[:272]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:105]Moose::Util::TypeConstraints::Builtins::__ANON__[:105]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:117]Moose::Util::TypeConstraints::Builtins::__ANON__[:117]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:127]Moose::Util::TypeConstraints::Builtins::__ANON__[:127]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:137]Moose::Util::TypeConstraints::Builtins::__ANON__[:137]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:142]Moose::Util::TypeConstraints::Builtins::__ANON__[:142]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:150]Moose::Util::TypeConstraints::Builtins::__ANON__[:150]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:165]Moose::Util::TypeConstraints::Builtins::__ANON__[:165]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:171]Moose::Util::TypeConstraints::Builtins::__ANON__[:171]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:172]Moose::Util::TypeConstraints::Builtins::__ANON__[:172]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:183]Moose::Util::TypeConstraints::Builtins::__ANON__[:183]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:193]Moose::Util::TypeConstraints::Builtins::__ANON__[:193]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:202]Moose::Util::TypeConstraints::Builtins::__ANON__[:202]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:203]Moose::Util::TypeConstraints::Builtins::__ANON__[:203]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:218]Moose::Util::TypeConstraints::Builtins::__ANON__[:218]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:228]Moose::Util::TypeConstraints::Builtins::__ANON__[:228]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:237]Moose::Util::TypeConstraints::Builtins::__ANON__[:237]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:238]Moose::Util::TypeConstraints::Builtins::__ANON__[:238]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:253]Moose::Util::TypeConstraints::Builtins::__ANON__[:253]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:263]Moose::Util::TypeConstraints::Builtins::__ANON__[:263]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:270]Moose::Util::TypeConstraints::Builtins::__ANON__[:270]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:271]Moose::Util::TypeConstraints::Builtins::__ANON__[:271]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:279]Moose::Util::TypeConstraints::Builtins::__ANON__[:279]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:27]Moose::Util::TypeConstraints::Builtins::__ANON__[:27]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:32]Moose::Util::TypeConstraints::Builtins::__ANON__[:32]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:36]Moose::Util::TypeConstraints::Builtins::__ANON__[:36]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:43]Moose::Util::TypeConstraints::Builtins::__ANON__[:43]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:50]Moose::Util::TypeConstraints::Builtins::__ANON__[:50]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:62]Moose::Util::TypeConstraints::Builtins::__ANON__[:62]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:70]Moose::Util::TypeConstraints::Builtins::__ANON__[:70]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:76]Moose::Util::TypeConstraints::Builtins::__ANON__[:76]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:88]Moose::Util::TypeConstraints::Builtins::__ANON__[:88]
0000s0sMoose::Util::TypeConstraints::Builtins::::__ANON__[:97]Moose::Util::TypeConstraints::Builtins::__ANON__[:97]
0000s0sMoose::Util::TypeConstraints::Builtins::::optimize_asMoose::Util::TypeConstraints::Builtins::optimize_as
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Moose::Util::TypeConstraints::Builtins;
2
# spent 11µs within Moose::Util::TypeConstraints::Builtins::BEGIN@2 which was called: # once (11µs+0s) by Moose::Meta::Attribute::BEGIN@24 at line 4
BEGIN {
314µs $Moose::Util::TypeConstraints::Builtins::AUTHORITY = 'cpan:STEVAN';
4130µs111µs}
5{
622µs $Moose::Util::TypeConstraints::Builtins::VERSION = '2.0602';
7}
8
9321µs219µs
# spent 14µs (9+5) within Moose::Util::TypeConstraints::Builtins::BEGIN@9 which was called: # once (9µs+5µs) by Moose::Meta::Attribute::BEGIN@24 at line 9
use strict;
# spent 14µs making 1 call to Moose::Util::TypeConstraints::Builtins::BEGIN@9 # spent 5µs making 1 call to strict::import
10323µs245µs
# spent 27µs (9+18) within Moose::Util::TypeConstraints::Builtins::BEGIN@10 which was called: # once (9µs+18µs) by Moose::Meta::Attribute::BEGIN@24 at line 10
use warnings;
# spent 27µs making 1 call to Moose::Util::TypeConstraints::Builtins::BEGIN@10 # spent 18µs making 1 call to warnings::import
11
12322µs296µs
# spent 53µs (9+44) within Moose::Util::TypeConstraints::Builtins::BEGIN@12 which was called: # once (9µs+44µs) by Moose::Meta::Attribute::BEGIN@24 at line 12
use Class::Load qw( is_class_loaded );
# spent 53µs making 1 call to Moose::Util::TypeConstraints::Builtins::BEGIN@12 # spent 44µs making 1 call to Exporter::import
13320µs14µs
# spent 4µs within Moose::Util::TypeConstraints::Builtins::BEGIN@13 which was called: # once (4µs+0s) by Moose::Meta::Attribute::BEGIN@24 at line 13
use List::MoreUtils ();
1431.64ms276µs
# spent 42µs (8+34) within Moose::Util::TypeConstraints::Builtins::BEGIN@14 which was called: # once (8µs+34µs) by Moose::Meta::Attribute::BEGIN@24 at line 14
use Scalar::Util qw( blessed looks_like_number reftype );
# spent 42µs making 1 call to Moose::Util::TypeConstraints::Builtins::BEGIN@14 # spent 34µs making 1 call to Exporter::import
15
1615µs1472µs
# spent 2µs within Moose::Util::TypeConstraints::Builtins::type which was called: # once (2µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 28
sub type { goto &Moose::Util::TypeConstraints::type }
# spent 472µs making 1 call to Moose::Util::TypeConstraints::type
171653µs165.82ms
# spent 18µs within Moose::Util::TypeConstraints::Builtins::subtype which was called 16 times, avg 1µs/call: # once (2µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 32 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 39 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 72 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 118 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 83 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 138 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 58 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 93 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 106 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 46 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 66 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 133 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 113 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 101 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 144 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 157
sub subtype { goto &Moose::Util::TypeConstraints::subtype }
# spent 5.82ms making 16 calls to Moose::Util::TypeConstraints::subtype, avg 364µs/call
181651µs1627µs
# spent 17µs within Moose::Util::TypeConstraints::Builtins::as which was called 16 times, avg 1µs/call: # once (2µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 32 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 58 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 144 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 118 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 72 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 46 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 101 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 113 # once (900ns+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 39 # once (900ns+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 93 # once (900ns+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 106 # once (900ns+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 66 # once (900ns+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 157 # once (900ns+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 83 # once (900ns+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 138 # once (900ns+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 133
sub as { goto &Moose::Util::TypeConstraints::as }
# spent 27µs making 16 calls to Moose::Util::TypeConstraints::as, avg 2µs/call
191673µs1622µs
# spent 22µs within Moose::Util::TypeConstraints::Builtins::where which was called 16 times, avg 1µs/call: # once (3µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 28 # once (2µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 144 # once (2µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 39 # once (2µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 118 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 83 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 138 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 101 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 66 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 72 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 93 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 106 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 133 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 113 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 58 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 157 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 46
sub where (&) { goto &Moose::Util::TypeConstraints::where }
# spent 22µs making 16 calls to Moose::Util::TypeConstraints::where, avg 1µs/call
20sub optimize_as (&) { goto &Moose::Util::TypeConstraints::optimize_as }
211783µs1721µs
# spent 21µs within Moose::Util::TypeConstraints::Builtins::inline_as which was called 17 times, avg 1µs/call: # once (2µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 32 # once (2µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 28 # once (2µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 101 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 39 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 72 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 118 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 83 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 138 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 46 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 144 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 66 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 58 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 93 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 106 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 133 # once (1µs+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 157 # once (900ns+0s) by Moose::Util::TypeConstraints::Builtins::define_builtins at line 113
sub inline_as (&) { goto &Moose::Util::TypeConstraints::inline_as }
# spent 21µs making 17 calls to Moose::Util::TypeConstraints::inline_as, avg 1µs/call
22
23
# spent 8.11ms (495µs+7.61) within Moose::Util::TypeConstraints::Builtins::define_builtins which was called: # once (495µs+7.61ms) by Moose::Meta::Attribute::BEGIN@24 at line 727 of Moose/Util/TypeConstraints.pm
sub define_builtins {
2423220µs my $registry = shift;
25
26 type 'Any' # meta-type including all
27 => where {1}
2825µs36µs
# spent 3µs within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:28] which was called 2 times, avg 1µs/call: # 2 times (3µs+0s) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm, avg 1µs/call
=> inline_as { '1' };
# spent 3µs making 1 call to Moose::Util::TypeConstraints::Builtins::where # spent 2µs making 1 call to Moose::Util::TypeConstraints::Builtins::type # spent 2µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as
29
30 subtype 'Item' # base type
31 => as 'Any'
3235µs => inline_as { '1' };
# spent 2µs making 1 call to Moose::Util::TypeConstraints::Builtins::as # spent 2µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as # spent 2µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype
33
34 subtype 'Undef'
35 => as 'Item'
36 => where { !defined($_) }
37
# spent 2µs within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:39] which was called: # once (2µs+0s) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm
=> inline_as {
3814µs '!defined(' . $_[1] . ')'
3945µs };
# spent 2µs making 1 call to Moose::Util::TypeConstraints::Builtins::where # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype # spent 900ns making 1 call to Moose::Util::TypeConstraints::Builtins::as
40
41 subtype 'Defined'
42 => as 'Item'
43 => where { defined($_) }
44
# spent 9µs within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:46] which was called 5 times, avg 2µs/call: # 5 times (9µs+0s) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm, avg 2µs/call
=> inline_as {
45516µs 'defined(' . $_[1] . ')'
4644µs };
# spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::where
47
48 subtype 'Bool'
49 => as 'Item'
50 => where { !defined($_) || $_ eq "" || "$_" eq '1' || "$_" eq '0' }
51
# spent 4µs within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:58] which was called: # once (4µs+0s) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm
=> inline_as {
5216µs '('
53 . '!defined(' . $_[1] . ') '
54 . '|| ' . $_[1] . ' eq "" '
55 . '|| (' . $_[1] . '."") eq "1" '
56 . '|| (' . $_[1] . '."") eq "0"'
57 . ')'
5844µs };
# spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::where
59
60 subtype 'Value'
61 => as 'Defined'
62 => where { !ref($_) }
63
# spent 133µs (28+105) within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:66] which was called 4 times, avg 33µs/call: # 4 times (28µs+105µs) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm, avg 33µs/call
=> inline_as {
64422µs85µs $_[0]->parent()->_inline_check($_[1])
# spent 5µs making 4 calls to Moose::Meta::TypeConstraint::parent, avg 1µs/call # spent 100µs making 4 calls to Moose::Meta::TypeConstraint::_inline_check, avg 25µs/call, recursion: max depth 2, sum of overlapping time 100µs
65 . ' && !ref(' . $_[1] . ')'
6645µs };
# spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::where # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype # spent 900ns making 1 call to Moose::Util::TypeConstraints::Builtins::as
67
68 subtype 'Ref'
69 => as 'Defined'
70 => where { ref($_) }
71 # no need to call parent - ref also checks for definedness
7214µs45µs
# spent 2µs within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:72] which was called: # once (2µs+0s) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm
=> inline_as { 'ref(' . $_[1] . ')' };
# spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::where # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::as
73
74 subtype 'Str'
75 => as 'Value'
76 => where { ref(\$_) eq 'SCALAR' || ref(\(my $val = $_)) eq 'SCALAR' }
77
# spent 68µs (10+58) within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:83] which was called: # once (10µs+58µs) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm
=> inline_as {
7817µs22µs $_[0]->parent()->_inline_check($_[1])
# spent 2µs making 1 call to Moose::Meta::TypeConstraint::parent # spent 57µs making 1 call to Moose::Meta::TypeConstraint::_inline_check, recursion: max depth 1, sum of overlapping time 57µs
79 . ' && ('
80 . 'ref(\\' . $_[1] . ') eq "SCALAR"'
81 . ' || ref(\\(my $val = ' . $_[1] . ')) eq "SCALAR"'
82 . ')'
8345µs };
# spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::where # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype # spent 900ns making 1 call to Moose::Util::TypeConstraints::Builtins::as
84
85116µs my $value_type = Moose::Util::TypeConstraints::find_type_constraint('Value');
86 subtype 'Num'
87 => as 'Str'
88 => where { Scalar::Util::looks_like_number($_) }
89
# spent 60µs (6+53) within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:93] which was called: # once (6µs+53µs) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm
=> inline_as {
90 # the long Str tests are redundant here
9115µs10s $value_type->_inline_check($_[1])
# spent 53µs making 1 call to Moose::Meta::TypeConstraint::_inline_check, recursion: max depth 1, sum of overlapping time 53µs
92 . ' && Scalar::Util::looks_like_number(' . $_[1] . ')'
9344µs };
# spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::where # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype # spent 900ns making 1 call to Moose::Util::TypeConstraints::Builtins::as
94
95 subtype 'Int'
96 => as 'Num'
97 => where { (my $val = $_) =~ /\A-?[0-9]+\z/ }
98
# spent 59µs (6+53) within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:101] which was called: # once (6µs+53µs) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm
=> inline_as {
9915µs10s $value_type->_inline_check($_[1])
# spent 53µs making 1 call to Moose::Meta::TypeConstraint::_inline_check, recursion: max depth 1, sum of overlapping time 53µs
100 . ' && (my $val = ' . $_[1] . ') =~ /\A-?[0-9]+\z/'
10145µs };
# spent 2µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::where # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype
102
103 subtype 'CodeRef'
104 => as 'Ref'
105 => where { ref($_) eq 'CODE' }
10614µs44µs
# spent 2µs within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:106] which was called: # once (2µs+0s) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm
=> inline_as { 'ref(' . $_[1] . ') eq "CODE"' };
# spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::where # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype # spent 900ns making 1 call to Moose::Util::TypeConstraints::Builtins::as
107
108 subtype 'RegexpRef'
109 => as 'Ref'
110 => where( \&_RegexpRef )
111
# spent 3µs within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:113] which was called: # once (3µs+0s) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm
=> inline_as {
11214µs 'Moose::Util::TypeConstraints::Builtins::_RegexpRef(' . $_[1] . ')'
11344µs };
# spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::where # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::as # spent 900ns making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as
114
115 subtype 'GlobRef'
116 => as 'Ref'
117 => where { ref($_) eq 'GLOB' }
11814µs45µs
# spent 2µs within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:118] which was called: # once (2µs+0s) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm
=> inline_as { 'ref(' . $_[1] . ') eq "GLOB"' };
# spent 2µs making 1 call to Moose::Util::TypeConstraints::Builtins::where # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype
119
120 # NOTE: scalar filehandles are GLOB refs, but a GLOB ref is not always a
121 # filehandle
122 subtype 'FileHandle'
123 => as 'Ref'
124 => where {
125 (ref($_) eq "GLOB" && Scalar::Util::openhandle($_))
126 || (blessed($_) && $_->isa("IO::Handle"));
127 }
128
# spent 4µs within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:133] which was called: # once (4µs+0s) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm
=> inline_as {
12916µs '(ref(' . $_[1] . ') eq "GLOB" '
130 . '&& Scalar::Util::openhandle(' . $_[1] . ')) '
131 . '|| (Scalar::Util::blessed(' . $_[1] . ') '
132 . '&& ' . $_[1] . '->isa("IO::Handle"))'
13344µs };
# spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::where # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype # spent 900ns making 1 call to Moose::Util::TypeConstraints::Builtins::as
134
135 subtype 'Object'
136 => as 'Ref'
137 => where { blessed($_) }
13814µs45µs
# spent 2µs within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:138] which was called: # once (2µs+0s) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm
=> inline_as { 'Scalar::Util::blessed(' . $_[1] . ')' };
# spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::where # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype # spent 900ns making 1 call to Moose::Util::TypeConstraints::Builtins::as
139
140 subtype 'ClassName'
141 => as 'Str'
142 => where { is_class_loaded($_) }
143 # the long Str tests are redundant here
14427µs45µs
# spent 4µs within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:144] which was called 2 times, avg 2µs/call: # 2 times (4µs+0s) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm, avg 2µs/call
=> inline_as { 'Class::Load::is_class_loaded(' . $_[1] . ')' };
# spent 2µs making 1 call to Moose::Util::TypeConstraints::Builtins::where # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype
145
146 subtype 'RoleName'
147 => as 'ClassName'
148 => where {
149 (Class::MOP::class_of($_) || return)->isa('Moose::Meta::Role');
150 }
151
# spent 36µs (11+26) within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:157] which was called: # once (11µs+26µs) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm
=> inline_as {
15217µs22µs $_[0]->parent()->_inline_check($_[1])
# spent 2µs making 1 call to Moose::Meta::TypeConstraint::parent # spent 24µs making 1 call to Moose::Meta::TypeConstraint::_inline_check, recursion: max depth 1, sum of overlapping time 24µs
153 . ' && do {'
154 . 'my $meta = Class::MOP::class_of(' . $_[1] . ');'
155 . '$meta && $meta->isa("Moose::Meta::Role");'
156 . '}'
15744µs };
# spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::where # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::inline_as # spent 1µs making 1 call to Moose::Util::TypeConstraints::Builtins::subtype # spent 900ns making 1 call to Moose::Util::TypeConstraints::Builtins::as
158
159 $registry->add_type_constraint(
160 Moose::Meta::TypeConstraint::Parameterizable->new(
161 name => 'ScalarRef',
162 package_defined_in => __PACKAGE__,
163 parent =>
164 Moose::Util::TypeConstraints::find_type_constraint('Ref'),
165 constraint => sub { ref($_) eq 'SCALAR' || ref($_) eq 'REF' },
166 constraint_generator => sub {
167 my $type_parameter = shift;
168 my $check = $type_parameter->_compiled_type_constraint;
169 return sub {
170 return $check->( ${$_} );
171 };
172 },
173
# spent 4µs within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:176] which was called: # once (4µs+0s) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm
inlined => sub {
174110µs 'ref(' . $_[1] . ') eq "SCALAR" '
175 . '|| ref(' . $_[1] . ') eq "REF"'
176 },
177 inline_generator => sub {
178 my $self = shift;
179 my $type_parameter = shift;
180 my $val = shift;
181 '(ref(' . $val . ') eq "SCALAR" || ref(' . $val . ') eq "REF") '
182 . '&& ' . $type_parameter->_inline_check('${(' . $val . ')}')
183 },
184 )
1853455µs );
# spent 415µs making 1 call to Moose::Meta::TypeConstraint::new # spent 20µs making 1 call to Moose::Meta::TypeConstraint::Registry::add_type_constraint # spent 20µs making 1 call to Moose::Util::TypeConstraints::find_type_constraint
186
187 $registry->add_type_constraint(
188 Moose::Meta::TypeConstraint::Parameterizable->new(
189 name => 'ArrayRef',
190 package_defined_in => __PACKAGE__,
191 parent =>
192 Moose::Util::TypeConstraints::find_type_constraint('Ref'),
193 constraint => sub { ref($_) eq 'ARRAY' },
194 constraint_generator => sub {
195 my $type_parameter = shift;
196 my $check = $type_parameter->_compiled_type_constraint;
197 return sub {
198 foreach my $x (@$_) {
199 ( $check->($x) ) || return;
200 }
201 1;
202 }
203 },
20427µs
# spent 5µs within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:204] which was called 2 times, avg 3µs/call: # 2 times (5µs+0s) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm, avg 3µs/call
inlined => sub { 'ref(' . $_[1] . ') eq "ARRAY"' },
205 inline_generator => sub {
206 my $self = shift;
207 my $type_parameter = shift;
208 my $val = shift;
209
210 'do {'
211 . 'my $check = ' . $val . ';'
212 . 'ref($check) eq "ARRAY" '
213 . '&& &List::MoreUtils::all('
214 . 'sub { ' . $type_parameter->_inline_check('$_') . ' }, '
215 . '@{$check}'
216 . ')'
217 . '}';
218 },
219 )
2203236µs );
# spent 204µs making 1 call to Moose::Meta::TypeConstraint::new # spent 17µs making 1 call to Moose::Util::TypeConstraints::find_type_constraint # spent 16µs making 1 call to Moose::Meta::TypeConstraint::Registry::add_type_constraint
221
222 $registry->add_type_constraint(
223 Moose::Meta::TypeConstraint::Parameterizable->new(
224 name => 'HashRef',
225 package_defined_in => __PACKAGE__,
226 parent =>
227 Moose::Util::TypeConstraints::find_type_constraint('Ref'),
228 constraint => sub { ref($_) eq 'HASH' },
229 constraint_generator => sub {
230 my $type_parameter = shift;
231 my $check = $type_parameter->_compiled_type_constraint;
232 return sub {
233 foreach my $x ( values %$_ ) {
234 ( $check->($x) ) || return;
235 }
236 1;
237 }
238 },
23928µs
# spent 6µs within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:239] which was called 2 times, avg 3µs/call: # 2 times (6µs+0s) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm, avg 3µs/call
inlined => sub { 'ref(' . $_[1] . ') eq "HASH"' },
240 inline_generator => sub {
241 my $self = shift;
242 my $type_parameter = shift;
243 my $val = shift;
244
245 'do {'
246 . 'my $check = ' . $val . ';'
247 . 'ref($check) eq "HASH" '
248 . '&& &List::MoreUtils::all('
249 . 'sub { ' . $type_parameter->_inline_check('$_') . ' }, '
250 . 'values %{$check}'
251 . ')'
252 . '}';
253 },
254 )
2553236µs );
# spent 204µs making 1 call to Moose::Meta::TypeConstraint::new # spent 16µs making 1 call to Moose::Util::TypeConstraints::find_type_constraint # spent 16µs making 1 call to Moose::Meta::TypeConstraint::Registry::add_type_constraint
256
257 $registry->add_type_constraint(
258 Moose::Meta::TypeConstraint::Parameterizable->new(
259 name => 'Maybe',
260 package_defined_in => __PACKAGE__,
261 parent =>
262 Moose::Util::TypeConstraints::find_type_constraint('Item'),
263 constraint => sub {1},
264 constraint_generator => sub {
265 my $type_parameter = shift;
266 my $check = $type_parameter->_compiled_type_constraint;
267 return sub {
268 return 1 if not( defined($_) ) || $check->($_);
269 return;
270 }
271 },
27213µs
# spent 1µs within Moose::Util::TypeConstraints::Builtins::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Moose/Util/TypeConstraints/Builtins.pm:272] which was called: # once (1µs+0s) by Moose::Meta::TypeConstraint::_inline_check at line 225 of Moose/Meta/TypeConstraint.pm
inlined => sub {'1'},
273 inline_generator => sub {
274 my $self = shift;
275 my $type_parameter = shift;
276 my $val = shift;
277 '!defined(' . $val . ') '
278 . '|| (' . $type_parameter->_inline_check($val) . ')'
279 },
280 )
2813226µs );
# spent 194µs making 1 call to Moose::Meta::TypeConstraint::new # spent 16µs making 1 call to Moose::Meta::TypeConstraint::Registry::add_type_constraint # spent 16µs making 1 call to Moose::Util::TypeConstraints::find_type_constraint
282}
283
28414µs1;
285
286__END__