1=pod 2 3=encoding utf-8 4 5=head1 PURPOSE 6 7Test the C<< !notwant >> notation. 8 9=head1 AUTHOR 10 11Toby Inkster E<lt>tobyink@cpan.orgE<gt>. 12 13=head1 COPYRIGHT AND LICENCE 14 15This software is copyright (c) 2014, 2017 by Toby Inkster. 16 17This is free software; you can redistribute it and/or modify it under 18the same terms as the Perl 5 programming language system itself. 19 20 21=cut 22 23use strict; 24use warnings; 25use Test::More tests => 1; 26 27{ 28 package Local::Foo; 29 use Exporter::Shiny qw(foo bar); 30 sub foo { 31 return 42; 32 } 33 sub bar { 34 return 666; 35 } 36} 37 38my %imported; 39'Local::Foo'->import({ into => \%imported }, qw( -all !foo )); 40 41is_deeply([sort keys %imported], ['bar']); 42