Blame t/export5.t

Packit 69e8b9
use lib 't', 'lib';
Packit 69e8b9
use strict;
Packit 69e8b9
use warnings;
Packit 69e8b9
Packit 69e8b9
package AAA;
Packit 69e8b9
use Spiffy -base;
Packit 69e8b9
BEGIN {@AAA::EXPORT_OK = qw(dude)}
Packit 69e8b9
const dude => 10;
Packit 69e8b9
Packit 69e8b9
package BBB;
Packit 69e8b9
use base 'AAA';
Packit 69e8b9
BEGIN {
Packit 69e8b9
    @BBB::EXPORT_OK = qw(dude);
Packit 69e8b9
    const dude => 20;
Packit 69e8b9
}
Packit 69e8b9
Packit 69e8b9
package CCC;
Packit 69e8b9
BEGIN {BBB->import('dude')}
Packit 69e8b9
Packit 69e8b9
package main;
Packit 69e8b9
no warnings;
Packit 69e8b9
use Test::More tests => 2;
Packit 69e8b9
ok(defined $CCC::{dude});
Packit 69e8b9
is(CCC::dude(), 20);