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

diff --git a/deb-src/libfilter-perl/libfilter-perl-1.34/examples/method/Joe2Jim.pm b/deb-src/libfilter-perl/libfilter-perl-1.34/examples/method/Joe2Jim.pm
new file mode 100644 (file)
index 0000000..901bef5
--- /dev/null
+++ b/deb-src/libfilter-perl/libfilter-perl-1.34/examples/method/Joe2Jim.pm
@@ -0,0 +1,26 @@
+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 ;
+