git.maemo.org Git - pkg-perl/blob - deb-src/libspiffy-perl/libspiffy-perl-0.30/t/autoload.t

   1 use lib 't', 'lib';
   2 use strict;
   3 use warnings;
   4 use Spiffy ();
   5
   6 package A;
   7 use Spiffy -Base;
   8
   9 sub AUTOLOAD {
  10     super;
  11     join '+', $A::AUTOLOAD, @_;
  12 }
  13
  14 package B;
  15 use base 'A';
  16
  17 sub AUTOLOAD {
  18     super;
  19 }
  20
  21 package C;
  22 use base 'B';
  23
  24 sub AUTOLOAD {
  25     super;
  26 }
  27
  28 package main;
  29 use Test::More tests => 1;
  30
  31 is(C->foo(42), 'C::foo+42');