vcs.maemo.org Git - pkg-perl/blob - deb-src/libspiffy-perl/libspiffy-perl-0.30/t/super2.t

   1 use lib 'lib';
   2 use strict;
   3 use warnings;
   4
   5 package Alpha;
   6 use Spiffy -Base;
   7
   8 sub three {
   9     print "ok 6\n";
  10 }
  11
  12 package Foo;
  13 use base 'Alpha';
  14
  15 sub one {
  16     super;
  17     print "ok 2\n";
  18 }
  19
  20 sub two {
  21     print "ok 4\n";
  22 }
  23
  24 package Bar;
  25 use base 'Foo';
  26
  27 sub one {
  28     super;
  29     print "ok 3\n";
  30 }
  31
  32 sub two {
  33     super;
  34     print "ok 5\n";
  35 }
  36
  37 package Baz;
  38 use base 'Bar';
  39
  40 sub one {
  41     print "ok 1\n";
  42     super;
  43 }
  44
  45 sub two {
  46     super;
  47     print "not ok 6\n";
  48 }
  49
  50 sub three {
  51     super;
  52     print "ok 7\n";
  53 }
  54
  55 package main;
  56 use strict;
  57 print "1..7\n";
  58 Baz->new->one;
  59 Bar->new->two;
  60 Baz->new->three;