#!perl
use warnings;
use strict;
BEGIN {
chdir 't' if -d 't';
};
my $pod = << 'EO_NAME';
$pod .= << 'EO_SYNOPSIS';
$$fake_out = '';
$pod .= << 'EO_AUTHOR';
$$fake_out = '';
$pod = << 'EO_DESCRIPTION';
$$fake_out = '';
'match_section( DESCRIPTION, subsection )' );
$pod = << 'EO_DESCRIPTION';
I'll go by the POD in Pod::Select.
EO_DESCRIPTION
$$fake_out = '';
$p_s->parse_from_file( $0, \*FAKEOUT );
package CatchOut;
sub TIEHANDLE { bless \( my $self ), shift }
sub PRINT { my $self = shift; $$self .= $_[0] }
__END__
=head1 NAME
Select.t - Tests for Pod::Select.
=head1 SYNOPSIS
This program just tests the basics of the Pod::Select module.
=head1 DESCRIPTION
=cut