t/method_cache.t

   1 #!perl
   2 use warnings FATAL => 'all';
   3 no warnings qw(once redefine);
   4 use strict;
   5
   6 use Test::More tests => 2;
   7
   8 use Function::Parameters {
   9         method => { defaults => 'method_strict', runtime => 1 },
  10 };
  11
  12 # See commit 978a498e17ec54b6f1fc65f3375a62a68f321f99 in perl
  13
  14 method Y::b() { 'b' }
  15 *X::b = *Y::b;
  16 @Z::ISA = 'X';
  17 is +Z->b, 'b';
  18
  19 method Y::b() { 'c' }
  20 is +Z->b, 'c';