package Pod::Readme::Test;
use Exporter qw/ import /;
use IO::String;
require Test::More;
our $out;
our $io = IO::String->new($out);
our $prf;
our @EXPORT = qw/ $prf $out $io filter_lines reset_out /;
our @EXPORT_OK = @EXPORT;
sub filter_lines {
my @lines = @_;
foreach my $line (@lines) {
Test::More::note $line if $line =~ /^=(?:\w+)/;
$prf->filter_line( $line . "\n" );
}
}
sub reset_out {
$io->close;
$out = '';
$io->open($out);
}
1;