Profile of overloading.pm

← Index
NYTProf Performance Profile «line view»
For test.pl
Run on Mon Apr 5 14:31:27 2021
Reported on Mon Apr 5 14:31:40 2021

Filename | /home/leont/perl5/perlbrew/perls/perl-5.32.0/lib/5.32.0/overloading.pm
Statements | Executed 10 statements in 173µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 5µs | 14µs | overloading::::BEGIN@2overloading::BEGIN@2
1 | 1 | 1 | 4µs | 4µs | overloading::::unimportoverloading::unimport
0 | 0 | 0 | 0s | 0s | overloading::::_ops_to_numsoverloading::_ops_to_nums
0 | 0 | 0 | 0s | 0s | overloading::::importoverloading::import

Call graph for these subroutines as a Graphviz dot language file.

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 |  |  |  |  | package overloading;
2 | 2 | 160µs | 2 | 22µs | # spent 14µs (5+8) within overloading::BEGIN@2 which was called: # once (5µs+8µs) by Carp::BEGIN@169 at line 2 use warnings; # spent 14µs making 1 call to overloading::BEGIN@2 # spent 8µs making 1 call to warnings::import
3 |  |  |  |  |
4 | 1 | 200ns |  |  | our $VERSION = '0.02';
5 |  |  |  |  |
6 | 1 | 200ns |  |  | my $HINT_NO_AMAGIC = 0x01000000; # see perl.h
7 |  |  |  |  |
8 | 1 | 4µs |  |  | require 5.010001;
9 |  |  |  |  |
10 |  |  |  |  | sub _ops_to_nums {
11 |  |  |  |  | require overload::numbers;
12 |  |  |  |  |
13 |  |  |  |  | map { exists $overload::numbers::names{"($_"}
14 |  |  |  |  | ? $overload::numbers::names{"($_"}
15 |  |  |  |  | : do { require Carp; Carp::croak("'$_' is not a valid overload") }
16 |  |  |  |  | } @_;
17 |  |  |  |  | }
18 |  |  |  |  |
19 |  |  |  |  | sub import {
20 |  |  |  |  | my ( $class, @ops ) = @_;
21 |  |  |  |  |
22 |  |  |  |  | if ( @ops ) {
23 |  |  |  |  | if ( $^H{overloading} ) {
24 |  |  |  |  | vec($^H{overloading} , $_, 1) = 0 for _ops_to_nums(@ops);
25 |  |  |  |  | }
26 |  |  |  |  |
27 |  |  |  |  | if ( $^H{overloading} !~ /[^\0]/ ) {
28 |  |  |  |  | delete $^H{overloading};
29 |  |  |  |  | $^H &= ~$HINT_NO_AMAGIC;
30 |  |  |  |  | }
31 |  |  |  |  | } else {
32 |  |  |  |  | delete $^H{overloading};
33 |  |  |  |  | $^H &= ~$HINT_NO_AMAGIC;
34 |  |  |  |  | }
35 |  |  |  |  | }
36 |  |  |  |  |
37 |  |  |  |  | # spent 4µs within overloading::unimport which was called: # once (4µs+0s) by Carp::BEGIN@1 at line 1 of (eval 3)[Carp.pm:171] sub unimport {
38 | 1 | 400ns |  |  | my ( $class, @ops ) = @_;
39 |  |  |  |  |
40 | 1 | 1µs |  |  | if ( exists $^H{overloading} or not $^H & $HINT_NO_AMAGIC ) {
41 |  |  |  |  | if ( @ops ) {
42 |  |  |  |  | vec($^H{overloading} ||= '', $_, 1) = 1 for _ops_to_nums(@ops);
43 |  |  |  |  | } else {
44 | 1 | 1µs |  |  | delete $^H{overloading};
45 |  |  |  |  | }
46 |  |  |  |  | }
47 |  |  |  |  |
48 | 1 | 4µs |  |  | $^H |= $HINT_NO_AMAGIC;
49 |  |  |  |  | }
50 |  |  |  |  |
51 | 1 | 2µs |  |  | 1;
52 |  |  |  |  | __END__