diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-12-27 00:20:35 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-12-27 21:12:12 +0000 |
commit | b2685f0c86badfc357584d8dbfb2bf17057ea226 (patch) | |
tree | 69b0e3ace3542be24afd551380e2e0ecffc1500a /t/mro | |
parent | c60bad7b8870cf2745c93e1b99cbb504daa780b2 (diff) | |
download | perl-b2685f0c86badfc357584d8dbfb2bf17057ea226.tar.gz |
Proper pluggable Method Resolution Orders. 'c3' is now implemented outside the
core, in ext/mro/mro.xs. Also move mro::_nextcan() to mro.xs. It needs direct
access to S_mro_get_linear_isa_c3(), and nothing on CPAN calls it, except via
methods defined in mro.pm. Hence all users already require mro;
Diffstat (limited to 't/mro')
-rw-r--r-- | t/mro/basic.t | 2 | ||||
-rw-r--r-- | t/mro/inconsistent_c3.t | 2 | ||||
-rw-r--r-- | t/mro/recursion_c3.t | 2 |
3 files changed, 6 insertions, 0 deletions
diff --git a/t/mro/basic.t b/t/mro/basic.t index 6dce364285..e06622649e 100644 --- a/t/mro/basic.t +++ b/t/mro/basic.t @@ -5,6 +5,8 @@ use warnings; require q(./test.pl); plan(tests => 40); +require mro; + { package MRO_A; our @ISA = qw//; diff --git a/t/mro/inconsistent_c3.t b/t/mro/inconsistent_c3.t index 14f652cc6d..68d37950d4 100644 --- a/t/mro/inconsistent_c3.t +++ b/t/mro/inconsistent_c3.t @@ -11,6 +11,8 @@ BEGIN { require q(./test.pl); plan(tests => 1); +require mro; + =pod This example is take from: http://www.python.org/2.3/mro.html diff --git a/t/mro/recursion_c3.t b/t/mro/recursion_c3.t index 4030cfcd2c..cc45250714 100644 --- a/t/mro/recursion_c3.t +++ b/t/mro/recursion_c3.t @@ -14,6 +14,8 @@ require './test.pl'; plan(skip_all => "Your system has no SIGALRM") if !exists $SIG{ALRM}; plan(tests => 8); +require mro; + =pod These are like the 010_complex_merge_classless test, |