This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use PodParser 1.18 new test.
[perl5.git] / t / pod / special_seqs.xr
CommitLineData
664bb207 1 This is a test to see if I can do not only `$self' and `method()', but
66aff6dd
GS
2 also `$self->method()' and `$self->{FIELDNAME}' and `$Foo <=> $Bar'
3 without resorting to escape sequences. If I want to refer to the
4 right-shift operator I can do something like `$x >> 3' or even `$y >>
5 5'.
360aca43 6
664bb207 7 Now for the grand finale of `$self->method()->{FIELDNAME} = {FOO=>BAR}'.
66aff6dd
GS
8 And I also want to make sure that newlines work like this
9 `$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]'
360aca43 10
664bb207
GS
11 Of course I should still be able to do all this *with* escape sequences
12 too: `$self->method()' and `$self->{FIELDNAME}' and `{FOO=>BAR}'.
360aca43
GS
13
14 Dont forget `$self->method()->{FIELDNAME} = {FOO=>BAR}'.
15
e9fdc7d2
GS
16 And make sure that `0' works too!
17
66aff6dd
GS
18 Now, if I use << or >> as my delimiters, then I have to use whitespace.
19 So things like `<$self-'method()>> and `<$self-'{FIELDNAME}>> wont end
20 up doing what you might expect since the first > will still terminate
21 the first < seen.
22
8a523ae0
JH
23 Lets make sure these work for empty ones too, like and `>>' (just to be
24 obnoxious)
25