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