cpan/Filter-Util-Call/t/rt_101033.pm

   1 package rt_101033;
   2
   3 use strict;
   4 use Filter::Util::Call;
   5
   6 sub import
   7 {
   8   filter_add({});
   9   1;
  10 }
  11
  12 sub unimport
  13 {
  14   filter_del()
  15 }
  16
  17 sub filter
  18 {
  19   my($self) = @_ ;
  20   my $status = 1;
  21   $status = filter_read(1_000_000);
  22   #print "code: !$_!\n\n";
  23   return $status;
  24 }
  25
  26 1;
  27