A
/ \
B   C
\ /
 D
A <-+
|   |
B   |
|   |
C --+
+--------+
|    A   |
|   / \  |
+->B   C-+
    \ /
     D

Test all the class_precedence_lists using Perl's own dispatcher to check against.