view release on metacpan or  search on metacpan

xt/lib/ATWDumbbench.pm  view on Meta::CPAN

package ATWDumbbench;
use strict;
use warnings;
use parent 'Dumbbench';

sub new {
    my ( $class, @args ) = @_;
    my $self = $class->SUPER::new(@args);
    $self->{atw_measure_map} = {};
    return $self;
}

sub measurements {
    my $self = shift;
    return ( sort { $a <=> $b } values( %{ $self->{atw_measure_map} } ) )[0];
}

sub get_measure {