use strict;
use warnings;
use Test::More tests => 4;
use Test::Fatal;

use MooseX::Method::Signatures;

my $o = bless {} => 'Foo';

my $meth = method ($, $, $foo, $, $bar, $) {
    return $foo . $bar;
};
isa_ok($meth, 'Moose::Meta::Method');

ok(exception {
    $meth->($o, 1, 2, 3, 4, 5);
});

is(exception {
    is($meth->($o, 1, 2, 3, 4, 5, 6), 35);
}, undef);

1;