view release on metacpan or  search on metacpan

t/optimize.t  view on Meta::CPAN

use 5.012;
use warnings;
use lib 't/lib'; use MyTest;
use Test::More;

my $RUNS = 3;

sub test_call(&) {
    my $code = shift;
    my $m1 = MyTest::marker();
    $code->();
    my $m2 = MyTest::marker();
    my $d = $m2 - ($m1 + 2);
    return $d;
}

subtest 'logXXXX optimizations' => sub {
    my $ctx = Context->new;