projects
/
p5sagit/Function-Parameters.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
add begin.t from Method::Signatures
[p5sagit/Function-Parameters.git]
/
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';