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