...
# Grandfather $NAME import
sub import {
    my $this = shift;                              # 'English'
    my @list = grep { ! /^-no_match_vars$/ } @_ ;  # anything that is not '-no_match_vars'
    local $Exporter::ExportLevel = 1; 
    if ( @_ == @list ) {
...