xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/pod/special_seqs.xr (revision 0:68f95e015346)
1*0Sstevel@tonic-gate    This is a test to see if I can do not only `$self' and `method()', but
2*0Sstevel@tonic-gate    also `$self->method()' and `$self->{FIELDNAME}' and `$Foo <=> $Bar'
3*0Sstevel@tonic-gate    without resorting to escape sequences. If I want to refer to the
4*0Sstevel@tonic-gate    right-shift operator I can do something like `$x >> 3' or even `$y >>
5*0Sstevel@tonic-gate    5'.
6*0Sstevel@tonic-gate
7*0Sstevel@tonic-gate    Now for the grand finale of `$self->method()->{FIELDNAME} = {FOO=>BAR}'.
8*0Sstevel@tonic-gate    And I also want to make sure that newlines work like this
9*0Sstevel@tonic-gate    `$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]'
10*0Sstevel@tonic-gate
11*0Sstevel@tonic-gate    Of course I should still be able to do all this *with* escape sequences
12*0Sstevel@tonic-gate    too: `$self->method()' and `$self->{FIELDNAME}' and `{FOO=>BAR}'.
13*0Sstevel@tonic-gate
14*0Sstevel@tonic-gate    Dont forget `$self->method()->{FIELDNAME} = {FOO=>BAR}'.
15*0Sstevel@tonic-gate
16*0Sstevel@tonic-gate    And make sure that `0' works too!
17*0Sstevel@tonic-gate
18*0Sstevel@tonic-gate    Now, if I use << or >> as my delimiters, then I have to use whitespace.
19*0Sstevel@tonic-gate    So things like `<$self-'method()>> and `<$self-'{FIELDNAME}>> wont end
20*0Sstevel@tonic-gate    up doing what you might expect since the first > will still terminate
21*0Sstevel@tonic-gate    the first < seen.
22*0Sstevel@tonic-gate
23*0Sstevel@tonic-gate    Lets make sure these work for empty ones too, like and `>>' (just to be
24*0Sstevel@tonic-gate    obnoxious)
25*0Sstevel@tonic-gate
26