Author: tim.bunce
Date: Mon Nov 24 02:55:29 2008
New Revision: 621
Modified:
trunk/lib/Devel/NYTProf/SubInfo.pm
Log:
Fix $subinfo->package to work for multi::level::packages
Modified: trunk/lib/Devel/NYTProf/SubInfo.pm
==============================================================================
--- trunk/lib/Devel/NYTProf/SubInfo.pm (original)
+++ trunk/lib/Devel/NYTProf/SubInfo.pm Mon Nov 24 02:55:29 2008
@@ -10,7 +10,7 @@
sub excl_time { shift->[5] }
sub subname { shift->[6] }
sub profile { shift->[7] }
-sub package { (my $pkg = shift->subname) =~ s/::.*?$//; return $pkg }
+sub package { (my $pkg = shift->subname) =~ s/(.*)::.*/$1/; return $pkg
}
sub recur_max_depth { shift->[8] }
sub recur_incl_time { shift->[9] }
--~--~---------~--~----~------------~-------~--~----~
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]
-~----------~----~----~----~------~----~------~--~---
