diff options
Diffstat (limited to 't/07regexp.t')
-rw-r--r-- | t/07regexp.t | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/t/07regexp.t b/t/07regexp.t new file mode 100644 index 0000000..998dc4e --- /dev/null +++ b/t/07regexp.t @@ -0,0 +1,48 @@ +=pod + +=encoding utf-8 + +=head1 PURPOSE + +Test the C<< /regexp/ >> notation. + +=head1 AUTHOR + +Toby Inkster E<lt>tobyink@cpan.orgE<gt>. + +=head1 COPYRIGHT AND LICENCE + +This software is copyright (c) 2014 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; + +{ + package Local::Foo; + use Exporter::Shiny qw(foo bar); + sub foo { + return 42; + } + sub bar { + return 666; + } +} + +{ + my %imported; + 'Local::Foo'->import({ into => \%imported }, qw( /^F/i )); + is_deeply([sort keys %imported], ['foo']); +} + +{ + my %imported; + 'Local::Foo'->import({ into => \%imported }, qw( -all !/^F/i )); + is_deeply([sort keys %imported], ['bar']); +} |