This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Filter-Simple tests: swap out base for parent.
[perl5.git] / dist / Filter-Simple / t / lib / Filter / Simple / ImportTest.pm
1 package Filter::Simple::ImportTest;
2
3 use parent qw(Exporter);
4 @EXPORT = qw(say);
5
6 sub say { print @_ }
7
8 use Filter::Simple;
9
10 sub import {
11         my $class = shift;
12         print "ok $_\n" foreach @_;
13         __PACKAGE__->export_to_level(1,$class);
14 }
15
16 FILTER { s/not // };
17
18
19 1;