exporttest.pm

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

package Filter::Simple::ExportTest;

use Filter::Simple;
use base Exporter;

@EXPORT_OK = qw(ok);

FILTER { s/not// };

sub ok { print "ok @_\n" }

1;