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
CommitLineData
1b629f66 1package Filter::Simple::ImportTest;
255c1263 2
e2eec1d7 3use parent qw(Exporter);
255c1263
JH
4@EXPORT = qw(say);
5
6sub say { print @_ }
7
8use Filter::Simple;
9
10sub import {
11 my $class = shift;
12 print "ok $_\n" foreach @_;
13 __PACKAGE__->export_to_level(1,$class);
14}
15
16FILTER { s/not // };
17
18
191;