Commit | Line | Data |
27f805f4 |
1 | #!./perl |
360aca43 |
2 | BEGIN { |
27f805f4 |
3 | chdir 't' if -d 't'; |
4 | unshift @INC, './pod', '../lib'; |
360aca43 |
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 | This is a test to see if I can do not only C<$self> and C<method()>, but |
20 | also C<$self->method()> and C<$self->{FIELDNAME}> and C<{FOO=>BAR}> without |
21 | resorting to escape sequences. |
22 | |
23 | Now for the grand finale of C<$self->method()->{FIELDNAME} = {FOO=>BAR}>. |
24 | |
25 | Of course I should still be able to do all this I<with> escape sequences |
26 | too: C<$self-E<gt>method()> and C<$self-E<gt>{FIELDNAME}> and C<{FOO=E<gt>BAR}>. |
27 | |
28 | Dont forget C<$self-E<gt>method()-E<gt>{FIELDNAME} = {FOO=E<gt>BAR}>. |
29 | |
e9fdc7d2 |
30 | And make sure that C<0> works too! |
31 | |
360aca43 |
32 | =cut |