Revision: 1392
Author: [email protected]
Date: Tue Nov 9 15:00:51 2010
Log: Minor tweak to ordering of fmt_time logic
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1392
Modified:
/trunk/lib/Devel/NYTProf/Util.pm
=======================================
--- /trunk/lib/Devel/NYTProf/Util.pm Wed Jun 16 16:07:50 2010
+++ /trunk/lib/Devel/NYTProf/Util.pm Tue Nov 9 15:00:51 2010
@@ -170,14 +170,15 @@
# XXX undocumented hack that may become to an option one day
-my $fmt_time_opt = $ENV{NYTPROF_FMT_TIME}; # e.g., '%fs'
+# Useful for making the time data more easily parseable
+my $fmt_time_opt = $ENV{NYTPROF_FMT_TIME}; # e.g., '%f' for 'raw' times
sub fmt_time {
my ($sec, $width) = @_;
$width = '' unless defined $width;
- return sprintf "%$width.0fs", 0 unless $sec;
return '-'.fmt_time(-$sec, $width) if $sec < 0; # negative value, can
happen
return sprintf $fmt_time_opt, $sec if $fmt_time_opt;
+ return sprintf "%$width.0fs", 0 unless $sec;
return sprintf "%$width.0fns", $sec * 1e9
if $sec < 1e-6;
return sprintf "%$width.0fµs", $sec * 1e6
if $sec < 1e-3;
return sprintf "%$width.*fms", 3 - length(int($sec * 1e3)), $sec * 1e3
if $sec < 1;
--
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]
