From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

 / 
Devel-NYTProf-Callgrind-TicksDiff-0.05
River stage zero No dependents
/ Devel::NYTProf::Callgrind::TicksDiff

NAME

Devel::NYTProf::Callgrind::TicksDiff - Calculates a delta between 2 callgrind files

SYNOPSIS

The command line way:


            

              
              
# Output to STDOUT
callgrind diff fileA.callgrind fileB.callgrind
# Output to a file
callgrind diff fileA.callgrind fileB.callgrind --out callgrind
# With normalization (see below)
callgrind diff fileA.callgrind fileB.callgrind --out callgrind --normalize

The Perl way:


            

              
              
use Devel::NYTProf::Callgrind::TicksDiff;
my $tickdiff = Devel::NYTProf::Callgrind::TicksDiff->new( files => [$fileA,$fileB], normalize => 1 );
print $ticksdiff->getDiffText();

DESCRIPTION

If you do a performance analysis with NYTProf over different computers and want to know what makes the application slower on the second machine, it might be usefull to see the difference.

TicksDiff takes the callgrind files, you can get with nytprofcg and calculates the delta between 2 files to a new callgrind file.

It is nice to open the resulting file with kcachegrind to see it in a graphical way.

REQUIRES

Devel::NYTProf::Callgrind::TicksDiff

Moose

Devel::NYTProf::Callgrind::Ticks

METHODS

compare


            

              
              
my \%hashref = $this->compare();

starts the compare process. So far it compares only two files. Returning infos in a hash.

diffBlocks


            

              
              
my $ticks = $this->diffBlocks(\%blockA, \%blockB);

Compares two single blocks (HasRefs) provided by the Ticks class of this package. It returns the tick difference between B and A. Means B-Ticks - A-Ticks.

getDeltaTicksObject


            

              
              
my $Object = $this->getDeltaTicksObject();

just a wrapper around ticks_object_out

getDiffText


            

              
              
my $text = $this->getDiffText();

Returns the callgrind text of the diff.

saveDiffFile


            

              
              
$this->saveDiffFile($filename);

Saves the difference to a callgrind file

LICENCE

You can redistribute it and/or modify it under the conditions of LGPL and Artistic Licence.

Normalize

The comand line and the contructor can take the argument 'normalize'. It will avoid to truncate negative values.

To understand it, ive got to explain what happens in TicksDiff: If you have to runs of a perl script (Run A and B) with different amount of ticks.


            

              
              
A     B     function
100   120   foo()
120   100   bar()

And you make a diff of it, TicksDiff would assume, you want to know how many ticks MORE the run B needs than A. The result would be:


            

              
              
A     B     diff   function
100   120   20     foo()
120   100   0      bar()       # -20 is the real diff

The negative values will ne truncated to 0 because it is not possible to have negative ticks (maybe in a black whole ;-)

If you dont want that truncation, you can raise the whole level with the biggest negative value. So the result would be:


            

              
              
A     B     normalized diff   function
100   120   40                foo()
120   100   0                 bar()

AUTHOR

Andreas Hernitscheck - ahernit AT cpan.org