view release on metacpan or  search on metacpan

bench.pl  view on Meta::CPAN

    my $ok = 1;
    for my $pair (
        ['pure', sub { DMS::Parser::parse_document_with_config($src, $pure_cfg) }],
        ['xs',   sub { DMS::Parser::XS::parse_document_with_config($src, $xs_cfg) }],
    ) {
        eval { $pair->[1]->() };
        if ($@) { warn "  $pair->[0] failed to parse: $@"; $ok = 0 }
    }
    unless ($ok) { print "  (skipped: parse failure)\n\n"; next }

    # Auto-tune iteration count: more iterations for faster fixtures.
    cmpthese(-2, {
        pure => sub { DMS::Parser::parse_document_with_config($src, $pure_cfg) },
        xs   => sub { DMS::Parser::XS::parse_document_with_config($src, $xs_cfg) },
    });
    print "\n";
}

sub mod_my_upper {
    my ($input, $params) = @_;
    die "my_upper takes no arguments"