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