← Index
NYTProf Performance Profile   « line view »
For ../prof.pl
  Run on Wed Dec 14 15:57:08 2022
Reported on Wed Dec 14 16:00:34 2022

Filename/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny/Class.pm
StatementsExecuted 801 statements in 3.33ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1111.38ms1.46msType::Tiny::Class::::BEGIN@19Type::Tiny::Class::BEGIN@19
8411280µs667µsType::Tiny::Class::::parentType::Tiny::Class::parent
1022211µs768µsType::Tiny::Class::::newType::Tiny::Class::new
5911201µs201µsType::Tiny::Class::::__ANON__[:89]Type::Tiny::Class::__ANON__[:89]
5911164µs215µsType::Tiny::Class::::inlinedType::Tiny::Class::inlined
511113µs338µsType::Tiny::Class::::_build_parentType::Tiny::Class::_build_parent
1643198µs98µsType::Tiny::Class::::_is_null_constraintType::Tiny::Class::_is_null_constraint
981171µs71µsType::Tiny::Class::::has_inlinedType::Tiny::Class::has_inlined
71143µs51µsType::Tiny::Class::::_build_inlinedType::Tiny::Class::_build_inlined
11132µs32µsType::Tiny::Class::::BEGIN@3Type::Tiny::Class::BEGIN@3
11117µs46µsType::Tiny::Class::::BEGIN@93Type::Tiny::Class::BEGIN@93
122114µs14µsType::Tiny::Class::::classType::Tiny::Class::class
11112µs15µsType::Tiny::Class::::BEGIN@185Type::Tiny::Class::BEGIN@185
1119µs14µsType::Tiny::Class::::BEGIN@18Type::Tiny::Class::BEGIN@18
1118µs15µsType::Tiny::Class::::BEGIN@164Type::Tiny::Class::BEGIN@164
1117µs34µsType::Tiny::Class::::BEGIN@14Type::Tiny::Class::BEGIN@14
1117µs9µsType::Tiny::Class::::BEGIN@4Type::Tiny::Class::BEGIN@4
1114µs16µsType::Tiny::Class::::BEGIN@164.74Type::Tiny::Class::BEGIN@164.74
1114µs27µsType::Tiny::Class::::BEGIN@5Type::Tiny::Class::BEGIN@5
1112µs2µsType::Tiny::Class::::BEGIN@7Type::Tiny::Class::BEGIN@7
0000s0sType::Tiny::Class::::__ANON__[:105]Type::Tiny::Class::__ANON__[:105]
0000s0sType::Tiny::Class::::__ANON__[:201]Type::Tiny::Class::__ANON__[:201]
0000s0sType::Tiny::Class::::__ANON__[:70]Type::Tiny::Class::__ANON__[:70]
0000s0sType::Tiny::Class::::__ANON__[:99]Type::Tiny::Class::__ANON__[:99]
0000s0sType::Tiny::Class::::_build_constraintType::Tiny::Class::_build_constraint
0000s0sType::Tiny::Class::::_build_default_messageType::Tiny::Class::_build_default_message
0000s0sType::Tiny::Class::::_croakType::Tiny::Class::_croak
0000s0sType::Tiny::Class::::_exporter_failType::Tiny::Class::_exporter_fail
0000s0sType::Tiny::Class::::_instantiate_moose_typeType::Tiny::Class::_instantiate_moose_type
0000s0sType::Tiny::Class::::_short_nameType::Tiny::Class::_short_name
0000s0sType::Tiny::Class::::plus_constructorsType::Tiny::Class::plus_constructors
0000s0sType::Tiny::Class::::validate_explainType::Tiny::Class::validate_explain
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package Type::Tiny::Class;
2
3244µs132µs
# spent 32µs within Type::Tiny::Class::BEGIN@3 which was called: # once (32µs+0s) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:987] at line 3
use 5.008001;
# spent 32µs making 1 call to Type::Tiny::Class::BEGIN@3
4219µs211µs
# spent 9µs (7+2) within Type::Tiny::Class::BEGIN@4 which was called: # once (7µs+2µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:987] at line 4
use strict;
# spent 9µs making 1 call to Type::Tiny::Class::BEGIN@4 # spent 2µs making 1 call to strict::import
5231µs250µs
# spent 27µs (4+23) within Type::Tiny::Class::BEGIN@5 which was called: # once (4µs+23µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:987] at line 5
use warnings;
# spent 27µs making 1 call to Type::Tiny::Class::BEGIN@5 # spent 23µs making 1 call to warnings::import
6
7
# spent 2µs within Type::Tiny::Class::BEGIN@7 which was called: # once (2µs+0s) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:987] at line 10
BEGIN {
810s $Type::Tiny::Class::AUTHORITY = 'cpan:TOBYINK';
912µs $Type::Tiny::Class::VERSION = '2.000001';
10125µs12µs}
# spent 2µs making 1 call to Type::Tiny::Class::BEGIN@7
11
1211µs$Type::Tiny::Class::VERSION =~ tr/_//d;
13
14238µs261µs
# spent 34µs (7+27) within Type::Tiny::Class::BEGIN@14 which was called: # once (7µs+27µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:987] at line 14
use Scalar::Util qw< blessed >;
# spent 34µs making 1 call to Type::Tiny::Class::BEGIN@14 # spent 27µs making 1 call to Exporter::import
15
16sub _croak ($;@) { require Error::TypeTiny; goto \&Error::TypeTiny::croak }
17
18325µs219µs
# spent 14µs (9+5) within Type::Tiny::Class::BEGIN@18 which was called: # once (9µs+5µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:987] at line 18
use Exporter::Tiny 1.004001 ();
# spent 14µs making 1 call to Type::Tiny::Class::BEGIN@18 # spent 5µs making 1 call to UNIVERSAL::VERSION
1921.11ms11.46ms
# spent 1.46ms (1.38+86µs) within Type::Tiny::Class::BEGIN@19 which was called: # once (1.38ms+86µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:987] at line 19
use Type::Tiny::ConstrainedObject ();
# spent 1.46ms making 1 call to Type::Tiny::Class::BEGIN@19
20110µsour @ISA = qw( Type::Tiny::ConstrainedObject Exporter::Tiny );
21
22sub _short_name { 'Class' }
23
24sub _exporter_fail {
25 my ( $class, $name, $opts, $globals ) = @_;
26 my $caller = $globals->{into};
27
28 $opts->{name} = $name unless exists $opts->{name}; $opts->{name} =~ s/:://g;
29 $opts->{class} = $name unless exists $opts->{class};
30 my $type = $class->new($opts);
31
32 $INC{'Type/Registry.pm'}
33 ? 'Type::Registry'->for_class( $caller )->add_type( $type )
34 : ( $Type::Registry::DELAYED{$caller}{$type->name} = $type )
35 unless( ref($caller) or $caller eq '-lexical' or $globals->{'lexical'} );
36 return map +( $_->{name} => $_->{code} ), @{ $type->exportables };
37}
38
39
# spent 768µs (211+557) within Type::Tiny::Class::new which was called 10 times, avg 77µs/call: # 7 times (174µs+382µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:987] at line 970 of Types/Standard.pm, avg 79µs/call # 3 times (37µs+175µs) by Type::Tiny::Class::_build_parent at line 171, avg 71µs/call
sub new {
40102µs my $proto = shift;
411028µs104µs return $proto->class->new( @_ ) if blessed $proto; # DWIM
# spent 4µs making 10 calls to Scalar::Util::blessed, avg 400ns/call
42
431025µs my %opts = ( @_ == 1 ) ? %{ $_[0] } : @_;
44105µs _croak "Need to supply class name" unless exists $opts{class};
45
461026µs1024µs if ( Type::Tiny::_USE_XS ) {
# spent 24µs making 10 calls to Type::Tiny::__ANON__[Type/Tiny.pm:55], avg 2µs/call
47 my $xsub =
48 Type::Tiny::XS::get_coderef_for( "InstanceOf[" . $opts{class} . "]" );
49 $opts{compiled_type_constraint} = $xsub if $xsub;
50 }
51 elsif ( Type::Tiny::_USE_MOUSE ) {
52 require Mouse::Util::TypeConstraints;
53 my $maker = "Mouse::Util::TypeConstraints"->can( "generate_isa_predicate_for" );
54 $opts{compiled_type_constraint} = $maker->( $opts{class} ) if $maker;
55 }
56
571055µs10529µs return $proto->SUPER::new( %opts );
# spent 529µs making 10 calls to Type::Tiny::ConstrainedObject::new, avg 53µs/call
58} #/ sub new
59
601227µs
# spent 14µs within Type::Tiny::Class::class which was called 12 times, avg 1µs/call: # 7 times (8µs+0s) by Type::Tiny::Class::_build_inlined at line 75, avg 1µs/call # 5 times (6µs+0s) by Type::Tiny::Class::_build_parent at line 154, avg 1µs/call
sub class { $_[0]{class} }
6159253µs751µs
# spent 215µs (164+51) within Type::Tiny::Class::inlined which was called 59 times, avg 4µs/call: # 59 times (164µs+51µs) by Type::Tiny::inline_check at line 895 of Type/Tiny.pm, avg 4µs/call
sub inlined { $_[0]{inlined} ||= $_[0]->_build_inlined }
# spent 51µs making 7 calls to Type::Tiny::Class::_build_inlined, avg 7µs/call
62
6398140µs
# spent 71µs within Type::Tiny::Class::has_inlined which was called 98 times, avg 724ns/call: # 98 times (71µs+0s) by Type::Tiny::can_be_inlined at line 881 of Type/Tiny.pm, avg 724ns/call
sub has_inlined { !!1 }
64
65164261µs
# spent 98µs within Type::Tiny::Class::_is_null_constraint which was called 164 times, avg 598ns/call: # 98 times (73µs+0s) by Type::Tiny::can_be_inlined at line 877 of Type/Tiny.pm, avg 745ns/call # 59 times (17µs+0s) by Type::Tiny::inline_check at line 889 of Type/Tiny.pm, avg 288ns/call # 7 times (8µs+0s) by Type::Tiny::_build_compiled_check at line 532 of Type/Tiny.pm, avg 1µs/call
sub _is_null_constraint { 0 }
66
67sub _build_constraint {
68 my $self = shift;
69 my $class = $self->class;
70 return sub { blessed( $_ ) and $_->isa( $class ) };
71}
72
73
# spent 51µs (43+8) within Type::Tiny::Class::_build_inlined which was called 7 times, avg 7µs/call: # 7 times (43µs+8µs) by Type::Tiny::Class::inlined at line 61, avg 7µs/call
sub _build_inlined {
7473µs my $self = shift;
75711µs78µs my $class = $self->class;
# spent 8µs making 7 calls to Type::Tiny::Class::class, avg 1µs/call
76
7770s my $xsub;
78 $xsub = Type::Tiny::XS::get_subname_for( "InstanceOf[$class]" )
79 if Type::Tiny::_USE_XS;
80
81
# spent 201µs within Type::Tiny::Class::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny/Class.pm:89] which was called 59 times, avg 3µs/call: # 59 times (201µs+0s) by Type::Tiny::inline_check at line 895 of Type/Tiny.pm, avg 3µs/call
sub {
825929µs my $var = $_[1];
83 return
845914µs qq{do { use Scalar::Util (); Scalar::Util::blessed($var) and $var->isa(q[$class]) }}
85 if $Type::Tiny::AvoidCallbacks;
865925µs return "$xsub\($var\)"
87 if $xsub;
8859155µs qq{Scalar::Util::blessed($var) and $var->isa(q[$class])};
89731µs };
90} #/ sub _build_inlined
91
92sub _build_default_message {
932259µs275µs
# spent 46µs (17+29) within Type::Tiny::Class::BEGIN@93 which was called: # once (17µs+29µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:987] at line 93
no warnings 'uninitialized';
# spent 46µs making 1 call to Type::Tiny::Class::BEGIN@93 # spent 29µs making 1 call to warnings::unimport
94 my $self = shift;
95 my $c = $self->class;
96 return sub {
97 sprintf '%s did not pass type constraint (not isa %s)',
98 Type::Tiny::_dd( $_[0] ), $c;
99 }
100 if $self->is_anon;
101 my $name = "$self";
102 return sub {
103 sprintf '%s did not pass type constraint "%s" (not isa %s)',
104 Type::Tiny::_dd( $_[0] ), $name, $c;
105 };
106} #/ sub _build_default_message
107
108sub _instantiate_moose_type {
109 my $self = shift;
110 my %opts = @_;
111 delete $opts{parent};
112 delete $opts{constraint};
113 delete $opts{inlined};
114 require Moose::Meta::TypeConstraint::Class;
115 return "Moose::Meta::TypeConstraint::Class"
116 ->new( %opts, class => $self->class );
117} #/ sub _instantiate_moose_type
118
119sub plus_constructors {
120 my $self = shift;
121
122 unless ( @_ ) {
123 require Types::Standard;
124 push @_, Types::Standard::HashRef(), "new";
125 }
126
127 require B;
128 require Types::TypeTiny;
129
130 my $class = B::perlstring( $self->class );
131
132 my @r;
133 while ( @_ ) {
134 my $source = shift;
135 Types::TypeTiny::is_TypeTiny( $source )
136 or _croak "Expected type constraint; got $source";
137
138 my $constructor = shift;
139 Types::TypeTiny::is_StringLike( $constructor )
140 or _croak "Expected string; got $constructor";
141
142 push @r, $source, sprintf( '%s->%s($_)', $class, $constructor );
143 } #/ while ( @_ )
144
145 return $self->plus_coercions( \@r );
146} #/ sub plus_constructors
147
148
# spent 667µs (280+387) within Type::Tiny::Class::parent which was called 84 times, avg 8µs/call: # 84 times (280µs+387µs) by Type::Tiny::is_strictly_subtype_of at line 698 of Type/Tiny.pm, avg 8µs/call
sub parent {
14984223µs84387µs $_[0]{parent} ||= $_[0]->_build_parent;
# spent 338µs making 5 calls to Type::Tiny::Class::_build_parent, avg 68µs/call # spent 49µs making 79 calls to Type::Tiny::__ANON__[Type/Tiny.pm:101], avg 620ns/call
150}
151
152
# spent 338µs (113+225) within Type::Tiny::Class::_build_parent which was called 5 times, avg 68µs/call: # 5 times (113µs+225µs) by Type::Tiny::Class::parent at line 149, avg 68µs/call
sub _build_parent {
15351µs my $self = shift;
15459µs56µs my $class = $self->class;
# spent 6µs making 5 calls to Type::Tiny::Class::class, avg 1µs/call
155
156 # Some classes (I'm looking at you, Math::BigFloat) include a class in
157 # their @ISA to inherit methods, but then override isa() to return false,
158 # so that they don't appear to be a subclass.
159 #
160 # In these cases, we don't want to list the parent class as a parent
161 # type constraint.
162 #
163 my @isa = grep $class->isa( $_ ),
16414176µs753µs
# spent 16µs (4+12) within Type::Tiny::Class::BEGIN@164.74 which was called: # once (4µs+12µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:987] at line 164 # spent 15µs (8+7) within Type::Tiny::Class::BEGIN@164 which was called: # once (8µs+7µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:987] at line 164
do { no strict "refs"; no warnings; @{"$class\::ISA"} };
# spent 16µs making 1 call to Type::Tiny::Class::BEGIN@164.74 # spent 15µs making 1 call to Type::Tiny::Class::BEGIN@164 # spent 12µs making 1 call to warnings::unimport # spent 7µs making 1 call to strict::unimport # spent 3µs making 3 calls to UNIVERSAL::isa, avg 1µs/call
165
16653µs if ( @isa == 0 ) {
16722µs require Types::Standard;
16826µs24µs return Types::Standard::Object();
# spent 4µs making 2 calls to Types::Standard::Object, avg 2µs/call
169 }
170
171328µs3212µs if ( @isa == 1 ) {
# spent 212µs making 3 calls to Type::Tiny::Class::new, avg 71µs/call
172 return ref( $self )->new( class => $isa[0] );
173 }
174
175 require Type::Tiny::Intersection;
176 "Type::Tiny::Intersection"->new(
177 type_constraints => [ map ref( $self )->new( class => $_ ), @isa ],
178 );
179} #/ sub _build_parent
180
181*__get_linear_isa_dfs =
18212µs eval { require mro }
183 ? \&mro::get_linear_isa
184 : sub {
1852225µs218µs
# spent 15µs (12+3) within Type::Tiny::Class::BEGIN@185 which was called: # once (12µs+3µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:987] at line 185
no strict 'refs';
# spent 15µs making 1 call to Type::Tiny::Class::BEGIN@185 # spent 3µs making 1 call to strict::unimport
186
187 my $classname = shift;
188 my @lin = ( $classname );
189 my %stored;
190
191 foreach my $parent ( @{"$classname\::ISA"} ) {
192 my $plin = __get_linear_isa_dfs( $parent );
193 foreach ( @$plin ) {
194 next if exists $stored{$_};
195 push( @lin, $_ );
196 $stored{$_} = 1;
197 }
198 }
199
200 return \@lin;
20111µs };
202
203sub validate_explain {
204 my $self = shift;
205 my ( $value, $varname ) = @_;
206 $varname = '$_' unless defined $varname;
207
208 return undef if $self->check( $value );
209 return ["Not a blessed reference"] unless blessed( $value );
210
211 my @isa = @{ __get_linear_isa_dfs( ref $value ) };
212
213 my $display_var = $varname eq q{$_} ? '' : sprintf( ' (in %s)', $varname );
214
215 require Type::Utils;
216 return [
217 sprintf( '"%s" requires that the reference isa %s', $self, $self->class ),
218 sprintf(
219 'The reference%s isa %s', $display_var, Type::Utils::english_list( @isa )
220 ),
221 ];
222} #/ sub validate_explain
223
22414µs1;
225
226__END__
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.