
laziness, impatience, and hubris
	PerlMonks

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

by ikegami (Patriarch)

on Dec 05, 2006 at 16:17 UTC ( [id://587982]=note: print w/replies, xml )

Need Help??

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.

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

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]

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

In Section Meditations

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://587982]
help

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Notices^?

	• 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.