1#!/usr/bin/perl 2 3BEGIN { 4 die "The PERCONA_TOOLKIT_BRANCH environment variable is not set.\n" 5 unless $ENV{PERCONA_TOOLKIT_BRANCH} && -d $ENV{PERCONA_TOOLKIT_BRANCH}; 6 unshift @INC, "$ENV{PERCONA_TOOLKIT_BRANCH}/lib"; 7}; 8 9use strict; 10use warnings FATAL => 'all'; 11use English qw(-no_match_vars); 12use Test::More; 13use lib "$ENV{PERCONA_TOOLKIT_BRANCH}/t/lib/Lmo"; 14 15{ package Clean; use Foo; } 16 17is_deeply([ @Clean::ISA ], [], "Didn't mess with caller's ISA"); 18is(Clean->can('has'), undef, "Didn't export anything"); 19 20done_testing; 21