Revision: 1301
Author: [email protected]
Date: Wed Jun 16 15:21:01 2010
Log: Remove old code to handle merged subs that had array refs as names.
Make low trace levels less noisy for nytprofhtml
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1301
Modified:
/trunk/lib/Devel/NYTProf/SubInfo.pm
=======================================
--- /trunk/lib/Devel/NYTProf/SubInfo.pm Mon Jun 7 08:07:31 2010
+++ /trunk/lib/Devel/NYTProf/SubInfo.pm Wed Jun 16 15:21:01 2010
@@ -42,15 +42,7 @@
sub excl_time { shift->[NYTP_SIi_EXCL_RTIME] }
-sub subname {
- my $subname = shift->[NYTP_SIi_SUB_NAME];
- return $subname if not ref $subname;
- # the subname of a merged sub is a ref to an array of the merged
subnames
- # XXX could be ref to an array of the merged subinfos
- # XXX or better to add a separate accessor instead of abusing subname
like this
- return $subname if not defined(my $join = shift);
- return join $join, @$subname;
-}
+sub subname { shift->[NYTP_SIi_SUB_NAME] }
sub subname_without_package {
my $subname = shift->[NYTP_SIi_SUB_NAME];
@@ -264,7 +256,7 @@
return;
}
- if (trace_level()) {
+ if (trace_level() >= 5) {
carp sprintf "_merge_in_caller_info%s merging from $src_line_info
-> $dst_line_info:", $tag;
warn sprintf " . %s\n", fmt_sc($src_line_info);
warn sprintf " + %s\n", fmt_sc($dst_line_info);
@@ -289,7 +281,7 @@
$dst_cs->{$_} = $src_cs->{$_} for keys %$src_cs;
warn sprintf " = %s\n", fmt_sc($dst_line_info)
- if trace_level();
+ if trace_level() >= 5;
return;
}
--
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]
