1=pod
2
3=encoding utf-8
4
5=head1 PURPOSE
6
7Check the C<< -into >> option works.
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) 2013-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=cut
21
22use strict;
23use warnings;
24use Test::More tests => 2;
25
26use lib qw( examples ../examples );
27
28{
29	package Foo;
30	use Example::Exporter { into => "Bar" }, qw( fib );
31}
32
33{ package Bar; }
34
35ok( not "Foo"->can("fib") );
36ok(     "Bar"->can("fib") );
37