Revision: 842 Author: tim.bunce Date: Tue Jul 21 23:17:40 2009 Log: Added bin/nytprofcg to Makefile.PL EXE_FILES Removed average time per line column from reports. Made the (rarely used) value available via a tooltip.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=842 Modified: /trunk/Makefile.PL /trunk/bin/nytprofhtml ======================================= --- /trunk/Makefile.PL Sun Jul 12 10:54:24 2009 +++ /trunk/Makefile.PL Tue Jul 21 23:17:40 2009 @@ -30,7 +30,8 @@ } else { @man = ( MAN1PODS => { 'bin/nytprofhtml' => '$(INST_MAN1DIR)/nytprofhtml.1', - 'bin/nytprofcsv' => '$(INST_MAN1DIR)/nytprofcsv.1' + 'bin/nytprofcsv' => '$(INST_MAN1DIR)/nytprofcsv.1', + 'bin/nytprofcg' => '$(INST_MAN1DIR)/nytprofcg.1', } ); } @@ -125,7 +126,7 @@ 'JSON::Any' => 0, }, LIBS => [join ' ', @libs], - EXE_FILES => ['bin/nytprofhtml', 'bin/nytprofcsv'], + EXE_FILES => ['bin/nytprofhtml', 'bin/nytprofcsv', 'bin/nytprofcg'], @man, INC => $INCLUDE, clean => { ======================================= --- /trunk/bin/nytprofhtml Tue Jul 21 22:29:04 2009 +++ /trunk/bin/nytprofhtml Tue Jul 21 23:17:40 2009 @@ -297,7 +297,6 @@ <th><span title="Number of statements executed">State<br />-ments</span></th> <th><span title="Time spend executing statements on the line, excluding time spent executing statements in any called subroutines">Time<br />on line</span></th> - <th><span title="Average exclusive time per statement execution">Avg.<br />Time</span></th> <th><span title="Number of subroutines calls">Calls</span></th> <th><span title="Time spent in subroutines called">Time<br />in subs</span></th> <th class="left_indent_header">Code</th> @@ -323,14 +322,14 @@ my $l = sprintf(qq{<td class="h"><a name="%s"></a>%s</td>}, $linenum, $linenum); my $s = report_src_line(undef, $linenum, $line, $profile, $subs_defined, $makes_calls_to, $filestr); - return "<tr>$l<td></td><td></td><td></td><td></td><td></td>$s</tr>\n" + return "<tr>$l<td></td><td></td><td></td><td></td>$s</tr>\n" if not %$stats_for_line; return join "", "<tr>$l", determine_severity($stats_for_line->{'calls'}, $stats_for_file->{'calls'}), - determine_severity($stats_for_line->{'time'}, $stats_for_file->{'time'}, 1), - determine_severity($stats_for_line->{'time/call'}, $stats_for_file->{'time/call'}, 1), + determine_severity($stats_for_line->{'time'}, $stats_for_file->{'time'}, 1, + \sprintf("Avg %s",fmt_time($stats_for_line->{'time/call'}))), determine_severity($stats_for_line->{'subcall_count'}, $stats_for_file->{subcall_count}, 0), determine_severity($stats_for_line->{'subcall_time'}, $stats_for_file->{subcall_time}, 1), $s, "</tr>\n"; @@ -341,7 +340,7 @@ (my $anchor = $subname) =~ s/\W/_/g; return join "", sprintf(qq{<tr><td class="h"><a name="%s"></a>%s</td>}, $anchor, ''), - "<td></td><td></td><td></td><td></td><td></td>", + "<td></td><td></td><td></td><td></td>", report_src_line(undef, undef, $line, $profile, $subs_defined, $makes_calls_to, $filestr), "</tr>\n"; } @@ -1401,7 +1400,7 @@ } if ($title) { - $title = _escape_html($title); + $title = (ref $title) ? $$title : _escape_html($title); $fmt_val = qq{<span title="$title">$fmt_val</span>}; } --~--~---------~--~----~------------~-------~--~----~ 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] -~----------~----~----~----~------~----~------~--~---
