view release on metacpan or  search on metacpan

benchmarks/bench-protos.pl  view on Meta::CPAN

            proto       => LOG_UNIX,
            address     => [$listener->hostpath, 0],
        );
    },
);

# strerror(3) messages on linux in the "C" locale are included below for reference

my @params = (LOG_AUTH, LOG_INFO, 'localhost', 'test');

sub bench(&$) {
    my $block = shift;
    my $name = shift;
    my $start = time();
    eval {
        $block->();
    };
    my $end = time();
    if ($@) {
        warn sprintf "$name failed after %.3fs ($@)\n", $end - $start;
    }