File Coverage

blib/lib/Dumbbench/Result.pm

Criterion	Covered	Total	%
statement	32	33	96.9
branch	5	6	83.3
condition	4	9	44.4
subroutine	7	7	100.0
pod	1	1	100.0
total	49	56	87.5

package Dumbbench::Result;
use strict;
use warnings;
use Carp ();

use Number::WithError;
use parent 'Number::WithError';

use Class::XSAccessor {
  getters => {
    nsamples => '_dbr_nsamples',
   },
};


sub new {
  my $proto = shift;
  my $class = ref($proto)||$proto;

  my $self;
  if (not grep {$_ eq 'timing'} @_) {
    push @_, 0 if @_ == 1;
    $self = $proto->SUPER::new(@_);
    $self->{_dbr_nsamples} = $proto->nsamples;
    return $self;
  }

  my %opt = @_;
  if (not defined $opt{timing} or not defined $opt{uncertainty}
      or not defined $opt{nsamples}) {
    Carp::croak("Need 'timing', 'uncertainty', and 'nsamples' parameters");
  }
  $self = $class->SUPER::new($opt{timing}, $opt{uncertainty});
  $self->{_dbr_nsamples} = $opt{nsamples};

  return $self;
}





1;