Skip to content

Instantly share code, notes, and snippets.

use strict;
use warnings;
use Benchmark 'cmpthese';
cmpthese( -1, {
function => sub { my $hoge = 1; $hoge = negate($hoge) },
neg => sub { my $hoge = 1; $hoge = - $hoge },
minus => sub { my $hoge = 1; $hoge = 0 - $hoge },
multi => sub { my $hoge = 1; $hoge *= -1 },
bit => sub { use integer; my $hoge = 1; $hoge = 1 + ~$hoge },
} );