[p5sagit/Function-Parameters.git] / t / foreign / MooseX-Method-Signatures / lib / InvalidCase01.pm

package InvalidCase01;
use strict;
use warnings; no warnings 'syntax';
use Function::Parameters qw(:strict);
use Carp qw/croak/;

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

method meth2{ {
  "a" "b"
}

method meth3 {}
1;
Commit	Line	Data
595edbcf	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