use warnings;
use strict;
use Test::More tests => 2;

my (%before, @after);

sub sublist {
    no strict 'refs';
    sort grep {*{"main:\:$_"}{CODE}} keys %main::;
}

BEGIN {%before = map {$_ => 1} sublist}

use List::Gen 0.1;

@after = grep {not $before{$_}} sublist;

ok $before{sublist}, 'sublist sanity check';
is_deeply \@after, [sort @List::Gen::EXPORT, '\\'], q{use List::Gen 0.1;};
