t/mro/isa_dfs.t

   1 #!perl -w
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6     require "./test.pl";
   7 }
   8
   9 use strict;
  10
  11 plan 'no_plan';
  12
  13 # package klonk doesn't have a stash.
  14
  15 package kapow;
  16
  17 # No parents
  18
  19 package urkkk;
  20
  21 # 1 parent
  22 @urkkk::ISA = 'klonk';
  23
  24 package kayo;
  25
  26 # 2 parents
  27 @urkkk::ISA = ('klonk', 'kapow');
  28
  29 package thwacke;
  30
  31 # No parents, has @ISA
  32 @thwacke::ISA = ();
  33
  34 package zzzzzwap;
  35
  36 @zzzzzwap::ISA = ('thwacke', 'kapow');
  37
  38 package whamm;
  39
  40 @whamm::ISA = ('kapow', 'thwacke');
  41
  42 package main;
  43
  44 require mro;
  45
  46 foreach my $package (qw(klonk urkkk kapow kayo thwacke zzzzzwap whamm)) {
  47     my $ref = bless [], $package;
  48     my $isa = mro::get_linear_isa($package);
  49
  50     foreach my $class ($package, @$isa, 'UNIVERSAL') {
  51         isa_ok($ref, $class, $package);
  52     }
  53 }