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

   1 use lib 't', 'lib';
   2 use strict;
   3 use warnings;
   4
   5 package A;
   6 use Spiffy -base;
   7 BEGIN {@A::EXPORT_OK = qw(dude)}
   8 const dude => 10;
   9
  10 package B;
  11 use base 'A';
  12 BEGIN {
  13     @B::EXPORT_OK = qw(dude);
  14     const dude => 20;
  15 }
  16
  17 package C;
  18 BEGIN {B->import('dude')}
  19
  20 package main;
  21 no warnings;
  22 use Test::More tests => 2;
  23 ok(defined $C::{dude});
  24 is(C::dude(), 20);