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

   1 use lib 't', 'lib';
   2 use strict;
   3 use warnings;
   4
   5 package A;
   6 use Spiffy -Base, ':XXX';
   7
   8 package B;
   9 use Spiffy -Base, ':XXX', 'field';
  10
  11 package main;
  12 use Test::More tests => 4;
  13 ok(not defined &A::field);
  14 ok(defined &B::field);
  15 ok(defined &A::XXX);
  16 ok(defined &B::XXX);