← Index
NYTProf Performance Profile   « line view »
For rbm/rbm
  Run on Wed Feb 12 03:38:15 2020
Reported on Wed Feb 12 04:56:35 2020

Filename/usr/share/perl/5.28/overload.pm
StatementsExecuted 138 statements in 890µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
611199µs199µsoverload::::OVERLOADoverload::OVERLOAD
66482µs281µsoverload::::importoverload::import
11112µs17µsoverload::::BEGIN@81overload::BEGIN@81
1118µs13µsoverload::::BEGIN@112overload::BEGIN@112
1116µs39µsoverload::::BEGIN@142overload::BEGIN@142
0000s0soverload::::AddrRefoverload::AddrRef
0000s0soverload::::Methodoverload::Method
0000s0soverload::::Overloadedoverload::Overloaded
0000s0soverload::::OverloadedStringifyoverload::OverloadedStringify
0000s0soverload::::constantoverload::constant
0000s0soverload::::mycanoverload::mycan
0000s0soverload::::niloverload::nil
0000s0soverload::::ov_methodoverload::ov_method
0000s0soverload::::remove_constantoverload::remove_constant
0000s0soverload::::unimportoverload::unimport
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package overload;
2
31400nsour $VERSION = '1.30';
4
517µs%ops = (
6 with_assign => "+ - * / % ** << >> x .",
7 assign => "+= -= *= /= %= **= <<= >>= x= .=",
8 num_comparison => "< <= > >= == !=",
9 '3way_comparison' => "<=> cmp",
10 str_comparison => "lt le gt ge eq ne",
11 binary => '& &= | |= ^ ^= &. &.= |. |.= ^. ^.=',
12 unary => "neg ! ~ ~.",
13 mutators => '++ --',
14 func => "atan2 cos sin exp abs log sqrt int",
15 conversion => 'bool "" 0+ qr',
16 iterators => '<>',
17 filetest => "-X",
18 dereferencing => '${} @{} %{} &{} *{}',
19 matching => '~~',
20 special => 'nomethod fallback =',
21);
22
231100nsmy %ops_seen;
24138µs@ops_seen{ map split(/ /), values %ops } = ();
25
26sub nil {}
27
28
# spent 199µs within overload::OVERLOAD which was called 6 times, avg 33µs/call: # 6 times (199µs+0s) by overload::import at line 57, avg 33µs/call
sub OVERLOAD {
2962µs $package = shift;
30613µs my %arg = @_;
3162µs my $sub;
32626µs *{$package . "::(("} = \&nil; # Make it findable via fetchmethod.
33652µs for (keys %arg) {
341512µs if ($_ eq 'fallback') {
35658µs for my $sym (*{$package . "::()"}) {
3665µs *$sym = \&nil; # Make it findable via fetchmethod.
3766µs $$sym = $arg{$_};
38 }
39 } else {
40 warnings::warnif("overload arg '$_' is invalid")
41910µs unless exists $ops_seen{$_};
4295µs $sub = $arg{$_};
4393µs if (not ref $sub) {
44411µs $ {$package . "::(" . $_} = $sub;
4543µs $sub = \&nil;
46 }
47 #print STDERR "Setting '$ {'package'}::\cO$_' to \\&'$sub'.\n";
48917µs *{$package . "::(" . $_} = \&{ $sub };
49 }
50 }
51}
52
53
# spent 281µs (82+199) within overload::import which was called 6 times, avg 47µs/call: # once (15µs+72µs) by Template::Exception::BEGIN@27 at line 27 of Template/Exception.pm # once (14µs+31µs) by File::Temp::Dir::BEGIN@1543 at line 1543 of File/Temp.pm # once (17µs+27µs) by Getopt::Long::CallBack::BEGIN@1568 at line 1568 of Getopt/Long.pm # once (13µs+30µs) by File::Temp::BEGIN@32 at line 32 of File/Temp.pm # once (16µs+22µs) by Path::Tiny::Error::BEGIN@2133 at line 2133 of Path/Tiny.pm # once (7µs+17µs) by Path::Tiny::BEGIN@29 at line 32 of Path/Tiny.pm
sub import {
54618µs $package = (caller())[0];
55 # *{$package . "::OVERLOAD"} = \&OVERLOAD;
5662µs shift;
57641µs6199µs $package->overload::OVERLOAD(@_);
# spent 199µs making 6 calls to overload::OVERLOAD, avg 33µs/call
58}
59
60sub unimport {
61 $package = (caller())[0];
62 shift;
63 *{$package . "::(("} = \&nil;
64 for (@_) {
65 warnings::warnif("overload arg '$_' is invalid")
66 unless exists $ops_seen{$_};
67 delete $ {$package . "::"}{$_ eq 'fallback' ? '()' : "(" .$_};
68 }
69}
70
71sub Overloaded {
72 my $package = shift;
73 $package = ref $package if ref $package;
74 mycan ($package, '()') || mycan ($package, '((');
75}
76
77sub ov_method {
78 my $globref = shift;
79 return undef unless $globref;
80 my $sub = \&{*$globref};
812188µs223µs
# spent 17µs (12+5) within overload::BEGIN@81 which was called: # once (12µs+5µs) by Path::Tiny::BEGIN@29 at line 81
no overloading;
# spent 17µs making 1 call to overload::BEGIN@81 # spent 5µs making 1 call to overloading::unimport
82 return $sub if $sub != \&nil;
83 return shift->can($ {*$globref});
84}
85
86sub OverloadedStringify {
87 my $package = shift;
88 $package = ref $package if ref $package;
89 #$package->can('(""')
90 ov_method mycan($package, '(""'), $package
91 or ov_method mycan($package, '(0+'), $package
92 or ov_method mycan($package, '(bool'), $package
93 or ov_method mycan($package, '(nomethod'), $package;
94}
95
96sub Method {
97 my $package = shift;
98 if(ref $package) {
99 local $@;
100 local $!;
101 require Scalar::Util;
102 $package = Scalar::Util::blessed($package);
103 return undef if !defined $package;
104 }
105 #my $meth = $package->can('(' . shift);
106 ov_method mycan($package, '(' . shift), $package;
107 #return $meth if $meth ne \&nil;
108 #return $ {*{$meth}};
109}
110
111sub AddrRef {
1122134µs217µs
# spent 13µs (8+5) within overload::BEGIN@112 which was called: # once (8µs+5µs) by Path::Tiny::BEGIN@29 at line 112
no overloading;
# spent 13µs making 1 call to overload::BEGIN@112 # spent 4µs making 1 call to overloading::unimport
113 "$_[0]";
114}
115
11611µs*StrVal = *AddrRef;
117
118sub mycan { # Real can would leave stubs.
119 my ($package, $meth) = @_;
120
121 local $@;
122 local $!;
123 require mro;
124
125 my $mro = mro::get_linear_isa($package);
126 foreach my $p (@$mro) {
127 my $fqmeth = $p . q{::} . $meth;
128 return \*{$fqmeth} if defined &{$fqmeth};
129 }
130
131 return undef;
132}
133
13411µs%constants = (
135 'integer' => 0x1000, # HINT_NEW_INTEGER
136 'float' => 0x2000, # HINT_NEW_FLOAT
137 'binary' => 0x4000, # HINT_NEW_BINARY
138 'q' => 0x8000, # HINT_NEW_STRING
139 'qr' => 0x10000, # HINT_NEW_RE
140 );
141
1422224µs273µs
# spent 39µs (6+34) within overload::BEGIN@142 which was called: # once (6µs+34µs) by Path::Tiny::BEGIN@29 at line 142
use warnings::register;
# spent 39µs making 1 call to overload::BEGIN@142 # spent 34µs making 1 call to warnings::register::import
143sub constant {
144 # Arguments: what, sub
145 while (@_) {
146 if (@_ == 1) {
147 warnings::warnif ("Odd number of arguments for overload::constant");
148 last;
149 }
150 elsif (!exists $constants {$_ [0]}) {
151 warnings::warnif ("'$_[0]' is not an overloadable type");
152 }
153 elsif (!ref $_ [1] || "$_[1]" !~ /(^|=)CODE\(0x[0-9a-f]+\)$/) {
154 # Can't use C<ref $_[1] eq "CODE"> above as code references can be
155 # blessed, and C<ref> would return the package the ref is blessed into.
156 if (warnings::enabled) {
157 $_ [1] = "undef" unless defined $_ [1];
158 warnings::warn ("'$_[1]' is not a code reference");
159 }
160 }
161 else {
162 $^H{$_[0]} = $_[1];
163 $^H |= $constants{$_[0]};
164 }
165 shift, shift;
166 }
167}
168
169sub remove_constant {
170 # Arguments: what, sub
171 while (@_) {
172 delete $^H{$_[0]};
173 $^H &= ~ $constants{$_[0]};
174 shift, shift;
175 }
176}
177
178110µs1;
179
180__END__