[perl5.git] / t / pod / nested_seqs.t

BEGIN {
   use File::Basename;
   my $THISDIR = dirname $0;
   unshift @INC, $THISDIR;
   require "testp2pt.pl";
   import TestPodIncPlainText;
}

my %options = map { $_ => 1 } @ARGV;  ## convert cmdline to options-hash
my $passed  = testpodplaintext \%options, $0;
exit( ($passed == 1) ? 0 : -1 )  unless $ENV{HARNESS_ACTIVE};


__END__


=pod

The statement: C<This is dog kind's I<finest> hour!> is a parody of a
quotation from Winston Churchill.

=cut
Commit	Line	Data
360aca43	1	BEGIN {
9c6ed6d7 HS	2	use File::Basename;
	3	my $THISDIR = dirname $0;
	4	unshift @INC, $THISDIR;
360aca43 GS	5	require "testp2pt.pl";
	6	import TestPodIncPlainText;
	7	}
	8
	9	my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash
	10	my $passed = testpodplaintext \%options, $0;
	11	exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE};
	12
	13
	14	__END__
	15
	16
	17	=pod
	18
	19	The statement: C<This is dog kind's I<finest> hour!> is a parody of a
	20	quotation from Winston Churchill.
	21
	22	=cut
	23