5.20 signatures vs Method::Signatures, runtime benchmark

builtin_vs_ms_runtime

#!/usr/bin/perl

use v5.10;
use strict;
use warnings;

use Benchmark qw(cmpthese);

{
    package MS;
    use Method::Signatures;

    func add($a, $b) {
        return $a + $b;
    }

    func defaults($a = 23, $b = 42) {
        return $a + $b;
    }
}

{
    package Builtin;

    use feature 'signatures';
    no warnings 'experimental::signatures';

    sub add($a, $b) {
        return $a + $b;
    }

    sub defaults($a = 23, $b = 42) {
        return $a + $b;
    }
}

cmpthese shift, {
    builtin_add         => sub { Builtin::add(1, 2) },
    ms_add              => sub { MS::add(1,2) },
};

cmpthese shift, {
    builtin_defaults    => sub { Builtin::defaults() },
    ms_defaults         => sub { MS::defaults() },
};