This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade Filter-Util-Call from version 1.54 to 1.55
[perl5.git] / 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