symbols associated with negated tags aren't removed from the import list

[djerius]

Exporter::Tiny version 1.004002

According to the docs,

You can add the bang prefix to tags too. This will import everything
except the colours.

use MyUtils qw( -all !:colours );

but it seems it doesn't work:

use v5.10;

use strict;
use warnings;

package Mine::AllMine {
    use base 'Exporter::Tiny';
    use constant { map { $_ => 1 } 'chocolate', 'vanilla' };

    our %EXPORT_TAGS = ( want => [qw( chocolate vanilla )] );
    our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
}


my %stuff;

%stuff = ();
Mine::AllMine->import( { into => \%stuff }, '-all' );
say 'All: ', join ', ', keys %stuff;

%stuff = ();
Mine::AllMine->import( { into => \%stuff }, '-all', '!vanilla' );
say 'All - vanilla: ', join ', ', keys %stuff;

%stuff = ();
Mine::AllMine->import( { into => \%stuff }, '-want' );
say 'Want: ', join ', ', keys %stuff;

%stuff = ();
Mine::AllMine->import( { into => \%stuff }, '-want', '!-want' );
say 'Want - Want: ', join ', ', keys %stuff;

With output:

$ perl  dev/exporter_tiny.pl
All: vanilla, chocolate
All - vanilla: chocolate
Want: chocolate, vanilla
Want - Want: chocolate, vanilla

I expected the Want - Want results to be an empty list.

[tobyink]

Yeah, it looks like I documented them as working but never implemented it!

[djerius]

Thanks!