Author: tim.bunce
Date: Wed Nov 19 05:33:40 2008
New Revision: 613
Added:
trunk/t/test21-streval3.x
Log:
Add t/test21-streval3.x missing from previous commit
Added: trunk/t/test21-streval3.x
==============================================================================
--- (empty file)
+++ trunk/t/test21-streval3.x Wed Nov 19 05:33:40 2008
@@ -0,0 +1,20 @@
+# Profile data generated by Devel::NYTProf::Reader
+# More information at http://search.cpan.org/dist/Devel-NYTProf/
+# Format: time,calls,time/call,code
+0,0,0,# test nested string evals
+0,0,0,# inner time should propagate to outermost eval
+0,0,0,# statement counts currently don't - debatable value
+0,3,0,sub foo { 1 }
+0,1,0,my $code = q{
+0,0,0,select(undef,undef,undef,0.2);
+0,0,0,foo();
+0,0,0,eval q{
+0,0,0,select(undef,undef,undef,0.2);
+0,0,0,foo();
+0,0,0,eval q{
+0,0,0,select(undef,undef,undef,0.2);
+0,0,0,foo();
+0,0,0,}
+0,0,0,}
+0,0,0,};
+~0.6,1,0,eval $code;
--~--~---------~--~----~------------~-------~--~----~
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [EMAIL PROTECTED]
-~----------~----~----~----~------~----~------~--~---
