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