Author: tim.bunce
Date: Wed Oct 29 15:52:55 2008
New Revision: 577
Modified:
trunk/lib/Devel/NYTProf/Data.pm
trunk/lib/Devel/NYTProf/Reader.pm
Log:
Give slightly more feedback during report generation.
Modified: trunk/lib/Devel/NYTProf/Data.pm
==============================================================================
--- trunk/lib/Devel/NYTProf/Data.pm (original)
+++ trunk/lib/Devel/NYTProf/Data.pm Wed Oct 29 15:52:55 2008
@@ -66,10 +66,12 @@
sub new {
my $class = shift;
- my $args = shift || {filename => 'nytprof.out'};
+ my $args = shift || { filename => 'nytprof.out' };
my $file = $args->{filename}
or croak "No filename specified";
+
+ print "Reading $file\n" unless $args->{quiet};
my $profile = load_profile_data_from_file($file);
bless $profile => $class;
Modified: trunk/lib/Devel/NYTProf/Reader.pm
==============================================================================
--- trunk/lib/Devel/NYTProf/Reader.pm (original)
+++ trunk/lib/Devel/NYTProf/Reader.pm Wed Oct 29 15:52:55 2008
@@ -255,6 +255,9 @@
my $self = shift;
my ($opts) = @_;
+ print "Writing report to $self->{output_dir} directory\n"
+ unless $opts->{quiet};
+
my $level_additional_sub = $opts->{level_additional};
my $profile = $self->{profile};
my $modes = $profile->get_profile_levels;
--~--~---------~--~----~------------~-------~--~----~
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]
-~----------~----~----~----~------~----~------~--~---
