1package Pod::Readme::Test; 2 3use Exporter qw/ import /; 4use IO::String; 5 6require Test::More; 7 8our $out; 9our $io = IO::String->new($out); 10our $prf; 11 12our @EXPORT = qw/ $prf $out $io filter_lines reset_out /; 13our @EXPORT_OK = @EXPORT; 14 15sub filter_lines { 16 my @lines = @_; 17 foreach my $line (@lines) { 18 Test::More::note $line if $line =~ /^=(?:\w+)/; 19 $prf->filter_line( $line . "\n" ); 20 } 21} 22 23sub reset_out { 24 $io->close; 25 $out = ''; 26 $io->open($out); 27} 28 291; 30