The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use MooseX::Method::Signatures;
use strict;
use warnings;

use Carp qw/croak/;

method meth1{
  croak "Binary operator $op expects 2 children, got " . $#$_
    if @{$_} > 3;
}

method meth2{ {
  "a" "b"
}

method meth3 {}
1;