diff options
author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2014-10-04 17:35:57 +0000 |
---|---|---|
committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2014-10-04 17:35:57 +0000 |
commit | a3341f774a4aa00765970301e259be818929a7cf (patch) | |
tree | f59eaff8b72b2ad1090f8ff3b8be4c89536db204 /t/04into.t | |
download | Exporter-Tiny-tarball-master.tar.gz |
Exporter-Tiny-0.042HEADExporter-Tiny-0.042master
Diffstat (limited to 't/04into.t')
-rw-r--r-- | t/04into.t | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/t/04into.t b/t/04into.t new file mode 100644 index 0000000..d621fef --- /dev/null +++ b/t/04into.t @@ -0,0 +1,36 @@ +=pod + +=encoding utf-8 + +=head1 PURPOSE + +Check the C<< -into >> option works. + +=head1 AUTHOR + +Toby Inkster E<lt>tobyink@cpan.orgE<gt>. + +=head1 COPYRIGHT AND LICENCE + +This software is copyright (c) 2013 by Toby Inkster. + +This is free software; you can redistribute it and/or modify it under +the same terms as the Perl 5 programming language system itself. + +=cut + +use strict; +use warnings; +use Test::More tests => 2; + +use lib qw( examples ../examples ); + +{ + package Foo; + use Example::Exporter { into => "Bar" }, qw( fib ); +} + +{ package Bar; } + +ok( not "Foo"->can("fib") ); +ok( "Bar"->can("fib") ); |