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

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