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

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