File Coverage

blib/lib/Timer/CPU.pm

Criterion	Covered	Total	%
statement	18	24	75.0
branch	3	12	25.0
condition	2	4	50.0
subroutine	2	2	100.0
pod	0	1	0.0
total	25	43	58.1

package Timer::CPU;

our $VERSION = '0.100';

use strict;


require XSLoader;
XSLoader::load('Timer::CPU', $VERSION);


sub measure {
  my ($callback, %args) = @_;

  ## Params

  die "measure needs code ref" unless ref $callback eq 'CODE';

  my $warm_ups = $args{warm_ups};
  $warm_ups = 2 if !defined $warm_ups;

  my $iterations = $args{iterations} || 1000;

  my $method = $args{method} || 'min';


  ## Vars

  my @vals = (0) x $iterations;


  ## Warm-up the callback

  for (my $i = 0; $i < $warm_ups; $i++) {
    measure_XS($callback);
  }


  ## Gather real data

  for (my $i = 0; $i < $iterations; $i++) {
    $vals[$i] = measure_XS($callback);
  }


  ## Output

  @vals = sort { $a <=> $b } @vals;

  if ($method eq 'min') {
    return $vals[0];
  } elsif ($method eq 'max') {
    return $vals[-1];
  } elsif ($method eq 'median') {
    return $vals[int($iterations / 2)];
  } elsif ($method eq 'mean') {
    my $total = 0;
    $total += $_ foreach (@vals);
    return $total / $iterations;
  } else {
    die "unknown method '$method'";
  }
}



1;



__END__