1N/A chdir 't' if -d 't'; 1N/A 'match_section( DESCRIPTION, subsection )' );
1N/AI
'll go by the POD in Pod::Select. 1N/A$p_s->parse_from_file( $0, \*FAKEOUT ); 1N/Asub TIEHANDLE { bless \( my $self ), shift } 1N/Asub PRINT { my $self = shift; $$self .= $_[0] } 1N/AThis program just tests the basics of the Pod::Select module.