t/foreign/MooseX-Method-Signatures/caller.t

   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";