Re^5: "require Carp" may be hazardous to your code (assume)

This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.

Congratulations on your broken benchmark:

 > perl -MTime::HiRes -le"print $INC{'Carp.pm'}"
.../Carp.pm
[download]

Note that you also didn't address that this practice predates the factorying out of the "heavy" parts.

- tye

Comment on Re^5: "require Carp" may be hazardous to your code (assume) Download Code

Replies are listed 'Best First'.

Re^6: "require Carp" may be hazardous to your code (assume)
by ikegami (Patriarch) on Dec 05, 2006 at 16:17 UTC

Nice catch. I thought it was a bit fast...

Without heavy bits: 1.34 ms

>perl -le "$t1=time; for (1..$ARGV[0]) { delete $INC{'Carp.pm'}; requi
+re Carp; } $t2=time; print(($t2-$t1)/$ARGV[0])" 100000
0.00134

>perl -le "$t1=time; for (1..$ARGV[0]) { delete $INC{'Carp.pm'}; requi
+re Carp; } $t2=time; print(($t2-$t1)/$ARGV[0])" 100000
0.00134

>perl -le "$t1=time; for (1..$ARGV[0]) { delete $INC{'Carp.pm'}; requi
+re Carp; } $t2=time; print(($t2-$t1)/$ARGV[0])" 100000
0.00134
[download]

With heavy bits: 4.75 ms

>perl -le "$t1=time; for (1..$ARGV[0]) { delete $INC{'Carp.pm'}; delet
+e $INC{'Carp/Heavy.pm'}; require Carp; require Carp::Heavy; } $t2=tim
+e; print(($t2-$t1)/$ARGV[0])" 100000
0.00475

>perl -le "$t1=time; for (1..$ARGV[0]) { delete $INC{'Carp.pm'}; delet
+e $INC{'Carp/Heavy.pm'}; require Carp; require Carp::Heavy; } $t2=tim
+e; print(($t2-$t1)/$ARGV[0])" 100000
0.00474
[download]

[reply]
[d/l]
[select]

• hippo

‥ epoptai's answer Re: how do I set a cookie and redirect was blessed by hippo!

• erzuuli

‥ Anonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.


P is for Practical
	PerlMonks