Blob Blame History Raw
use lib 't', 'lib';
use strict;
use warnings;
use Spiffy ();

package AAA;
use Spiffy -Base;

sub AUTOLOAD {
    super;
    join '+', $AAA::AUTOLOAD, @_;
}

package BBB;
use base 'AAA';

sub AUTOLOAD {
    super;
}

package CCC;
use base 'BBB';

sub AUTOLOAD {
    super;
}

package main;
use Test::More tests => 1;

is(CCC->foo(42), 'CCC::foo+42');