1=pod 2 3=encoding utf-8 4 5=head1 PURPOSE 6 7Check renaming imported functions. 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 => 4; 25 26use lib qw( examples ../examples ); 27 28use Example::Exporter 29 embiggen => {}, 30 embiggen => { -suffix => '_by_2', amount => 2 }, 31 embiggen => { -suffix => '_by_42', amount => 42 }; 32 33is embiggen(10), 11, 'embiggen'; 34is embiggen_by_2(10), 12, 'embiggen_by_2'; 35is embiggen_by_42(10), 52, 'embiggen_by_42'; 36 37is prototype(\&embiggen), '$', 'correct prototype'; 38 39