[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	{
1a52f2db	6	package TestClass;
595edbcf	7
1a52f2db	8	use Function::Parameters qw(:strict);
595edbcf	9
1a52f2db	10	use Carp ();
595edbcf	11
1a52f2db	12	method callstack_inner($class:) {
	13	return Carp::longmess("Callstack is");
	14	}
595edbcf	15
1a52f2db	16	method callstack($class:) {
	17	return $class->callstack_inner;
	18	}
595edbcf	19	}
	20
	21	my $callstack = TestClass->callstack();
	22
	23	unlike $callstack, qr/Test::Class::.*?__ANON__/, "No anon methods in call chain";