projects
/
pkg-perl
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add the following packages libalgorithm-diff-perl libspiffy-perl libtext-diff-perl...
[pkg-perl]
/
deb-src
/
libfilter-perl
/
libfilter-perl-1.34
/
examples
/
method
/
Joe2Jim.pm
1
package Joe2Jim ;
2
3
use Filter::Util::Call ;
4
5
use strict ;
6
use warnings ;
7
8
sub import
9
{
10
my($type) = @_ ;
11
12
filter_add(bless []) ;
13
}
14
15
sub filter
16
{
17
my($self) = @_ ;
18
my($status) ;
19
20
s/Joe/Jim/g
21
if ($status = filter_read()) > 0 ;
22
$status ;
23
}
24
25
1 ;
26