Revision: 1151
Author: [email protected]
Date: Mon Mar 8 01:50:40 2010
Log: Convert nytprofmerge to using Devel::NYTProf::Data->new() directly,
instead
of calling Devel::NYTProf::ReadStream::for_chunks().
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1151
Modified:
/trunk/bin/nytprofmerge
=======================================
--- /trunk/bin/nytprofmerge Mon Mar 8 01:48:07 2010
+++ /trunk/bin/nytprofmerge Mon Mar 8 01:50:40 2010
@@ -15,7 +15,7 @@
use Devel::NYTProf::Core;
require Devel::NYTProf::FileHandle;
-use Devel::NYTProf::ReadStream qw(for_chunks);
+require Devel::NYTProf::Data;
use List::Util qw(min);
our $VERSION = '3.02';
@@ -209,7 +209,7 @@
@pending_fids = ();
%pending_subs = ();
- for_chunks {
+ Devel::NYTProf::Data->new({filename => $input, callback => sub {
my $tag = shift;
if($tag eq 'NEW_FID') {
my ($fid, $eval_fid, $eval_line, $flags, $size, $mtime, $name) = @_;
@@ -286,14 +286,14 @@
}
$pending_subs{"$fid,$first_line,$last_line,$name"} = $output_fid;
}
- } filename => $input;
+ }});
print "Re-reading $input...\n" if $opt_verbose;
- for_chunks {
+ Devel::NYTProf::Data->new({filename => $input, callback => sub {
my $sub = $dispatcher{$_[0]}
or die "Unknown tag '$_[0]' in $input\n";
&$sub(@_);
- } filename => $input;
+ }});
}
print "Finalizing...\n" if $opt_verbose;
--
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]
