t/foreign/MooseX-Method-Signatures/lib/InvalidCase01.pm

   1 package InvalidCase01;
   2 use strict;
   3 use warnings; no warnings 'syntax';
   4 use Function::Parameters qw(:strict);
   5 use Carp qw/croak/;
   6
   7 method meth1{
   8   croak "Binary operator $op expects 2 children, got " . $#$_
   9     if @{$_} > 3;
  10 }
  11
  12 method meth2{ {
  13   "a" "b"
  14 }
  15
  16 method meth3 {}
  17 1;
  18