view release on metacpan or  search on metacpan

lib/Benchmark/MCE.pm  view on Meta::CPAN

sub _get_time {
    return $MONO_CLOCK
        ? Time::HiRes::clock_gettime(CLOCK_MONOTONIC)
        : Time::HiRes::time();
}

sub _package_ver {
    my $pkg = __PACKAGE__;
    my $ver = $VERSION;

    my $caller = caller(0);
    for (my $i = 0; $i < 5; $i++) {
        my $caller = caller($i) or last;
        if ($caller eq 'Benchmark::DKbench') {
            $pkg = $caller;
            $ver = eval {$caller->VERSION} || '';
            last;
        }
    }

    return "$pkg v$ver";
}