← Index
NYTProf Performance Profile   « line view »
For ../prof.pl
  Run on Wed Dec 14 16:10:05 2022
Reported on Wed Dec 14 16:12:58 2022

Filename/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm
StatementsExecuted 10140 statements in 38.0ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1121134.4ms40.1msSub::Quote::::_clean_evalSub::Quote::_clean_eval
133734.96ms56.2msSub::Quote::::quote_subSub::Quote::quote_sub
10711544.57ms6.04msSub::Quote::::quotifySub::Quote::quotify
112213.27ms51.2msSub::Quote::::unquote_subSub::Quote::unquote_sub
112112.83ms4.77msSub::Quote::::capture_unrollSub::Quote::capture_unroll
1111.86ms2.11msSub::Quote::::BEGIN@8Sub::Quote::BEGIN@8
112111.25ms2.74msSub::Quote::::_contextSub::Quote::_context
76151887µs887µsSub::Quote::::CORE:matchSub::Quote::CORE:match (opcode)
10522609µs981µsSub::Quote::::sanitize_identifierSub::Quote::sanitize_identifier
21121599µs599µsSub::Quote::::CORE:substSub::Quote::CORE:subst (opcode)
17211211µs211µsSub::Quote::::CORE:substcontSub::Quote::CORE:substcont (opcode)
3711128µs128µsSub::Quote::::quoted_from_subSub::Quote::quoted_from_sub
11129µs30µsSub::Quote::::BEGIN@14Sub::Quote::BEGIN@14
11120µs23µsSub::Quote::::BEGIN@5Sub::Quote::BEGIN@5
61118µs3.25msSub::Quote::::__ANON__[:232]Sub::Quote::__ANON__[:232]
11116µs29µsSub::Quote::::BEGIN@348Sub::Quote::BEGIN@348
1118µs27µsSub::Quote::::BEGIN@9Sub::Quote::BEGIN@9
1117µs11µsSub::Quote::::BEGIN@10Sub::Quote::BEGIN@10
1117µs23µsSub::Quote::::BEGIN@65Sub::Quote::BEGIN@65
1116µs27µsSub::Quote::::BEGIN@11Sub::Quote::BEGIN@11
1113µs3µsSub::Quote::::BEGIN@13Sub::Quote::BEGIN@13
1113µs20µsSub::Quote::::BEGIN@6Sub::Quote::BEGIN@6
1112µs2µsSub::Quote::::BEGIN@12Sub::Quote::BEGIN@12
1111µs1µsSub::Quote::::__ANON__Sub::Quote::__ANON__ (xsub)
0000s0sSub::Quote::::CLONESub::Quote::CLONE
0000s0sSub::Quote::::__ANON__[:35]Sub::Quote::__ANON__[:35]
0000s0sSub::Quote::::__ANON__[:36]Sub::Quote::__ANON__[:36]
0000s0sSub::Quote::::__ANON__[:37]Sub::Quote::__ANON__[:37]
0000s0sSub::Quote::::inlinifySub::Quote::inlinify
0000s0sSub::Quote::::qsubSub::Quote::qsub
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package Sub::Quote;
2
311212.0ms
# spent 40.1ms (34.4+5.71) within Sub::Quote::_clean_eval which was called 112 times, avg 358µs/call: # 112 times (34.4ms+5.71ms) by Sub::Quote::unquote_sub at line 353, avg 358µs/call
sub _clean_eval { eval $_[0] }
# spent 551ms executing statements in string eval
# includes 443ms spent executing 46915 calls to 3 subs defined therein. # spent 396ms executing statements in string eval
# includes 380ms spent executing 39140 calls to 3 subs defined therein. # spent 258ms executing statements in string eval
# includes 245ms spent executing 25864 calls to 3 subs defined therein. # spent 252ms executing statements in string eval
# includes 166ms spent executing 94460 calls to 3 subs defined therein. # spent 180ms executing statements in string eval
# includes 144ms spent executing 46958 calls to 4 subs defined therein. # spent 173ms executing statements in string eval
# includes 126ms spent executing 39233 calls to 4 subs defined therein. # spent 166ms executing statements in string eval
# includes 159ms spent executing 4227 calls to 10 subs defined therein. # spent 145ms executing statements in string eval
# includes 100ms spent executing 47935 calls to 3 subs defined therein. # spent 117ms executing statements in string eval
# includes 84.5ms spent executing 25865 calls to 4 subs defined therein. # spent 11.2ms executing statements in string eval
# includes 8.42ms spent executing 760 calls to 3 subs defined therein. # spent 5.33ms executing statements in string eval
# includes 3.86ms spent executing 2491 calls to 3 subs defined therein. # spent 3.69ms executing statements in string eval
# includes 2.59ms spent executing 762 calls to 4 subs defined therein. # spent 3.00ms executing statements in string eval
# includes 2.51ms spent executing 38 calls to 3 subs defined therein. # spent 2.33ms executing statements in string eval
# includes 1.77ms spent executing 732 calls to 3 subs defined therein. # spent 2.30ms executing statements in string eval
# includes 1.93ms spent executing 730 calls to 3 subs defined therein. # spent 2.27ms executing statements in string eval
# includes 137µs spent executing 20 calls to 19 subs defined therein. # spent 2.12ms executing statements in string eval
# includes 1.92ms spent executing 746 calls to 3 subs defined therein. # spent 1.93ms executing statements in string eval
# includes 1.57ms spent executing 26 calls to 3 subs defined therein. # spent 1.49ms executing statements in string eval
# includes 647µs spent executing 22 calls to 8 subs defined therein. # spent 1.29ms executing statements in string eval
# includes 327µs spent executing 67 calls to 4 subs defined therein. # spent 1.17ms executing statements in string eval
# includes 162µs spent executing 10 calls to 9 subs defined therein. # spent 911µs executing statements in string eval
# includes 157µs spent executing 11 calls to 10 subs defined therein. # spent 788µs executing statements in string eval
# includes 866µs spent executing 65 calls to 3 subs defined therein. # spent 737µs executing statements in string eval
# includes 72µs spent executing 7 calls to 3 subs defined therein. # spent 712µs executing statements in string eval
# includes 411µs spent executing 17 calls to 4 subs defined therein. # spent 602µs executing statements in string eval
# includes 282µs spent executing 65 calls to 4 subs defined therein. # spent 497µs executing statements in string eval
# includes 103µs spent executing 6 calls to 5 subs defined therein. # spent 490µs executing statements in string eval
# includes 59µs spent executing 3 calls to 4 subs defined therein. # spent 485µs executing statements in string eval
# includes 135µs spent executing 13 calls to 4 subs defined therein. # spent 484µs executing statements in string eval
# includes 154µs spent executing 13 calls to 3 subs defined therein. # spent 474µs executing statements in string eval
# includes 326µs spent executing 46 calls to 3 subs defined therein. # spent 473µs executing statements in string eval
# includes 181µs spent executing 54 calls to 4 subs defined therein. # spent 434µs executing statements in string eval
# includes 228µs spent executing 13 calls to 4 subs defined therein. # spent 391µs executing statements in string eval
# includes 37µs spent executing 3 calls to 4 subs defined therein. # spent 364µs executing statements in string eval
# includes 254µs spent executing 20 calls to 4 subs defined therein. # spent 338µs executing statements in string eval
# includes 93µs spent executing 3 calls to 4 subs defined therein. # spent 333µs executing statements in string eval
# includes 12µs spent executing 2 calls to 2 subs defined therein. # spent 329µs executing statements in string eval
# includes 28µs spent executing 3 calls to 4 subs defined therein. # spent 318µs executing statements in string eval
# includes 23µs spent executing 3 calls to 4 subs defined therein. # spent 313µs executing statements in string eval
# includes 25µs spent executing 3 calls to 4 subs defined therein. # spent 312µs executing statements in string eval
# includes 234µs spent executing 19 calls to 3 subs defined therein. # spent 304µs executing statements in string eval
# includes 108µs spent executing 32 calls to 4 subs defined therein. # spent 288µs executing statements in string eval
# includes 34µs spent executing 4 calls to 4 subs defined therein. # spent 280µs executing statements in string eval
# includes 35µs spent executing 4 calls to 4 subs defined therein. # spent 275µs executing statements in string eval
# includes 27µs spent executing 3 calls to 4 subs defined therein. # spent 252µs executing statements in string eval
# includes 35µs spent executing 4 calls to 5 subs defined therein. # spent 240µs executing statements in string eval
# includes 135µs spent executing 14 calls to 3 subs defined therein. # spent 238µs executing statements in string eval
# includes 25µs spent executing 4 calls to 5 subs defined therein. # spent 230µs executing statements in string eval
# includes 124µs spent executing 18 calls to 3 subs defined therein. # spent 229µs executing statements in string eval
# includes 44µs spent executing 2 calls to 3 subs defined therein. # spent 225µs executing statements in string eval
# includes 28µs spent executing 4 calls to 4 subs defined therein. # spent 223µs executing statements in string eval
# includes 19µs spent executing 3 calls to 4 subs defined therein. # spent 216µs executing statements in string eval
# includes 15µs spent executing 2 calls to 2 subs defined therein. # spent 201µs executing statements in string eval
# includes 43µs spent executing 2 calls to 3 subs defined therein. # spent 183µs executing statements in string eval
# includes 17µs spent executing 3 calls to 4 subs defined therein. # spent 170µs executing statements in string eval
# includes 17µs spent executing 3 calls to 4 subs defined therein. # spent 163µs executing statements in string eval
# includes 26µs spent executing 2 calls to 3 subs defined therein. # spent 159µs executing statements in string eval
# includes 102µs spent executing 10 calls to 3 subs defined therein. # spent 158µs executing statements in string eval
# includes 30µs spent executing 4 calls to 3 subs defined therein. # spent 156µs executing statements in string eval
# includes 79µs spent executing 16 calls to 3 subs defined therein. # spent 154µs executing statements in string eval
# includes 68µs spent executing 30 calls to 3 subs defined therein. # spent 153µs executing statements in string eval
# includes 22µs spent executing 3 calls to 3 subs defined therein. # spent 152µs executing statements in string eval
# includes 29µs spent executing 2 calls to 2 subs defined therein. # spent 151µs executing statements in string eval
# includes 94µs spent executing 2 calls to 3 subs defined therein. # spent 146µs executing statements in string eval
# includes 11µs spent executing 2 calls to 3 subs defined therein. # spent 145µs executing statements in string eval
# includes 21µs spent executing 3 calls to 3 subs defined therein. # spent 144µs executing statements in string eval
# includes 17µs spent executing 2 calls to 3 subs defined therein. # spent 143µs executing statements in string eval
# includes 30µs spent executing 2 calls to 3 subs defined therein. # spent 138µs executing statements in string eval
# includes 21µs spent executing 2 calls to 3 subs defined therein. # spent 131µs executing statements in string eval
# includes 20µs spent executing 3 calls to 3 subs defined therein. # spent 130µs executing statements in string eval
# includes 34µs spent executing 3 calls to 3 subs defined therein. # spent 129µs executing statements in string eval
# includes 19µs spent executing 3 calls to 3 subs defined therein. # spent 129µs executing statements in string eval
# includes 23µs spent executing 4 calls to 3 subs defined therein. # spent 128µs executing statements in string eval
# includes 18µs spent executing 2 calls to 3 subs defined therein. # spent 128µs executing statements in string eval
# includes 21µs spent executing 2 calls to 3 subs defined therein. # spent 127µs executing statements in string eval
# includes 17µs spent executing 2 calls to 3 subs defined therein. # spent 126µs executing statements in string eval
# includes 19µs spent executing 2 calls to 3 subs defined therein. # spent 126µs executing statements in string eval
# includes 18µs spent executing 2 calls to 2 subs defined therein. # spent 126µs executing statements in string eval
# includes 47µs spent executing 2 calls to 3 subs defined therein. # spent 124µs executing statements in string eval
# includes 13µs spent executing 2 calls to 3 subs defined therein. # spent 122µs executing statements in string eval
# includes 27µs spent executing 4 calls to 3 subs defined therein. # spent 116µs executing statements in string eval
# includes 49µs spent executing 10 calls to 3 subs defined therein. # spent 116µs executing statements in string eval
# includes 16µs spent executing 2 calls to 3 subs defined therein. # spent 115µs executing statements in string eval
# includes 13µs spent executing 2 calls to 3 subs defined therein. # spent 115µs executing statements in string eval
# includes 21µs spent executing 3 calls to 3 subs defined therein. # spent 113µs executing statements in string eval
# includes 13µs spent executing 2 calls to 3 subs defined therein. # spent 110µs executing statements in string eval
# includes 28µs spent executing 2 calls to 3 subs defined therein. # spent 110µs executing statements in string eval
# includes 12µs spent executing 2 calls to 3 subs defined therein. # spent 104µs executing statements in string eval
# includes 17µs spent executing 2 calls to 3 subs defined therein. # spent 103µs executing statements in string eval
# includes 51µs spent executing 2 calls to 3 subs defined therein. # spent 103µs executing statements in string eval
# includes 10µs spent executing 2 calls to 2 subs defined therein. # spent 102µs executing statements in string eval
# includes 15µs spent executing 2 calls to 3 subs defined therein. # spent 101µs executing statements in string eval
# includes 12µs spent executing 2 calls to 3 subs defined therein. # spent 101µs executing statements in string eval
# includes 61µs spent executing 3 calls to 3 subs defined therein. # spent 98µs executing statements in string eval
# includes 12µs spent executing 2 calls to 3 subs defined therein. # spent 95µs executing statements in string eval
# includes 14µs spent executing 2 calls to 3 subs defined therein. # spent 89µs executing statements in string eval
# includes 15µs spent executing 2 calls to 3 subs defined therein. # spent 87µs executing statements in string eval
# includes 9µs spent executing 2 calls to 3 subs defined therein. # spent 87µs executing statements in string eval
# includes 18µs spent executing 3 calls to 3 subs defined therein. # spent 85µs executing statements in string eval
# includes 15µs spent executing 2 calls to 3 subs defined therein. # spent 84µs executing statements in string eval
# includes 11µs spent executing 2 calls to 3 subs defined therein. # spent 81µs executing statements in string eval
# includes 10µs spent executing 2 calls to 3 subs defined therein. # spent 80µs executing statements in string eval
# includes 14µs spent executing 2 calls to 3 subs defined therein. # spent 79µs executing statements in string eval
# includes 8µs spent executing 2 calls to 3 subs defined therein. # spent 77µs executing statements in string eval
# includes 22µs spent executing 3 calls to 3 subs defined therein. # spent 75µs executing statements in string eval
# includes 12µs spent executing 2 calls to 3 subs defined therein. # spent 72µs executing statements in string eval
# includes 11µs spent executing 2 calls to 3 subs defined therein. # spent 71µs executing statements in string eval
# includes 9µs spent executing 2 calls to 3 subs defined therein. # spent 65µs executing statements in string eval
# includes 11µs spent executing 2 calls to 3 subs defined therein. # spent 62µs executing statements in string eval
# includes 11µs spent executing 2 calls to 3 subs defined therein. # spent 61µs executing statements in string eval
# includes 11µs spent executing 2 calls to 3 subs defined therein. # spent 57µs executing statements in string eval
# includes 10µs spent executing 2 calls to 3 subs defined therein.
4
5224µs226µs
# spent 23µs (20+3) within Sub::Quote::BEGIN@5 which was called: # once (20µs+3µs) by Method::Generate::Accessor::BEGIN@8 at line 5
use strict;
# spent 23µs making 1 call to Sub::Quote::BEGIN@5 # spent 3µs making 1 call to strict::import
6215µs237µs
# spent 20µs (3+17) within Sub::Quote::BEGIN@6 which was called: # once (3µs+17µs) by Method::Generate::Accessor::BEGIN@8 at line 6
use warnings;
# spent 20µs making 1 call to Sub::Quote::BEGIN@6 # spent 17µs making 1 call to warnings::import
7
82536µs22.17ms
# spent 2.11ms (1.86+251µs) within Sub::Quote::BEGIN@8 which was called: # once (1.86ms+251µs) by Method::Generate::Accessor::BEGIN@8 at line 8
use Sub::Defer qw(defer_sub);
# spent 2.11ms making 1 call to Sub::Quote::BEGIN@8 # spent 57µs making 1 call to Exporter::import
9226µs246µs
# spent 27µs (8+19) within Sub::Quote::BEGIN@9 which was called: # once (8µs+19µs) by Method::Generate::Accessor::BEGIN@8 at line 9
use Scalar::Util qw(weaken);
# spent 27µs making 1 call to Sub::Quote::BEGIN@9 # spent 19µs making 1 call to Exporter::import
10221µs215µs
# spent 11µs (7+4) within Sub::Quote::BEGIN@10 which was called: # once (7µs+4µs) by Method::Generate::Accessor::BEGIN@8 at line 10
use Exporter qw(import);
# spent 11µs making 1 call to Sub::Quote::BEGIN@10 # spent 4µs making 1 call to Exporter::import
11225µs248µs
# spent 27µs (6+21) within Sub::Quote::BEGIN@11 which was called: # once (6µs+21µs) by Method::Generate::Accessor::BEGIN@8 at line 11
use Carp qw(croak);
# spent 27µs making 1 call to Sub::Quote::BEGIN@11 # spent 21µs making 1 call to Exporter::import
12117µs12µs
# spent 2µs within Sub::Quote::BEGIN@12 which was called: # once (2µs+0s) by Method::Generate::Accessor::BEGIN@8 at line 12
BEGIN { our @CARP_NOT = qw(Sub::Defer) }
# spent 2µs making 1 call to Sub::Quote::BEGIN@12
132257µs13µs
# spent 3µs within Sub::Quote::BEGIN@13 which was called: # once (3µs+0s) by Method::Generate::Accessor::BEGIN@8 at line 13
use B ();
# spent 3µs making 1 call to Sub::Quote::BEGIN@13
14
# spent 30µs (29+1) within Sub::Quote::BEGIN@14 which was called: # once (29µs+1µs) by Method::Generate::Accessor::BEGIN@8 at line 38
BEGIN {
1511µs *_HAVE_IS_UTF8 = defined &utf8::is_utf8 ? sub(){1} : sub(){0};
1611µs *_HAVE_PERLSTRING = defined &B::perlstring ? sub(){1} : sub(){0};
1719µs11µs *_BAD_BACKSLASH_ESCAPE = _HAVE_PERLSTRING() && "$]" == 5.010_000 ? sub(){1} : sub(){0};
# spent 1µs making 1 call to Sub::Quote::__ANON__
1812µs *_HAVE_HEX_FLOAT = !$ENV{SUB_QUOTE_NO_HEX_FLOAT} && "$]" >= 5.022 ? sub(){1} : sub(){0};
19
20 # This may not be perfect, as we can't tell the format purely from the size
21 # but it should cover the common cases, and other formats are more likely to
22 # be less precise.
2310s17µs my $nvsize = 8 * length pack 'F', 0;
# spent 7µs making 1 call to main::CORE:pack
2411µs my $nvmantbits
25 = $nvsize == 16 ? 11
26 : $nvsize == 32 ? 24
27 : $nvsize == 64 ? 53
28 : $nvsize == 80 ? 64
29 : $nvsize == 128 ? 113
30 : $nvsize == 256 ? 237
31 : 237 # unknown float format
32 ;
3311µs my $precision = int( log(2)/log(10)*$nvmantbits );
34
3514µs *_NVSIZE = sub(){$nvsize};
3616µs *_NVMANTBITS = sub(){$nvmantbits};
3715µs *_FLOAT_PRECISION = sub(){$precision};
381186µs130µs}
# spent 30µs making 1 call to Sub::Quote::BEGIN@14
39
4011µsour $VERSION = '2.006006';
4112µs$VERSION =~ tr/_//d;
42
4312µsour @EXPORT = qw(quote_sub unquote_sub quoted_from_sub qsub);
4411µsour @EXPORT_OK = qw(quotify capture_unroll inlinify sanitize_identifier);
45
46our %QUOTED;
47
4810smy %escape;
49if (_BAD_BACKSLASH_ESCAPE) {
50 %escape = (
51 (map +(chr($_) => sprintf '\x%02x', $_), 0 .. 0x31, 0x7f),
52 "\t" => "\\t",
53 "\n" => "\\n",
54 "\r" => "\\r",
55 "\f" => "\\f",
56 "\b" => "\\b",
57 "\a" => "\\a",
58 "\e" => "\\e",
59 (map +($_ => "\\$_"), qw(" \ $ @)),
60 );
61}
62
63
# spent 6.04ms (4.57+1.47) within Sub::Quote::quotify which was called 1071 times, avg 6µs/call: # 329 times (1.33ms+442µs) by Sub::Quote::capture_unroll at line 142, avg 5µs/call # 224 times (1.22ms+280µs) by Sub::Quote::_context at line 271, avg 7µs/call # 82 times (404µs+139µs) by Method::Generate::Accessor::_generate_simple_get at line 395 of Method/Generate/Accessor.pm, avg 7µs/call # 76 times (339µs+120µs) by Method::Generate::Accessor::_generate_simple_set at line 596 of Method/Generate/Accessor.pm, avg 6µs/call # 76 times (209µs+79µs) by Method::Generate::Accessor::_generate_core_set at line 590 of Method/Generate/Accessor.pm, avg 4µs/call # 68 times (325µs+90µs) by MooX::TypeTiny::Role::GenerateAccessor::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/MooX/TypeTiny/Role/GenerateAccessor.pm:33] at line 19 of MooX/TypeTiny/Role/GenerateAccessor.pm, avg 6µs/call # 60 times (142µs+74µs) by Method::Generate::Accessor::_wrap_attr_exception at line 478 of Method/Generate/Accessor.pm, avg 4µs/call # 49 times (143µs+57µs) by Method::Generate::Constructor::_assign_new at line 219 of Method/Generate/Constructor.pm, avg 4µs/call # 31 times (96µs+45µs) by Method::Generate::Accessor::_generate_simple_has at line 332 of Method/Generate/Accessor.pm, avg 5µs/call # 20 times (84µs+50µs) by Method::Generate::Accessor::_wrap_attr_exception at line 477 of Method/Generate/Accessor.pm, avg 7µs/call # 20 times (64µs+30µs) by Method::Generate::Accessor::_attr_desc at line 441 of Method/Generate/Accessor.pm, avg 5µs/call # 14 times (60µs+23µs) by Method::Generate::Accessor::_generate_asserter at line 643 of Method/Generate/Accessor.pm, avg 6µs/call # 9 times (25µs+8µs) by Method::Generate::Constructor::_check_required at line 238 of Method/Generate/Constructor.pm, avg 4µs/call # 7 times (97µs+29µs) by Method::Generate::Constructor::_handle_subconstructor at line 167 of Method/Generate/Constructor.pm, avg 18µs/call # 6 times (37µs+5µs) by Method::Generate::Accessor::_generate_get_default at line 376 of Method/Generate/Accessor.pm, avg 7µs/call
sub quotify {
641071177µs my $value = $_[0];
6522.99ms239µs
# spent 23µs (7+16) within Sub::Quote::BEGIN@65 which was called: # once (7µs+16µs) by Method::Generate::Accessor::BEGIN@8 at line 65
no warnings 'numeric';
# spent 23µs making 1 call to Sub::Quote::BEGIN@65 # spent 16µs making 1 call to warnings::unimport
66 ! defined $value ? 'undef()'
67 # numeric detection
68 : (!(_HAVE_IS_UTF8 && utf8::is_utf8($value))
69 && length( (my $dummy = '') & $value )
70 && 0 + $value eq $value
71 ) ? (
72 $value != $value ? (
73 $value eq (9**9**9*0)
74 ? '(9**9**9*0)' # nan
75 : '(-(9**9**9*0))' # -nan
76 )
77 : $value == 9**9**9 ? '(9**9**9)' # inf
78 : $value == -9**9**9 ? '(-9**9**9)' # -inf
79 : $value == 0 ? (
80 sprintf('%g', $value) eq '-0' ? '-0.0' : '0',
81 )
82 : $value !~ /[e.]/i ? (
83 $value > 0 ? (sprintf '%u', $value)
84 : (sprintf '%d', $value)
85 )
86 : do {
87 my $float = $value;
88 my $max_factor = int( log( abs($value) ) / log(2) ) - _NVMANTBITS;
89 my $ex_sign = $max_factor > 0 ? 1 : -1;
90 FACTOR: for my $ex (0 .. abs($max_factor)) {
91 my $num = $value / 2**($ex_sign * $ex);
92 for my $precision (_FLOAT_PRECISION .. _FLOAT_PRECISION+2) {
93 my $formatted = sprintf '%.'.$precision.'g', $num;
94 $float = $formatted
95 if $ex == 0;
96 if ($formatted == $num) {
97 if ($ex) {
98 $float
99 = $formatted
100 . ($ex_sign == 1 ? '*' : '/')
101 . (
102 $ex > _NVMANTBITS
103 ? "2**$ex"
104 : sprintf('%u', 2**$ex)
105 );
106 }
107 last FACTOR;
108 }
109 }
110 if (_HAVE_HEX_FLOAT) {
111 $float = sprintf '%a', $value;
112 last FACTOR;
113 }
114 }
115 "$float";
116 }
117 )
118 : !length($value) && length( (my $dummy2 = '') & $value ) ? '(!1)' # false
11910716.61ms21251.47ms : _BAD_BACKSLASH_ESCAPE && _HAVE_IS_UTF8 && utf8::is_utf8($value) ? do {
# spent 1.01ms making 948 calls to B::perlstring, avg 1µs/call # spent 382µs making 1063 calls to utf8::is_utf8, avg 359ns/call # spent 76µs making 114 calls to Sub::Quote::CORE:match, avg 667ns/call
120 $value =~ s/(["\$\@\\[:cntrl:]]|[^\x00-\x7f])/
121 $escape{$1} || sprintf('\x{%x}', ord($1))
122 /ge;
123 qq["$value"];
124 }
125 : _HAVE_PERLSTRING ? B::perlstring($value)
126 : qq["\Q$value\E"];
127}
128
129
# spent 981µs (609+372) within Sub::Quote::sanitize_identifier which was called 105 times, avg 9µs/call: # 68 times (368µs+198µs) by MooX::TypeTiny::Role::GenerateAccessor::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/MooX/TypeTiny/Role/GenerateAccessor.pm:33] at line 16 of MooX/TypeTiny/Role/GenerateAccessor.pm, avg 8µs/call # 37 times (241µs+174µs) by Method::Generate::Accessor::_generate_call_code at line 529 of Method/Generate/Accessor.pm, avg 11µs/call
sub sanitize_identifier {
13010527µs my $name = shift;
131105828µs277372µs $name =~ s/([_\W])/sprintf('_%x', ord($1))/ge;
# spent 211µs making 172 calls to Sub::Quote::CORE:substcont, avg 1µs/call # spent 161µs making 105 calls to Sub::Quote::CORE:subst, avg 2µs/call
132105283µs $name;
133}
134
135
# spent 4.77ms (2.83+1.95) within Sub::Quote::capture_unroll which was called 112 times, avg 43µs/call: # 112 times (2.83ms+1.95ms) by Sub::Quote::unquote_sub at line 309, avg 43µs/call
sub capture_unroll {
13611285µs my ($from, $captures, $indent) = @_;
137 join(
138 '',
139 map {
1404411.14ms329176µs /^([\@\%\$])/
# spent 176µs making 329 calls to Sub::Quote::CORE:match, avg 535ns/call
141 or croak "capture key should start with \@, \% or \$: $_";
1426581.60ms3291.77ms (' ' x $indent).qq{my ${_} = ${1}{${from}->{${\quotify $_}}};\n};
# spent 1.77ms making 329 calls to Sub::Quote::quotify, avg 5µs/call
143 } keys %$captures
144 );
145}
146
147sub inlinify {
148 my ($code, $args, $extra, $local) = @_;
149 $args = '()'
150 if !defined $args;
151 my $do = 'do { '.($extra||'');
152 if ($code =~ s/^(\s*package\s+([a-zA-Z0-9:]+);)//) {
153 $do .= $1;
154 }
155 if ($code =~ s{
156 \A((?:\#\ BEGIN\ quote_sub\ PRELUDE\n.*?\#\ END\ quote_sub\ PRELUDE\n)?\s*)
157 (^\s*) my \s* \(([^)]+)\) \s* = \s* \@_;
158 }{}xms) {
159 my ($pre, $indent, $code_args) = ($1, $2, $3);
160 $do .= $pre;
161 if ($code_args ne $args) {
162 $do .= $indent . 'my ('.$code_args.') = ('.$args.'); ';
163 }
164 }
165 elsif ($local || $args ne '@_') {
166 $do .= ($local ? 'local ' : '').'@_ = ('.$args.'); ';
167 }
168 $do.$code.' }';
169}
170
171
# spent 56.2ms (4.96+51.2) within Sub::Quote::quote_sub which was called 133 times, avg 422µs/call: # 41 times (1.33ms+12.5ms) by Method::Generate::Accessor::generate_method at line 238 of Method/Generate/Accessor.pm, avg 338µs/call # 34 times (1.27ms+13.6ms) by Method::Generate::Accessor::generate_method at line 138 of Method/Generate/Accessor.pm, avg 438µs/call # 27 times (1.06ms+627µs) by Type::Tiny::_overload_coderef at line 203 of Type/Tiny.pm, avg 63µs/call # 14 times (473µs+8.89ms) by Method::Generate::Accessor::generate_method at line 250 of Method/Generate/Accessor.pm, avg 669µs/call # 7 times (396µs+9.90ms) by Method::Generate::Constructor::generate_method at line 161 of Method/Generate/Constructor.pm, avg 1.47ms/call # 7 times (282µs+3.96ms) by Method::Generate::Accessor::generate_method at line 179 of Method/Generate/Accessor.pm, avg 607µs/call # 3 times (150µs+1.68ms) by Method::Generate::Accessor::generate_method at line 159 of Method/Generate/Accessor.pm, avg 609µs/call
sub quote_sub {
172 # HOLY DWIMMERY, BATMAN!
173 # $name => $code => \%captures => \%options
174 # $name => $code => \%captures
175 # $name => $code
176 # $code => \%captures => \%options
177 # $code
178133167µs my $options =
179 (ref($_[-1]) eq 'HASH' and ref($_[-2]) eq 'HASH')
180 ? pop
181 : {};
18213362µs my $captures = ref($_[-1]) eq 'HASH' ? pop : undef;
18313370µs undef($captures) if $captures && !keys %$captures;
18413329µs my $code = pop;
18513331µs my $name = $_[0];
18613352µs if ($name) {
18710628µs my $subname = $name;
188106829µs106438µs my $package = $subname =~ s/(.*)::// ? $1 : caller;
# spent 438µs making 106 calls to Sub::Quote::CORE:subst, avg 4µs/call
189106150µs $name = join '::', $package, $subname;
19010631µs croak qq{package name "$package" too long!}
191 if length $package > 252;
192106603µs106334µs croak qq{package name "$package" is not valid!}
# spent 334µs making 106 calls to Sub::Quote::CORE:match, avg 3µs/call
193 unless $package =~ /^[^\d\W]\w*(?:::\w+)*$/;
19410629µs croak qq{sub name "$subname" too long!}
195 if length $subname > 252;
196106255µs106109µs croak qq{sub name "$subname" is not valid!}
# spent 109µs making 106 calls to Sub::Quote::CORE:match, avg 1µs/call
197 unless $subname =~ /^[^\d\W]\w*$/;
198 }
199133428µs my @caller = caller(0);
200133132µs my ($attributes, $file, $line) = @{$options}{qw(attributes file line)};
20113327µs if ($attributes) {
202 /\A\w+(?:\(.*\))?\z/s || croak "invalid attribute $_"
203 for @$attributes;
204 }
205 my $quoted_info = {
206 name => $name,
207 code => $code,
208 captures => $captures,
209 package => (exists $options->{package} ? $options->{package} : $caller[0]),
210 hints => (exists $options->{hints} ? $options->{hints} : $caller[8]),
211 warning_bits => (exists $options->{warning_bits} ? $options->{warning_bits} : $caller[9]),
212133646µs hintshash => (exists $options->{hintshash} ? $options->{hintshash} : $caller[10]),
213 ($attributes ? (attributes => $attributes) : ()),
214 ($file ? (file => $file) : ()),
215 ($line ? (line => $line) : ()),
216 };
21713327µs my $unquoted;
218133513µs133141µs weaken($quoted_info->{unquoted} = \$unquoted);
# spent 141µs making 133 calls to Scalar::Util::weaken, avg 1µs/call
21913359µs if ($options->{no_defer}) {
22010625µs my $fake = \my $var;
221106192µs local $QUOTED{$fake} = $quoted_info;
222106122µs10648.0ms my $sub = unquote_sub($fake);
# spent 48.0ms making 106 calls to Sub::Quote::unquote_sub, avg 453µs/call
223106249µs991.62ms Sub::Defer::_install_coderef($name, $sub) if $name && !$options->{no_install};
# spent 1.62ms making 99 calls to Sub::Defer::_install_coderef, avg 16µs/call
224106575µs return $sub;
225 }
226 else {
227 my $deferred = defer_sub(
228 ($options->{no_install} ? undef : $name),
229
# spent 3.25ms (18µs+3.23) within Sub::Quote::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:232] which was called 6 times, avg 542µs/call: # 6 times (18µs+3.23ms) by Sub::Defer::undefer_sub at line 85 of Sub/Defer.pm, avg 542µs/call
sub {
230 $unquoted if 0;
231619µs63.23ms unquote_sub($quoted_info->{deferred});
# spent 3.23ms making 6 calls to Sub::Quote::unquote_sub, avg 539µs/call
232 },
233 {
234 ($attributes ? ( attributes => $attributes ) : ()),
23527320µs27556µs ($name ? () : ( package => $quoted_info->{package} )),
# spent 556µs making 27 calls to Sub::Defer::defer_sub, avg 21µs/call
236 },
237 );
23827118µs2724µs weaken($quoted_info->{deferred} = $deferred);
# spent 24µs making 27 calls to Scalar::Util::weaken, avg 889ns/call
2392766µs2712µs weaken($QUOTED{$deferred} = $quoted_info);
# spent 12µs making 27 calls to Scalar::Util::weaken, avg 444ns/call
24027137µs return $deferred;
241 }
242}
243
244
# spent 2.74ms (1.25+1.50) within Sub::Quote::_context which was called 112 times, avg 24µs/call: # 112 times (1.25ms+1.50ms) by Sub::Quote::unquote_sub at line 309, avg 24µs/call
sub _context {
24511232µs my $info = shift;
246112283µs $info->{context} ||= do {
247 my ($package, $hints, $warning_bits, $hintshash, $file, $line)
248112142µs = @{$info}{qw(package hints warning_bits hintshash file line)};
249
25011226µs $line ||= 1
251 if $file;
252
25311228µs my $line_mark = '';
25411218µs if ($line) {
255 $line_mark = "#line ".($line-1);
256 if ($file) {
257 $line_mark .= qq{ "$file"};
258 }
259 $line_mark .= "\n";
260 }
261
262 $info->{context}
263 ="# BEGIN quote_sub PRELUDE\n"
264 ."package $package;\n"
265 ."BEGIN {\n"
266 ." \$^H = ".quotify($hints).";\n"
267 ." \${^WARNING_BITS} = ".quotify($warning_bits).";\n"
268 ." \%^H = (\n"
269 . join('', map
270 " ".quotify($_)." => ".quotify($hintshash->{$_}).",\n",
271112584µs2241.50ms grep !(ref $hintshash->{$_} && $hintshash->{$_} =~ /\A(?:\w+(?:::\w+)*=)?[A-Z]+\(0x[[0-9a-fA-F]+\)\z/),
# spent 1.50ms making 224 calls to Sub::Quote::quotify, avg 7µs/call
272 keys %$hintshash)
273 ." );\n"
274 ."}\n"
275 .$line_mark
276 ."# END quote_sub PRELUDE\n";
277 };
278}
279
280
# spent 128µs within Sub::Quote::quoted_from_sub which was called 37 times, avg 3µs/call: # 37 times (128µs+0s) by Method::Generate::Accessor::_generate_call_code at line 513 of Method/Generate/Accessor.pm, avg 3µs/call
sub quoted_from_sub {
2813740µs my ($sub) = @_;
28237129µs my $quoted_info = $QUOTED{$sub||''} or return undef;
283 my ($name, $code, $captures, $unquoted, $deferred)
284 = @{$quoted_info}{qw(name code captures unquoted deferred)};
285 $code = _context($quoted_info) . $code;
286 $unquoted &&= $$unquoted;
287 if (($deferred && $deferred eq $sub)
288 || ($unquoted && $unquoted eq $sub)) {
289 return [ $name, $code, $captures, $unquoted, $deferred ];
290 }
291 return undef;
292}
293
294
# spent 51.2ms (3.27+48.0) within Sub::Quote::unquote_sub which was called 112 times, avg 457µs/call: # 106 times (3.14ms+44.8ms) by Sub::Quote::quote_sub at line 222, avg 453µs/call # 6 times (130µs+3.10ms) by Sub::Quote::__ANON__[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:232] at line 231, avg 539µs/call
sub unquote_sub {
29511238µs my ($sub) = @_;
29611284µs my $quoted_info = $QUOTED{$sub} or return undef;
29711235µs my $unquoted = $quoted_info->{unquoted};
29811285µs unless ($unquoted && $$unquoted) {
299 my ($name, $code, $captures, $package, $attributes)
300112174µs = @{$quoted_info}{qw(name code captures package attributes)};
301
302112470µs106192µs ($package, $name) = $name =~ /(.*)::(.*)/
# spent 192µs making 106 calls to Sub::Quote::CORE:match, avg 2µs/call
303 if $name;
304
305112139µs my %captures = $captures ? %$captures : ();
30611280µs $captures{'$_UNQUOTED'} = \$unquoted;
30711243µs $captures{'$_QUOTED'} = \$quoted_info;
308
309112502µs2247.52ms my $make_sub
# spent 4.77ms making 112 calls to Sub::Quote::capture_unroll, avg 43µs/call # spent 2.74ms making 112 calls to Sub::Quote::_context, avg 24µs/call
310 = "{\n"
311 . capture_unroll("\$_[1]", \%captures, 2)
312 . " package ${package};\n"
313 . (
314 $name
315 # disable the 'variable $x will not stay shared' warning since
316 # we're not letting it escape from this scope anyway so there's
317 # nothing trying to share it
318 ? " no warnings 'closure';\n sub ${name} "
319 : " \$\$_UNQUOTED = sub "
320 )
321 . ($attributes ? join('', map ":$_ ", @$attributes) : '') . "{\n"
322 . " (\$_QUOTED,\$_UNQUOTED) if 0;\n"
323 . _context($quoted_info)
324 . $code
325 . " }".($name ? "\n \$\$_UNQUOTED = \\&${name}" : '') . ";\n"
326 . "}\n"
327 . "1;\n";
32811261µs if (my $debug = $ENV{SUB_QUOTE_DEBUG}) {
329 if ($debug =~ m{^([^\W\d]\w*(?:::\w+)*(?:::)?)$}) {
330 my $filter = $1;
331 my $match
332 = $filter =~ /::$/ ? $package.'::'
333 : $filter =~ /::/ ? $package.'::'.($name||'__ANON__')
334 : ($name||'__ANON__');
335 warn $make_sub
336 if $match eq $filter;
337 }
338 elsif ($debug =~ m{\A/(.*)/\z}s) {
339 my $filter = $1;
340 warn $make_sub
341 if $code =~ $filter;
342 }
343 else {
344 warn $make_sub;
345 }
346 }
347 {
348114594µs242µs
# spent 29µs (16+13) within Sub::Quote::BEGIN@348 which was called: # once (16µs+13µs) by Method::Generate::Accessor::BEGIN@8 at line 348
no strict 'refs';
# spent 29µs making 1 call to Sub::Quote::BEGIN@348 # spent 13µs making 1 call to strict::unimport
349112307µs local *{"${package}::${name}"} if $name;
35011230µs my ($success, $e);
351 {
35222430µs local $@;
353112154µs11240.1ms $success = _clean_eval($make_sub, \%captures);
# spent 40.1ms making 112 calls to Sub::Quote::_clean_eval, avg 358µs/call
35411277µs $e = $@;
355 }
35611222µs unless ($success) {
357 my $space = length($make_sub =~ tr/\n//);
358 my $line = 0;
359 $make_sub =~ s/^/sprintf "%${space}d: ", ++$line/emg;
360 croak "Eval went very, very wrong:\n\n${make_sub}\n\n$e";
361 }
362112665µs112144µs weaken($QUOTED{$$unquoted} = $quoted_info);
# spent 144µs making 112 calls to Scalar::Util::weaken, avg 1µs/call
363 }
364 }
365112280µs $$unquoted;
366}
367
368sub qsub ($) {
369 goto &quote_sub;
370}
371
372sub CLONE {
373 my @quoted = map { defined $_ ? (
374 $_->{unquoted} && ${$_->{unquoted}} ? (${ $_->{unquoted} } => $_) : (),
375 $_->{deferred} ? ($_->{deferred} => $_) : (),
376 ) : () } values %QUOTED;
377 %QUOTED = @quoted;
378 weaken($_) for values %QUOTED;
379}
380
38117µs1;
382__END__
 
# spent 887µs within Sub::Quote::CORE:match which was called 761 times, avg 1µs/call: # 329 times (176µs+0s) by Sub::Quote::capture_unroll at line 140, avg 535ns/call # 114 times (76µs+0s) by Sub::Quote::quotify at line 119, avg 667ns/call # 106 times (334µs+0s) by Sub::Quote::quote_sub at line 192, avg 3µs/call # 106 times (192µs+0s) by Sub::Quote::unquote_sub at line 302, avg 2µs/call # 106 times (109µs+0s) by Sub::Quote::quote_sub at line 196, avg 1µs/call
sub Sub::Quote::CORE:match; # opcode
# spent 599µs within Sub::Quote::CORE:subst which was called 211 times, avg 3µs/call: # 106 times (438µs+0s) by Sub::Quote::quote_sub at line 188, avg 4µs/call # 105 times (161µs+0s) by Sub::Quote::sanitize_identifier at line 131, avg 2µs/call
sub Sub::Quote::CORE:subst; # opcode
# spent 211µs within Sub::Quote::CORE:substcont which was called 172 times, avg 1µs/call: # 172 times (211µs+0s) by Sub::Quote::sanitize_identifier at line 131, avg 1µs/call
sub Sub::Quote::CORE:substcont; # opcode
# spent 1µs within Sub::Quote::__ANON__ which was called: # once (1µs+0s) by Sub::Quote::BEGIN@14 at line 17
sub Sub::Quote::__ANON__; # xsub
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.