Tryag File Manager
Home
||
Turbo Force
||
B-F Config_Cpanel
Current Path :
/
usr
/
share
/
doc
/
perl-Filter-1.49
/
examples
/
method
/
Or
Select Your Path :
Upload File :
New :
File
Dir
//usr/share/doc/perl-Filter-1.49/examples/method/Joe2Jim.pm
package Joe2Jim ; use Filter::Util::Call ; use strict ; use warnings ; sub import { my($type) = @_ ; filter_add(bless []) ; } sub filter { my($self) = @_ ; my($status) ; s/Joe/Jim/g if ($status = filter_read()) > 0 ; $status ; } 1 ;