← Index
NYTProf Performance Profile   « line view »
For ../prof.pl
  Run on Wed Dec 14 15:33:55 2022
Reported on Wed Dec 14 15:40:03 2022

Filename/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Type/Tiny/Class.pm
StatementsExecuted 801 statements in 3.42ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1111.23ms1.31msType::Tiny::Class::::BEGIN@19Type::Tiny::Class::BEGIN@19
5911237µs285µsType::Tiny::Class::::inlinedType::Tiny::Class::inlined
5911228µs228µsType::Tiny::Class::::__ANON__[:89]Type::Tiny::Class::__ANON__[:89]
8411220µs505µsType::Tiny::Class::::parentType::Tiny::Class::parent
1022125µs685µsType::Tiny::Class::::newType::Tiny::Class::new
1643191µs91µsType::Tiny::Class::::_is_null_constraintType::Tiny::Class::_is_null_constraint
51183µs232µsType::Tiny::Class::::_build_parentType::Tiny::Class::_build_parent
981158µs58µsType::Tiny::Class::::has_inlinedType::Tiny::Class::has_inlined
71143µs48µsType::Tiny::Class::::_build_inlinedType::Tiny::Class::_build_inlined
11137µs37µsType::Tiny::Class::::BEGIN@3Type::Tiny::Class::BEGIN@3
11119µs26µsType::Tiny::Class::::BEGIN@18Type::Tiny::Class::BEGIN@18
11116µs19µsType::Tiny::Class::::BEGIN@185Type::Tiny::Class::BEGIN@185
11112µs39µsType::Tiny::Class::::BEGIN@14Type::Tiny::Class::BEGIN@14
122110µs10µsType::Tiny::Class::::classType::Tiny::Class::class
1119µs32µsType::Tiny::Class::::BEGIN@93Type::Tiny::Class::BEGIN@93
1118µs11µsType::Tiny::Class::::BEGIN@4Type::Tiny::Class::BEGIN@4
1117µs14µsType::Tiny::Class::::BEGIN@164Type::Tiny::Class::BEGIN@164
1116µs20µsType::Tiny::Class::::BEGIN@164.74Type::Tiny::Class::BEGIN@164.74
1115µs36µ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
3255µs137µs
# spent 37µs within Type::Tiny::Class::BEGIN@3 which was called: # once (37µ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 37µs making 1 call to Type::Tiny::Class::BEGIN@3
4226µs214µs
# spent 11µs (8+3) within Type::Tiny::Class::BEGIN@4 which was called: # once (8µs+3µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:987] at line 4
use strict;
# spent 11µs making 1 call to Type::Tiny::Class::BEGIN@4 # spent 3µs making 1 call to strict::import
5235µs267µs
# spent 36µs (5+31) within Type::Tiny::Class::BEGIN@5 which was called: # once (5µs+31µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:987] at line 5
use warnings;
# spent 36µs making 1 call to Type::Tiny::Class::BEGIN@5 # spent 31µ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';
914µs $Type::Tiny::Class::VERSION = '2.000001';
10145µs12µs}
# spent 2µs making 1 call to Type::Tiny::Class::BEGIN@7
11
1210s$Type::Tiny::Class::VERSION =~ tr/_//d;
13
14254µs266µs
# spent 39µs (12+27) within Type::Tiny::Class::BEGIN@14 which was called: # once (12µ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 39µ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
18339µs233µs
# spent 26µs (19+7) within Type::Tiny::Class::BEGIN@18 which was called: # once (19µs+7µ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 26µs making 1 call to Type::Tiny::Class::BEGIN@18 # spent 7µs making 1 call to UNIVERSAL::VERSION
1921.07ms11.31ms
# spent 1.31ms (1.23+84µs) within Type::Tiny::Class::BEGIN@19 which was called: # once (1.23ms+84µ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.31ms making 1 call to Type::Tiny::Class::BEGIN@19
2019µ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 685µs (125+560) within Type::Tiny::Class::new which was called 10 times, avg 68µs/call: # 7 times (98µs+449µ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 78µs/call # 3 times (27µs+111µs) by Type::Tiny::Class::_build_parent at line 171, avg 46µs/call
sub new {
40106µs my $proto = shift;
411024µs105µs return $proto->class->new( @_ ) if blessed $proto; # DWIM
# spent 5µs making 10 calls to Scalar::Util::blessed, avg 500ns/call
42
431020µs my %opts = ( @_ == 1 ) ? %{ $_[0] } : @_;
44105µs _croak "Need to supply class name" unless exists $opts{class};
45
461023µs1016µs if ( Type::Tiny::_USE_XS ) {
# spent 16µ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
571048µs10539µs return $proto->SUPER::new( %opts );
# spent 539µs making 10 calls to Type::Tiny::ConstrainedObject::new, avg 54µs/call
58} #/ sub new
59
601223µs
# spent 10µs within Type::Tiny::Class::class which was called 12 times, avg 833ns/call: # 7 times (5µs+0s) by Type::Tiny::Class::_build_inlined at line 75, avg 714ns/call # 5 times (5µs+0s) by Type::Tiny::Class::_build_parent at line 154, avg 1µs/call
sub class { $_[0]{class} }
6159262µs748µs
# spent 285µs (237+48) within Type::Tiny::Class::inlined which was called 59 times, avg 5µs/call: # 59 times (237µs+48µs) by Type::Tiny::inline_check at line 895 of Type/Tiny.pm, avg 5µs/call
sub inlined { $_[0]{inlined} ||= $_[0]->_build_inlined }
# spent 48µs making 7 calls to Type::Tiny::Class::_build_inlined, avg 7µs/call
62
6398118µs
# spent 58µs within Type::Tiny::Class::has_inlined which was called 98 times, avg 592ns/call: # 98 times (58µs+0s) by Type::Tiny::can_be_inlined at line 881 of Type/Tiny.pm, avg 592ns/call
sub has_inlined { !!1 }
64
65164222µs
# spent 91µs within Type::Tiny::Class::_is_null_constraint which was called 164 times, avg 555ns/call: # 98 times (69µs+0s) by Type::Tiny::can_be_inlined at line 877 of Type/Tiny.pm, avg 704ns/call # 59 times (19µs+0s) by Type::Tiny::inline_check at line 889 of Type/Tiny.pm, avg 322ns/call # 7 times (3µs+0s) by Type::Tiny::_build_compiled_check at line 532 of Type/Tiny.pm, avg 429ns/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 48µs (43+5) within Type::Tiny::Class::_build_inlined which was called 7 times, avg 7µs/call: # 7 times (43µs+5µs) by Type::Tiny::Class::inlined at line 61, avg 7µs/call
sub _build_inlined {
7471µs my $self = shift;
75711µs75µs my $class = $self->class;
# spent 5µs making 7 calls to Type::Tiny::Class::class, avg 714ns/call
76
7771µs my $xsub;
78 $xsub = Type::Tiny::XS::get_subname_for( "InstanceOf[$class]" )
79 if Type::Tiny::_USE_XS;
80
81
# spent 228µ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 4µs/call: # 59 times (228µs+0s) by Type::Tiny::inline_check at line 895 of Type/Tiny.pm, avg 4µs/call
sub {
825930µ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;
865934µs return "$xsub\($var\)"
87 if $xsub;
8859189µs qq{Scalar::Util::blessed($var) and $var->isa(q[$class])};
89731µs };
90} #/ sub _build_inlined
91
92sub _build_default_message {
932321µs255µs
# spent 32µs (9+23) within Type::Tiny::Class::BEGIN@93 which was called: # once (9µs+23µ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 32µs making 1 call to Type::Tiny::Class::BEGIN@93 # spent 23µ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 505µs (220+285) within Type::Tiny::Class::parent which was called 84 times, avg 6µs/call: # 84 times (220µs+285µs) by Type::Tiny::is_strictly_subtype_of at line 698 of Type/Tiny.pm, avg 6µs/call
sub parent {
14984215µs84285µs $_[0]{parent} ||= $_[0]->_build_parent;
# spent 232µs making 5 calls to Type::Tiny::Class::_build_parent, avg 46µs/call # spent 53µs making 79 calls to Type::Tiny::__ANON__[Type/Tiny.pm:101], avg 671ns/call
150}
151
152
# spent 232µs (83+149) within Type::Tiny::Class::_build_parent which was called 5 times, avg 46µs/call: # 5 times (83µs+149µs) by Type::Tiny::Class::parent at line 149, avg 46µs/call
sub _build_parent {
15351µs my $self = shift;
15457µs55µs my $class = $self->class;
# spent 5µ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( $_ ),
16414189µs757µs
# spent 20µs (6+14) within Type::Tiny::Class::BEGIN@164.74 which was called: # once (6µs+14µs) by Types::Standard::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:987] at line 164 # spent 14µs (7+7) within Type::Tiny::Class::BEGIN@164 which was called: # once (7µ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 20µs making 1 call to Type::Tiny::Class::BEGIN@164.74 # spent 14µs making 1 call to Type::Tiny::Class::BEGIN@164 # spent 14µs making 1 call to warnings::unimport # spent 7µs making 1 call to strict::unimport # spent 2µs making 3 calls to UNIVERSAL::isa, avg 667ns/call
165
16652µs if ( @isa == 0 ) {
16722µs require Types::Standard;
16827µs24µs return Types::Standard::Object();
# spent 4µs making 2 calls to Types::Standard::Object, avg 2µs/call
169 }
170
171313µs3138µs if ( @isa == 1 ) {
# spent 138µs making 3 calls to Type::Tiny::Class::new, avg 46µ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 {
1852252µs222µs
# spent 19µs (16+3) within Type::Tiny::Class::BEGIN@185 which was called: # once (16µ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 19µ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
22415µ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.