Perl 5.19.9 で実装された signatures の構文をためしてみる

use 5.019009;
use autodie;

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

package Foo {
    sub new {
        my $class = shift;
        my $n = shift;
        bless {n=>$n}, $class;
    }
    sub bar($class, $a) {
        $a+3;
    }

    sub baz($self, $a) {
        $self->{n} * $a;
    }
}

sub add($left, $right) {
    return $left + $right;
}

say add(1,2);
say Foo->bar(4);
say Foo->new(5)->baz(4);

みたいな感じでつかえる。