importtest.pm

来自「source of perl for linux application,」· PM 代码 · 共 20 行

package Filter::Simple::ImportTest;

use base 'Exporter';
@EXPORT = qw(say);

sub say { print @_ }

use Filter::Simple;

sub import {
	my $class = shift;
	print "ok $_\n" foreach @_;
	__PACKAGE__->export_to_level(1,$class);
}

FILTER { s/not // };


1;