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
CommitLineData
356231b0
SH
1package rt_101033;
2
3use strict;
4use Filter::Util::Call;
5
6sub import
7{
8 filter_add({});
9 1;
10}
11
12sub unimport
13{
14 filter_del()
15}
16
17sub 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
261;
27