Method::Signatures performing the MooseX::Method::Signatures synopsis

gistfile1.pl

{
    package Foo;

#    use Mouse;
    use Moose;
#    use MooseX::Method::Signatures;
    use Method::Signatures;

    method say (Str $msg) {}

    method morning (Str $name) {
        $self->say("Good morning ${name}!");
    }

    method hello (Str :$who, Int :$age) {
        $self->say("Hello ${who}, I am ${age} years old!");
    }

    method greet (Str $name, Bool :$excited = 0) {
        if ($excited) {
            $self->say("GREETINGS ${name}!");
        } else {
            $self->say("Hi ${name}!");
        }
    }
}


my $foo = Foo->new;
sub test {
    $foo->morning('Resi');      # This works.

    $foo->hello(who => 'world', age => 42); # This too.

    $foo->greet('Resi', excited => 1); # And this as well.

    eval {
        $foo->hello(who => 'world', age => 'fortytwo'); # This doesn't.
    };

    eval {
        $foo->morning;              # Won't work.
    };

    eval {
        $foo->greet;                # Will fail.
    };
}

test() for 1..20000;