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