package FastImport;

sub _fast_import {
    my %names;
    foreach ( reverse @_ ) {
        if ( -d $_ ) { unshift( @INC, $_ ) }
    }
    @INC = grep { ++$names{$_} == 1 } @INC;
    return;
}

1;