| Line | |
|---|
| 1 | BEGIN {
|
|---|
| 2 | use File::Basename;
|
|---|
| 3 | my $THISDIR = dirname $0;
|
|---|
| 4 | unshift @INC, $THISDIR;
|
|---|
| 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 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
