[p5sagit/Function-Parameters.git] / t / method_cache.t

#!perl
use warnings FATAL => 'all';
no warnings qw(once redefine);
use strict;

use Test::More tests => 2;

use Function::Parameters {
	method => { defaults => 'method_strict', runtime => 1 },
};

# See commit 978a498e17ec54b6f1fc65f3375a62a68f321f99 in perl

method Y::b() { 'b' }
*X::b = *Y::b;
@Z::ISA = 'X';
is +Z->b, 'b';

method Y::b() { 'c' }
is +Z->b, 'c';
Commit	Line	Data
42e595b0	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';