[p5sagit/Function-Parameters.git] / t / foreign / MooseX-Method-Signatures / caller.t

use strict;
use warnings FATAL => 'all';
use Test::More tests => 1;

{
	package TestClass;

	use Function::Parameters qw(:strict);

	use Carp ();

	method callstack_inner($class:) {
		return Carp::longmess("Callstack is");
	}

	method callstack($class:) {
		return $class->callstack_inner;
	}
}

my $callstack = TestClass->callstack();

unlike $callstack, qr/Test::Class::.*?__ANON__/, "No anon methods in call chain";
Commit	Line	Data
595edbcf	1	use strict;
	2	use warnings FATAL => 'all';
	3	use Test::More tests => 1;
	4
	5	{
	6	package TestClass;
	7
	8	use Function::Parameters qw(:strict);
	9
	10	use Carp ();
	11
	12	method callstack_inner($class:) {
	13	return Carp::longmess("Callstack is");
	14	}
	15
	16	method callstack($class:) {
	17	return $class->callstack_inner;
	18	}
	19	}
	20
	21	my $callstack = TestClass->callstack();
	22
	23	unlike $callstack, qr/Test::Class::.*?__ANON__/, "No anon methods in call chain";