#!perl -T

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 = sublist}

use List::Gen ();

@after = sublist;

ok grep($_ eq 'sublist', @before), 'sublist sanity check';
is_deeply \@after, \@before, 'empty import list';
